perlで変数を含む二重引用符を出力するには

Question

この二重引用符で囲まれた文を変数で印刷しようとすると、いくつかの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"`; 

この部分は私に問題を与えている。代わりに"string"の| 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}をエスケープするために、二重引用符を必要としない補間された文字列を作成します。これにより、管理が容易になります。