perl 数组去重

1.pl脚本

 #!/usr/bin/perl

my %hash;

my @array = (1,2,3,2,4,5,5);

#grep 保存符合条件的元素

@array = grep { ++$hash{$_} < 2 } @array;

#print join(" ",@array);

foreach $item (@array){

print $item;

print "\n";

}