Perl有没有返回无重复值列表的内置函数

Morry丶Lyan

就像mysql的distinct一样，去除数组重复的元素，返回无重复的数组？

pitonas

没有
自己写
my @a = qw/1 2 2 3 3 4 5 5/;
sub distinct { my %h; grep { !$h{$_}++ } @_ }
my @b = distinct @a;
say @b;

zhlong8

List::MoreUtils::uniq

Morry丶Lyan

不错{:3_193:}

pitonas 发表于 2013-11-08 12:26
没有
自己写
my @a = qw/1 2 2 3 3 4 5 5/;