Re: Remove redundency from an array

[gube]

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 };