in reply to Re^2: Removal of duplicated element in array.
in thread Removal of duplicated element in array.
*UPDATE:my %seen = map {$_=>1} <DATA>; use Data::Dumper; print Dumper \%seen; __DATA__ dddd@fgg.com cccc@fgg.com eeee@fgg.com dddd@fgg.com
If you care about the order of display then you can use this:
print join "\n", sort{$a cmp $b} keys %seen;
*Note: That was based on the assumption, that the original ORDER of data was inconsequential.
Limbic~Region Thanks for pointing that out.
If you tell me, I'll forget.
If you show me, I'll remember.
if you involve me, I'll understand.
--- Author unknown to me
If you show me, I'll remember.
if you involve me, I'll understand.
--- Author unknown to me
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^4: Removal of duplicated element in array.
by Limbic~Region (Chancellor) on May 06, 2013 at 18:11 UTC | |
by 2teez (Vicar) on May 06, 2013 at 21:40 UTC |
In Section
Seekers of Perl Wisdom