perl - 如何在perl中查找重复的数组值

Question

这个问题在这里已经有了答案:




9年前关闭。

Possible Duplicate:
What's the most efficient way to check for duplicates in an array of data using Perl?

如何在数组中查找重复值？

这是我的数组:

@arr - ("one","two","one","three","two");

输出将是:

one
two

代码:

while (<RFH>) {
    chomp;
    @arr = split(/\|/,$_);
    push(@arr1,$arr[4]."\n");
}

Answer 1

一关解决:

my %seen = ();
@dup = map { 1==$seen{$_}++ ? $_ : () } @list;