perl如何用两个替换一个角色的出现

Question

我想翻译两个字符的所有字符实例.通常的做法是:

$text =~ s/a/aa/g;

我只想要一个角色的单个实例加倍.所以aa会留下aa而不会变成aaaa.

我想我必须在s///声明中使用变量,但我在这里或网上找不到任何合适的模式.

Answer 1

匹配的实例a不是紧挨着另一个a:

s/(?<!a)a(?!a)/aa/g;