原文地址:http://www.cnblogs.com/xufeiyang/p/3747617.html
Perl寻找去除数组中重复元素
写一个小程序时候,需要去除一个数组中的重复元素,搜索了一下,找到的代码主要是两种,一种是使用grep函数,一种是转换为hash表,代码分别如下:
使用grep函数代码片段:
代码:
my @array = ( 'a','b','c','a','d',1,2,5,5 ); my %count; my @uniq_times = grep { ++$count{ $_ } < 2; } @array; |
使用grep那种方法并不是很好懂,我尝试解释一下,未必说得清楚或者正确。其实就是把数组的每个元素作为一个hash表的key,++之后第一个元素出现的时候值就是1,如果第二次出现这个值就是2了。其实就是统计了数组每个元素的出现次数,少于2次的就放到新的数组当中。我写了个比较好懂的代码,和使用grep方法的代码原理大致相同,但是又不完全一样,代码如下: 代码:
|