双字母的单词。 Perl的

Question

如何使用正则表达式在文本中找到带有加倍字母（例如进度，工具等）的单词？

Answer 1

my $str = "katttaarww";
my @arr = $str =~ /(.)\1+/g;
print join "~", @arr;

输出

t~a~w

Answer 2

使用对单个通配符捕获组的反向引用，请参阅下文：

a = "hello"
a =~ /(.)\1/