开发者社区 问答 正文

如何从Perl中的数组中删除重复项?

我在Perl中有一个数组:

my @my_array = ("one","two","three","two","three"); 如何从阵列中删除重复项?

展开
收起
保持可爱mmm 2020-02-06 23:33:57 400 分享 版权
1 条回答
写回答
取消 提交回答
  • 您可以按照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 如果要使用模块,请尝试uniq从List::MoreUtils

    问题来源于stack overflow

    2020-02-06 23:34:12
    赞同 展开评论
问答分类:
问答地址: