小编BHA*_*SAN的帖子

可能重复:
使用Perl检查数据数组中重复项的最有效方法是什么？

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

这是我的阵列:

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

输出将是:

one
two

码:

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