#!F:\Perl\bin\perl -w
use Data::Dumper;
my @array_with_duplicate_elements = qw/ 1 2 3 4 5 5 5 5 4 4 4/;
my %hash = map { $_, 1 } @array_with_duplicate_elements;
my @unique_array = keys %hash;
print Dumper(\@unique_array);
use Data::Dumper;
my @array_with_duplicate_elements = qw/ 1 2 3 4 5 5 5 5 4 4 4/;
my %hash = map { $_, 1 } @array_with_duplicate_elements;
my @unique_array = keys %hash;
print Dumper(\@unique_array);
No comments:
Post a Comment