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

Question

可能重复:
使用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;