perl中去除数组里的重复元素
方法很多，先介绍下我自己的方法，通过hash的键唯一性来得到不重复的元素列表，代码如下：
1 2 3 4 5 6 7 8 | #!/usr/bin/perl use warnings; use strict; my @array = ("a","b","c","d","a","d","c"); my %hash; $hash{$_}++ foreach (@array); print sort keys %hash; |
下面是网上看到的一个方法，通过grep函数来获得不重复的元素：
1 2 3 4 5 6 7 8 | #!/usr/bin/perl use warnings; use strict; my @array = ("a","b","c","d","a","d","c"); my %hash; my @out = grep (!$hash{$_}++, @array); print @out; |
该方法的意思是：当第一次碰到某元素$_时，$hash{$_}的值为0，!$hash{$_}为真，于是把元素$_加到数组@out中，然后把$hash{$_}值加1，这样下次再碰到同样的元素时由于!$hash{$_}此时为假，就不会写入@out数组里了，从而达到去掉重复元素的目的。
两种方法从运行效率上来看应该差不多，不过第二个感觉更炫一点。
送个吗？
try this:
@a = qw/1 2 3 4 3 4/;
@h{@a} = ();
print keys %h;
@monger
还是你这比较简单