perl - perl如何用两个替换一个字符的出现

Question

我想用两个字符翻译一个字符的所有实例。我会这样做的通常方法是：

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

我只希望一个字符的单个实例加倍。所以aa会留下aa而不变成aaaa。

我想我必须在s///语句中使用变量，但我在这里或网上找不到任何合适的模式。

Answer 1

a不相邻的匹配实例a：

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