如何在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;