删除数组重复的元素？

drosophilia

@array数组有重复的元素，有没函数直接处理？

iakuf

#!/usr/bin/perl
@array = qw(a b a c d d e f g f h h);
@unique = grep { ++$count{$_} < 2 } @array;
print "@unique \n";


用@unique = grep { ++$count{$_} < 2 } @array一条命令搞定

[[i] 本帖最后由 iakuf 于 2009-8-25 17:33 编辑 [/i]]

iceberg77

http://bbs.chinaunix.net/viewthread.php?tid=706319
http://bbs.chinaunix.net/viewthread.php?tid=578793

iLRainyday

%seen = ( ); @uniq = grep { ! $seen{$_} ++ } @list;

drosophilia

受用了，thank all

hxswdl

cn.perlmaven.com/unique-values-in-an-array-in-perl
这个帖子写得非常好！

j_cle

多种实现方式，学习了

Okelani

回复 4# iLRainyday

受用了
   

sunzhiguolu

学习了,

rubyish

%seen = ( );
@uniq = grep { ! $seen{$_} ++ } @list;

回复 4# iLRainyday

3 Q ~ ~