Front page | perl.beginners |
Postings from February 2009
Email Purge
From:
perl
Date:
February 24, 2009 01:23
Subject:
Email Purge
Message ID:
477b3a4c-a73a-49cf-a67b-0ea523dfe63d@v13g2000yqm.googlegroups.com
Cheers and thanks in advance for you help. I have a routine intended
to purge duplicate emails from a list. The code below is not working.
I remember seeing something like... foreach $email(@emails, @emails2))
{ etc ... but I'm lost. Any help is appreciated.
sub purge
{
open (LIST, "$list") or error("$list purge 1 email ");
while (my $line = <LIST>)
{
@emails = split(/\r?\n|\r/, $line);
@emails2 = @emails;
}
close (LIST);
foreach $email(@emails)
{
foreach $email2(@emails2)
{
if($email ne $email2)
{
$newemail .="$email\n";
}
else{$purgecnt++; }
}
}
open (LIST, ">>$list") or error("$list purge 2");
flock(LIST, LOCK_EX);
print LIST $newemail;
close (LIST);
&success("$list has been purged of $purgecnt duplicates");