Problem 1 Email ids Conversion code

[patelg1]

Problem 1

This is a new set of email ids

[e-mail],[e-mail],[e-mail],[e-mail],[e-mail],[e-mail],[e-mail],[e-mail],[e-mail],[e-mail],[e-mail]

This is the old set of email ids in the numerical format

~!*37!@644.2>_576138@644.2>_013*9*@644.2>_6794@644.2>_%'4&3@644.2>_6>>558@644.2>_<2~`84@644.2>_<`93@644.2>_%>`&8@644.2>_84&3<3@644.2>_2~9~8@644.2>_2:319@644.2>_

conversion code is being used as mentioned below [a-j] by [0-9] and [k-z] by [~!_<>%^&*() ; `"=?]

I wish to store the new set of email ids along with the already existing old set of email ids which were stored in numerical format. I have problem in obtaining the repeated email ids after saving the new set in the old . this is the script used to resolve this problem but there is an error

@entries =qw (.................................................);
 
   @list=qw (.....................................................);
 
 foreach $ entry ($ list)
 
  { $ count== 0; foreach $ list ( $ entry)
  { if ($ list = ~m/$ entry/;)
  { splice (@list, @ count, 1);
 
  print " $ entry was removed .\n";
 $ count++ } } }
 
 Print "$_\n" for @ list;

so , what is the correct script?

[eWish]

Did you write this code? You should learn the basics first. Your script should not even complie correctly.

Add these two lines to your script and fix your syntax errors.

use strict;
use warnings;

I don't understand your conversion chart. Do you have more details?

--Kevin

[KevinADC]

I understand the conversion but the perl code is just a total mess and I have no idea what the output should be.

[Icecrack]

I agree with Kevin its a mess, i cant see how you would get that to work, second Fix your code formating

use strict;
use warnings;
 
@entries =qw(.................................................);
@list=qw(.....................................................);
 
 foreach $entry ($list)
   { 
     $count=0; 
     foreach $list ($entry)
      {
        if ($list = ~m/$entry/)
          { 
            splice (@list, @count, 1);
            print "$entry was removed .\n";
            $count++;
  } 
 }
}
 
 print "$_\n" for @list;