Perl検索と置換コマンドが別のPerlスクリプトの中から呼び出されたときに動作しない

Question

私はPerlの初心者です。私は以下のPerlコマンドを使って自分のtclスクリプトの "/ $"シーケンスを検索して置き換えています。これはうまくいきます。linuxコマンドラインで直接使用するとうまくいきます。

perl -p -i -e 's/\/\$/\/\\\$/g' sed_list.tcl 

私は唯一の「`」バックティックとし、システムコマンドを使用して別のPerlスクリプトでPerlの上記ワンライナーを呼び出すために呼び出しています。

system(`perl -p -i -e 's/\/\$/\/\\\$/g' sed_list.tcl`); 
`perl -p -i -e 's/\/\$/\/\\\$/g' sed_list.tcl`; 

私は下のエラーが発生しています。この問題でお手伝いください。

Bareword found where operator expected at -e line 1, near "$/g" 
(Missing operator before g?) 
Final $ should be \$ or $name at -e line 1, within string 
syntax error at -e line 1, near "s//$/" 
Execution of -e aborted due to compilation errors. 

私は分離のために「％」演算子を使用すると、私はエラーが、ジョブが実行されていない表示されませんでした、私はちょうどSEDのコマンドのように％や＃などの他の分離演算子を使用することができるかどうか知らないけど。

`perl -p -i -e 's%\/\$%\/\\\$%g' sed_list.tcl`; 

ウェブ上のこの特定の問題については、十分な結果が得られませんでした。どんな助けもありがとうございます。

Answer 1

システムコマンドにコマンドを渡すか、バックティック（ ``）オペレータを使用して外部コマンドを実行できます。

system(q{perl -p -i -e 's/\/\$/\/\\\$/g' sed_list.tcl})

かのようにバッククォートを使用します：コメントでポールによって示唆されるように ：

`perl -p -i -e 's/\/\$/\/\\\$/g' sed_list_gen.tcl` 

編集文字列としてシステム（）機能にコマンドを渡してください。

Answer 2

ここでは、システムコマンドを使用している間にすべてのバックスラッシュをエスケープするか、またはPerlスクリプト内のBackTicksを使用して別のコマンドを呼び出すことを提案します。しかし、後で彼らは答えを消してしまった。それは私のために働いた。私は努力して私の質問を解決するのに私を助けてくれたすべての人に感謝したいと思います。

ここに正しい動作コードがあります。再び私を助けるためのコミュニティのための

system("perl -p -i -e 's/\\\/\\\$/\\\/\\\\\\\$/g' sed_list_gen.tcl"); 

おかげで、以下に示すよう

`perl -p -i -e 's/\\\/\\\$/\\\/\\\\\\\$/g' sed_list_gen.tcl`; 

または使用するシステム機能。 。 。