前端之家收集整理的这篇文章主要介绍了
如何从Perl中的数组中删除重复的项目？，
前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。
我有一个数组在Perl：
my @my_array = ("one","two","three","three");
如何从数组中删除重复项？
你可以做这样的事情，如
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函数
原文链接：https://www.f2er.com/Perl/173586.html
