如何在Perl中忽略一些反斜杠但不是全部？

Question

我使用tinyperl与下面的脚本：

@lines=<STDIN>; 
foreach (@lines) { 
    s/\\(.)/($1 eq '"' or $1 eq '\\') ? $1 : '\\' . $1/eg; 
    print; 
} 

我想每一个反斜杠只有后面的字符被考虑，并删除只有下列字符是一个双引号或一个反斜杠反斜杠。 （我知道这个目的可能对你不合适，但没关系）。

例如，我想将abc\ndef\\ghi\"\\\n转换为abc\ndef\ghi"\\n。但是这个脚本似乎将其转换为abcndef\ghi"\n。

你能帮忙吗？

Answer 1

尝试

s/\\([\\"])/$1/g; 

的[]给出匹配任何一个反斜杠或双引号，所以我们说更换一个反斜杠后接一个反斜杠或双引号用哪个字的字符类匹配的字符类。

Answer 2

看起来你想要一个预见断言（see the section in perlre on Extended Patterns）。

s/\\(?=[\\"])//g;