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

看起來您需要一個前瞻性斷言（ 請參閱perlre中的擴展模式一節 ）。

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