Re: Remove redundency from an array

[gube]

in reply to Remove redundency from an array

This below code also one of the method to avoid duplicate values from array. It's lengthy code, However, it's one of the alternate method.

my @array = (1,1,3,2,3,5,3,3,7,5,2);
my (%ar_hash, @ar);
for(@array) {
 next if($ar_hash{$_}++);
 push(@ar, $_);
}
print "@ar";

o/p : 1 3 2 5 7

[jdporter]

Doesn't need to be lengthy.

my @u = do { my %seen; grep { ! $seen{$_}++ } @a };