David Stavert schrieb:
>
> The results of my foreach loop looks like
>
> <[EMAIL PROTECTED]><[EMAIL PROTECTED]>
> <[EMAIL PROTECTED]><[EMAIL PROTECTED]>
> <[EMAIL PROTECTED]><[EMAIL PROTECTED]>
> <john@anothercompany><[EMAIL PROTECTED]>
> <[EMAIL PROTECTED]><[EMAIL PROTECTED]>
> <[EMAIL PROTECTED]><[EMAIL PROTECTED]>
> <john@anothercompany><[EMAIL PROTECTED]>
>
> and I want to eliminate the duplicates and sort the results to
>
> <[EMAIL PROTECTED]><[EMAIL PROTECTED]>
> <john@anothercompany><[EMAIL PROTECTED]>
> <[EMAIL PROTECTED]><[EMAIL PROTECTED]>
>
I suggest the following snippet:
my $previous;
foreach my $key (sort keys %entries) {
next unless $key eq $previous;
$previous = $key;
# do something with the key
}
Best Wishes,
Andrea
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
