如何在Perl中使用正則表達式重複每個小寫字母？

Question

我想要這些映射：ABcD - > ABccD，xyzK - > xxyyzzK等

我可以寫一個循環來做到這一點。但是有沒有辦法用正則表達式來實現呢？我可以找到所有帶小寫字母[a-z]的小寫字母。我如何編寫替換部分？

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

Answer 1

做到這一點的最簡單的方法是用捕獲組和捕捉變量：

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

見perldoc perlretutExtracting matches和Search and replace。