I have a routine that is intended to purge duplicates from a list of
emails. It's currently not working. I've spent some time trying to
make it work, but to no avail. Below is the code. If you have any
suggestions, they would be appreciated. I remember seeing something
like...
foreach $email(@emails)@emails2)){
which is probably what I want.
sub purge
{
open (LIST, "$list") or error("$list purge email ");
while (my $line = <LIST>) {
@emails = split(/\r?\n|\r/, $line);
$emails2 = @emails;
}
close (LIST);
foreach $email(@emails){
if($email ne $email2){
$newemail .="$email\n";
}
}
open (LIST, ">>$list") or error("$list purge email2");
flock(LIST, LOCK_EX);
print LIST $newemail;
close (LIST);
&success("$list has been purged of duplicates");
}
--
To unsubscribe, e-mail: beginners-cgi-unsubscr...@perl.org
For additional commands, e-mail: beginners-cgi-h...@perl.org
http://learn.perl.org/
