Re^3: Removal of duplicated element in array.

 my %seen = map {$_=>1} <DATA>;

 use Data::Dumper;

  print Dumper \%seen;

__DATA__
dddd@fgg.com
cccc@fgg.com
eeee@fgg.com
dddd@fgg.com
[download]

*UPDATE:
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

Comment on Re^3: Removal of duplicated element in array. Select or Download Code

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
2teez, If you care about the order of display then you can use this The code in the OP looked like it was preserving the original order - what you have posted loses that ordering and sorting ASCIIbetically after the fact isn't going to re-instate it unless it coincidentally was sorted that way in the first place. Cheers - L~R	[reply]
Re^5: Removal of duplicated element in array. by 2teez (Vicar) on May 06, 2013 at 21:40 UTC
Limbic~Region You are right. My post was on the assumption that, the OP wanted the output in 'ASCIIbetically', hence, the reason for my assertion. Thanks. 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	[reply]