Remove repetitions in Array

oleber's Avatar author of Remove repetitions in Array
Contributed by
This is an article on Remove repetitions in Array in Perl.
Rated 5.00 By 1 users
The normal idea is to have an hash table, iterate over the array and using the elements as keys.

Something like :
Code: PERL
my @array = (1,5,3,7,9,1,4,5,7,6,7);

my %hash;

foreach my $element (@array) {
    $hash{$element}++
}

my @arrayNoRep = keys %hash;
print join(", ", @arrayNoRep);
Lets simplify the loop
Code: PERL
my @array = (1,5,3,7,9,1,4,5,7,6,7);

my %hash;
$hash{$_}++ foreach @array;

my @arrayNoRep = keys %hash;
print join(", ", @arrayNoRep);
But do we need the loop?
Code: PERL
my @array = (1,5,3,7,9,1,4,5,7,6,7);

my %hash;
@hash{@array} = ();

my @arrayNoRep = keys %hash;
print join(", ", @arrayNoRep);
And throwing away the hash defeniton.
Code: =PERL
my @array = (1,5,3,7,9,1,4,5,7,6,7);

my @arrayNoRep = keys %{{map {$_=>0} @array}};

print join(", ", @arrayNoRep);
I love this one line in Perl.
Team Leader
30Apr2007,11:29   #2
pradeep's Avatar
That's really cool!
Go4Expert Member
4Jun2010,16:49   #3
oleber's Avatar
This post has become a Recipe at my new Perl website.

http://sites.google.com/site/oleberp...n-free-array-1
Newbie Member
26Jul2010,18:21   #4
msmani_1980's Avatar
Remove repetitions in Array without loop

Code:
my @array = (1,5,3,7,9,1,4,5,7,6,7);
@t{@array}=();
print join sort keys %t,",";
Result : 1, 3, 4, 5, 6, 7, 9
Go4Expert Member
26Jul2010,18:27   #5
oleber's Avatar
So, What did you add to the subject msmani_1980?
Go4Expert Member
13Sep2010,14:59   #6
PradeepKr's Avatar
I couldn't get this line in the 3rd code block
@hash{@array} = ();

hash is defined with % in the previous line (%hash) and then it is seen with @ which is meant for array. Can somebody explain me, what exactly "@", prepended to hashname, does?
Team Leader
13Sep2010,23:18   #7
pradeep's Avatar
"@", prepended to hashname means we are accessing a hash slice i.e. a group of elements instead of one element a time.