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