用Perl替换

Question

我只想删除字符串double quotes(")的{​​{1}}。 试过这种方式，但没有工作。

"dropDownStorePrepare(this,\'hello\')"

应删除dropDownStorePrepare（,,,）开头和结尾的双引号，并保留其余的双引号。

注意： dropDownStorePrepare函数应该接受任何no参数。

请有人帮帮我..

Answer 1

你遇到的直接问题是.*匹配太多了。尝试：

$str =~ s/"dropDownStorePrepare(.*?)"/dropDownStorePrepare$1/ig;

虽然看起来你正试图解析JSON。也许你应该找module为你做这件事......

Answer 2

尝试非贪婪的正则表达式，

$str =~ s/"dropDownStorePrepare(.*?)"/dropDownStorePrepare$1/ig;