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

Question

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

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

我只希望将一个角色的单个实例加倍。因此aa将保持aa而不会变为aaaa。

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

Answer 1

匹配a不在另一个a旁边的实例：

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