perl <[email protected]> wrote:
> 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.
This is discussed in length in the Perl FAQ ("perldoc -q intersection").
The short answer is to map your array onto a hash:
my %seen;
foreach my $email (@emails, @emails2)){
$seen{ $email }++;
}
# The list produced by "keys %seen" has only unique addresses.
print "unique addresses: ", join(',', keys %seen );
HTH,
Thomas
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
