爲什麼我的反斜槓在我的Perl單線程中消失？

Question

我嘗試了搜索和目錄中的所有文件替換如下：

/usr/bin/perl -p -i -e "s/Else/Else FILE_WRITE(\"C:\\TestDir\\mes.txt","Message received");/g"   *.scr 

這是"Else FILE_WRITE(\"C:\TestDir\mes_.txt","Message received");"

但更換更換的Else所有發生難度看到如下：

Else FILE_WRITE("C:TestDir^@mes.txt); 

我錯過了什麼？

Answer 1

這實際上是一個shell問題，而不是Perl問題。

您需要在文件名中跳過斜槓，否則shell會將它們解釋爲轉義序列。

你有什麼權利現在：

$ echo "s/Else/Else FILE_WRITE(\"C:\TestDir\mes.txt","Message received");/g" 
bash: syntax error near unexpected token `)' 

你想要什麼：

$ echo "s/Else/Else FILE_WRITE(\"C:\\TestDir\\mes.txt\",\"Message received\");/g" 
s/Else/Else FILE_WRITE("C:\TestDir\mes.txt","Message received");/g 

在未來，儘量使用單引號代替雙引號。然後，你可以不逃逸寫：

$ echo 's/Else/Else FILE_WRITE("C:\TestDir\mes.txt","Message received");/g' 
s/Else/Else FILE_WRITE("C:\TestDir\mes.txt","Message received");/g 

Perl的靈活Q和QQ運營商也有幫助：

$ perl -e 'print q{A double quote looks like this -> "}' 
A double quote looks like this -> "