转义双引号修复

Question

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

这是我所拥有的：

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

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

Answer 1

插入需要转义的内容的一种方法，而不计算反斜杠

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

使用/e修饰符，替换端被评估为代码，结果用作替换。 在 perlop 中看到它，比如说， 这篇文章。 这里 this 用于通过q()与\\形成字符串文字。

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

Answer 2

无需计数：

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