-1
我想要這些映射:ABcD - > ABccD,xyzK - > xxyyzzK等如何在Perl中使用正則表達式重複每個小寫字母?
我可以寫一個循環來做到這一點。但是有沒有辦法用正則表達式來實現呢?我可以找到所有帶小寫字母[a-z]的小寫字母。我如何編寫替換部分?
$string =~ s/[a-z]/....../g; # How do I fill in for the ...... ?
我想要這些映射:ABcD - > ABccD,xyzK - > xxyyzzK等如何在Perl中使用正則表達式重複每個小寫字母?
我可以寫一個循環來做到這一點。但是有沒有辦法用正則表達式來實現呢?我可以找到所有帶小寫字母[a-z]的小寫字母。我如何編寫替換部分?
$string =~ s/[a-z]/....../g; # How do I fill in for the ...... ?
做到這一點的最簡單的方法是用捕獲組和捕捉變量:
$string =~ s/([a-z])/$1$1/g;
見perldoc perlretut
Extracting matches和Search and replace。
謝謝Melpomene。正是我在找什麼。我不知道被捕獲的組也可以用來替換。謝謝! –