2011-05-10 19:47:22| 分类: perl&bioperl | 标签: |举报 |字号大中小 订阅
#!/usr/bin/perl
use strict;
my %hash;
my @array = (1..10,5,20,2,3,4,5,5);
#grep 保存符合条件的元素
@array = grep { ++$hash{$_} < 2 } @array;
print join(" ",@array);
print "\n";
来源:http://www.imx365.net/blog/weblog-19467-1.html
评论