Perl正則表達式用正則表達式的子串替換字符串

Question

我有一個關於Perl的問題。

假設我在文件中的以下行：

DoMatchLong ("ThisIsMyVariable", lThisIsMyVariable); 

我想cp_const_ThisIsMyVariable

取代 「ThisIsMyVariable」

所以我的目標是：

DoMatchLong ( cp_const_ThisIsMyVariable, lThisIsMyVariable); 


$count = s/(?<=")\w+(?=")/const_cmd_cp_$&/gx; 

導致DoMatchLong ( "cp_const_ThisIsMyVariable", lThisIsMyVariable);

那麼正確的解決方案是什麼？

Answer 1

$count = s/"(\w+)"/const_cmd_cp_$1/gx; 

將引號拉入匹配中，然後使用捕獲組來獲取引號之間的實際文本，同時仍然替換它們。