在 perl 中使用“唯一”时如何从数组中查找“非唯一”值

Question

my @words = qw(1 2 3 4 4);
my @unique_words = uniq @words;

print @unique_words; # 1 2 3 4

我有兴趣找出哪个值是非唯一的，在本例中为 4。并且能够将其设置为一个变量，以便我可以跟踪重新出现的特定值。

我想这样做，所以我可以实现一个代码，上面写着“如果我的字符串包含 数组中的重复值，则完全从字符串中删除 数组中的重复值”。在这种情况下，如果一个字符串包含1 2 3 4 4。我希望在 if 语句之后包含 1 2 3。

Answer 1

使用哈希最容易计算/查找重复项：

my %count;
$count{ $_ }++ for @words;
print "$_ occurs more than once\n"
    for grep { $count{ $_ } > 1 } @words;

通过在%count 中查找计数为 1 的元素来查找仅出现一次的值：

my %count;
$count{ $_ }++ for @words;
my @unique_words = grep { $count{ $_ } == 1 } @words;