perl如何用兩個字符替換一個字符的一個發生

Question

我想用兩個字符翻譯一個字符的所有實例。通常的方法我會做到這一點是：

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

我只想要一個字符的單個實例加倍。所以aa將保持aa而不是aaaa。

我想我必須在s///聲明中使用變量，但我無法在此處或在網上找到任何合適的模式。不相鄰另一a的a

Answer 1

匹配情況：

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