sedシステムコマンドperlスクリプト

Question

以下のようなシステムコマンドをperlスクリプトに入れようとしていますが、 sed式には引用符とバッククォートの両方が含まれています。これらのすべてをエスケープする方法がわからないので、システムコマンドを必要なだけ正確に実行します。ここで

は、コマンドの例を示します。

mysql -u root -D porta-billing -e "..." | sed "s/'/\'/;s/\t/\",\"/g;s/^/\"/;s/$/\"/;s/\n//g" 

Answer 1

あなたが求めている質問への答えはqx(...)演算子を使用することです。 qx(...)はバックチックの "独自の区切り文字を選択する"バージョンです。

my $output = qx[ ... ]; 

それとも

my $output = qx(...); 

それとも

my $output = qx! ... !; 

それはあなたのコマンド文字列内の文字と衝突しません区切り文字を見つけるのは簡単です。

しかし、あなたはに尋ねるべきである質問への答えは二つの部分があります：あなたのPerlプログラムからmysqlを呼び出さないでください

• を - 代わりにDBIを使用しています。
• Perlプログラムからsedを呼び出してはいけません。あなたのテキストを操作するためにPerlコードを使用してください。

私の答えの最初の部分については、ちょっと心配しています。私はあなたのハックの回避策を取って、維持できない混乱で終わることを心配しています。この場合は無視しても、後半のアドバイスに注意してください。