我在Perl中有一个数组:
my @my_array = ("one","two","three","two","three");
如何从阵列中删除重复项?
发布于 2008-08-11 10:16:23
您可以像在perlfaq4中演示的那样执行以下操作
sub uniq {
my %seen;
grep !$seen{$_}++, @_;
}
my @array = qw(one two three two three);
my @filtered = uniq(@array);
print "@filtered\n";
输出:
one two three
如果要使用模块,请尝试List::MoreUtils
中的uniq
函数
发布于 2008-08-31 10:01:19
从CPAN安装List::MoreUtils
然后在你的代码中:
use strict;
use warnings;
use List::MoreUtils qw(uniq);
my @dup_list = qw(1 1 1 2 3 4 4);
my @uniq_list = uniq(@dup_list);
发布于 2008-08-11 10:18:45
我通常的做法是:
my %unique = ();
foreach my $item (@myarray)
{
$unique{$item} ++;
}
my @myuniquearray = keys %unique;
如果您使用散列并将项添加到散列中。你还有一个额外的好处,就是知道每一项在列表中出现的次数。
https://stackoverflow.com/questions/7651
复制相似问题