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;

将引号拉入匹配,然后使用捕获组仅获取引号之间的实际文本,同时仍然替换它们.