Perl-Befehl zum Suchen und Ersetzen funktioniert nicht, wenn von einem anderen Perl-Skript aus aufgerufen wird

Question

Ich bin ein Anfänger mit Perl. Ich benutze den Below Perl-Befehl, um "/ $" in meinem tcl-Skript zu suchen und zu ersetzen. Dies funktioniert gut, wenn es direkt auf der Linux-Befehlszeile verwendet wird.

Ich rufe an, den obigen Perl One Liner in einem anderen Perl Skript mit System Command und nur mit "` "Back Tick aufzurufen.

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

Ich bekomme die Below-Fehler. Bitte helfen Sie mit diesem Problem.

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. 

Ich weiß nicht, ob ich noch jemand Trennung Operator wie% verwenden und # wie SED-Befehl aber, wenn ich ‚%‘ Operator für die Trennung verwendet, ich habe Fehler nicht aber Arbeit erledigt ist nicht.

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

Ich konnte keine ausreichenden Ergebnisse für diese spezielle Ausgabe von '$' Variable im Internet finden. Jede Hilfe wird geschätzt.

Answer 1

Sie können einen externen Befehl ausführen, indem Sie den Befehl an eine Systemfunktion übergeben oder indem Sie den Operator backticks (``) verwenden. Bitte geben Sie den Befehl zum system() Funktion als String:

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

oder verwenden Sie Backticks als:

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

Edit: Wie von Paul in den Kommentaren vorgeschlagen.

Answer 2

Einige hier Vorgeschlagen, dass ich alle Back Schrägstriche entkommen sollte, während Sie System Command oder einen anderen Befehl mit BackTicks aus einem Perl-Skript aufrufen. Aber später haben sie ihre Antwort gelöscht. Es hat für mich funktioniert. Ich möchte jedem danken, der sich Mühe gegeben hat und mir bei der Lösung meiner Frage geholfen hat.

Hier ist der korrekte Arbeitscode.

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

oder Verwenden Sie die Systemfunktion als

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

Vielen Dank noch einmal für die Gemeinschaft Below

gezeigt mir helfen. . .