Question

我找不到这方面的资源。我想用perl转义双引号，我是这种语言的新手。

这就是我所拥有的：

$comment =~ s/\"/\\\"/g;

它似乎不起作用。什么是正确的解决方案？

Answer 1

插入需要转义的东西的一种方法，不计算反斜杠

$comment =~ s/"/q(\")/eg;

使用/e修饰符，替换部分将被评估为代码，结果将用作替换。请参阅in perlop，并说出this post。这里用于强制q()的文字字符串。

请注意，在这个简单的情况下，s/"/\"/可以正常工作。您的代码中可能会有更多内容，或者您的引号已经转义，在这种情况下，额外的\会影响您稍后看到的内容。

Answer 2

无需计算：

$comment =~ s.(?=").\\.g;