String 如何找到'；非唯一性'；使用'；独特的'；在perl中

我感兴趣的是找出哪个值是非唯一的，在本例中为

4

。并且能够将它设置为一个变量，这样我就可以跟踪哪个特定值再次出现

---

我想这样做，这样我就可以实现一个代码，上面写着“如果我的字符串包含数组中的复制值，请从字符串中完全删除数组中的复制值”。在本例中，如果字符串包含

12344

。我希望在if语句之后包含

1 2 3

计数/查找重复项最简单的方法是使用哈希：

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

print @unique_words; # 1 2 3 4

通过查找计数为1的

%count

中的元素，可以查找只出现一次的值：

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

---

计数/查找重复项最简单的方法是使用哈希：

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

print @unique_words; # 1 2 3 4

通过查找计数为1的

%count

中的元素，可以查找只出现一次的值：

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

---

@toolic感谢您的回复！如何打印此代码实现多次计数的值？@toolic感谢您的回复！如何打印此代码实现中多次计数的值？感谢您的帮助！我是否可以将$设为一个变量，该变量保存多次出现的值？这样我就可以在我的程序中进行全球比较了？非常感谢您事先的指导。您所说的“多次出现的价值”是什么意思？可以有多个值多次出现。表达式

grep{$count{$\u}>1}键%count返回多次出现的所有值。您可以通过使用
my@duplicates=grep{$count{$\u}>1}键%count
。或者使用
my@non_duplicates=grep{$count{$}==1}@words只列出非重复值@ysth非常感谢你。这帮了大忙。我想这就是我一直在寻找的东西。@Corion谢谢你，这帮了我很大的忙。谢谢你的帮助！我是否可以将$设为一个变量，该变量保存多次出现的值？这样我就可以在我的程序中进行全球比较了？非常感谢您事先的指导。您所说的“多次出现的价值”是什么意思？可以有多个值多次出现。表达式
grep{$count{$\u}>1}键%count返回多次出现的所有值。您可以通过使用
my@duplicates=grep{$count{$\u}>1}键%count
。或者使用
my@non_duplicates=grep{$count{$}==1}@words只列出非重复值@ysth非常感谢你。这帮了大忙。我想这就是我一直在寻找的东西。@Corion谢谢你，这帮了我很大的忙。