Können wir eine Bash-Instanz in Perl-Skript erstellen?

Question

Ich versuche, Perl zu verwenden, um einen Prozess zu erstellen, der Bash und dann eine Datei sample.txt erstellt, aber nach dem Bash-Befehl kann ich keine Ausgabe auf der Konsole oder sample.txt Datei in der gleichen Verzeichnisstruktur sehen. Kann mir jemand helfen, den folgenden Code zu reparieren?

my $var = `bash -l`; 
system($var); 
print "Done!"; 

my $filename = 'sample.txt'; 
open(my $fh, '>', $filename) or die "Could not open file '$filename' $!"; 
chmod(0777, "sample.txt"); 
print $fh "hello"; 
close $fh; 
print "Done 1!.."; 

Answer 1

Bash -l Argument überzeugt es interaktiv zu bleiben. Laufen:

perl -e 'print `bash -l`' 

Auf seiner eigenen hat die Bash-Prozess interaktiv stdin gebunden, aber der Ausgang des subprocess wird durch perl erfasst und ausgedruckt später, wenn bash beendet wird, die es nur tun, wenn Sie SteuerD drücken , Ausgabe 10 oder logout usw.

Sie wollten wahrscheinlich mit $var = 'bash -l'; beginnen. Das wird zuerst interaktiv starten, und wenn Sie beenden, wird der Rest des Programms fortgesetzt. Für mich ist es ungewöhnlich zu wollen dies zu tun, und ich erwarte, dass Sie etwas für Bash schreiben sollten, die normalerweise mit dem -c Argument normalerweise beendet.

Ersetzen Sie Ihre ersten beiden Zeilen Code mit:

system("bash", "-c", "echo Hello World!"); 

erreicht dies, und der Rest des Programms führt normalerweise. Ich bin mir nicht sicher, was Sie aber für Sie tun wollten. Diese Beispielfälle würden mit nur
system("echo", "Hello World!") oder print "Hello World!" besser erreicht werden.