如果我们有一个数组@array=(1,2,2,3,3,3,4,4,4,4),我们怎么去除数组中的冗余元素呢?我们可以利用hash与grep()做到这一点。
use strict;
my @array=(1,2,2,3,3,3,4,4,4,4);
my %hash; #定义一个空hash
my @result=grep {++$hash{$_}==1} @array; #去除冗余元素
print “@result”;
grep能遍历@array中的元素(用$_表示)。以@array中元素2为例,第一次$_==2时,++$hash{$_}==1;二次$_==2时,++$hash{$_}==2。所以、$hash{1}只能为1,$hash{2}可能值为1和2,$hash{3}的值可能为1,2和3,依次类推。
grep {++$hash{$_}==1} @array 筛选出了@array中的元素第一次出现时的情况,当此元素再次出现时,就被过滤掉了。
如果grep {++$hash{$_}==2 } @array 能筛选出什么元素呢?答案是2,3,4。也就是至少出现过两次的元素,因为$hash{1}没有机会等于2的。
上述内容可以用于任何用途并且不必表明出处。水平有限,欢迎批评指正,共同进步。