如何在perl中打印出帶有變量的雙引號語句

Question

我需要一些perl幫助，試圖用變量打印這個帶雙引號的語句，以及一些unix sed命令，我似乎無法正確地轉義。

我對執行它不感興趣，但只是想將其打印到文件中。謝謝你的幫助。

print MYOUTFILE "mysql -u foo -pbar --database $dbsrc -h $node --port 3306 -ss -e \"SELECT 'a','b','c' UNION SELECT col1, col2, col3 FROM $tblist limit 10\" | sed 's/\t/","/g;s/^/"/;s/$/"/;s/\n//g' > myDump.csv\"\n"`; 

特別是這一部分是給我一個問題：| sed 's/\t/","/g;s/^/"/;s/$/"/;s/\n//g' > myDump.csv\"\n";

Answer 1

爲了減少逃生併發症，用在需要的時候q和qq：

print MYOUTFILE qq{mysql -u foo -pbar --database $dbsrc -h $node --port 3306 -ss -e "SELECT 'a','b','c' UNION SELECT col1, col2, col3 FROM $tblist limit 10"}, q{ | sed 's/\t/","/g;s/^/"/;s/$/"/;s/\n//g' > myDump.csv}, "\n"; 

Answer 2

使用qq{string}，而不是"string"創建一個字符串插值不需要雙引號字符轉義。它使事情變得更容易管理。