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

Question

我需要查看字符串数组中是否有重复项，最省时的方法是什么？

Answer 1

我喜欢 Perl 的一件事是它几乎可以像英语一样阅读。它只是有点道理。

use strict;
use warnings;

my @array = qw/yes no maybe true false false perhaps no/;

my %seen;

foreach my $string (@array) {

    next unless $seen{$string}++;
    print "'$string' is duplicated.\n";
}

输出

'false' is duplicated.

'no' is duplicated.