如何在Perl中使用正则表达式重复每个小写字母？

Question

我想要这样的映射：ABcD - ＆gt; ABccD，xyzK - ＆gt; xxyyzzK等

我可以写一个循环来做到这一点。但有没有办法与Regex这样做？我可以找到带字符集[a-z]的所有小写字母。如何编写替换部件？

$string =~ s/[a-z]/....../g;  # How do I fill in for the ...... ?

Answer 1

最简单的方法是使用捕获组和捕获变量：

$string =~ s/([a-z])/$1$1/g;

请参阅perldoc perlretut中的Extracting matches和Search and replace。