Im Allgemeinen ich Gebrauch system, open, IPC::Open2, oder IPC::Open3je nachdem , was ich tun möchte. Der qx//Bediener ist zwar einfach, aber in seiner Funktionalität zu eingeschränkt, um außerhalb schneller Hacks sehr nützlich zu sein. Ich finde openzu viel handlicher.
system: Führen Sie einen Befehl aus und warten Sie, bis er zurückkehrt
Verwenden systemSie diese Option, wenn Sie einen Befehl ausführen möchten, sich nicht um dessen Ausgabe kümmern möchten und das Perl-Skript nichts tun soll, bis der Befehl beendet ist.
#doesn't spawn a shell, arguments are passed as they are
system("command", "arg1", "arg2", "arg3");
oder
#spawns a shell, arguments are interpreted by the shell, use only if you
#want the shell to do globbing (e.g. *.txt) for you or you want to redirect
#output
system("command arg1 arg2 arg3");
qx//oder `` : Führen Sie einen Befehl aus und erfassen Sie dessen STDOUT
Verwenden qx//Sie diese Option, wenn Sie einen Befehl ausführen, erfassen möchten, was in STDOUT geschrieben wird, und nicht möchten, dass das Perl-Skript etwas tut, bis der Befehl beendet ist.
#arguments are always processed by the shell
#in list context it returns the output as a list of lines
my @lines = qx/command arg1 arg2 arg3/;
#in scalar context it returns the output as one string
my $output = qx/command arg1 arg2 arg3/;
exec: Ersetzen Sie den aktuellen Prozess durch einen anderen Prozess.
Verwenden Sie diese Option execzusammen mit, forkwenn Sie einen Befehl ausführen möchten, sich nicht um seine Ausgabe kümmern und nicht darauf warten möchten, dass er zurückgegeben wird. systemist wirklich gerecht
sub my_system {
die "could not fork\n" unless defined(my $pid = fork);
return waitpid $pid, 0 if $pid; #parent waits for child
exec @_; #replace child with new process
}
Vielleicht möchten Sie auch die Handbücher waitpidund lesen perlipc.
open: Führen Sie einen Prozess aus und erstellen Sie eine Pipe zu STDIN oder STDERR
Verwenden openSie diese Option, wenn Sie Daten in die STDIN eines Prozesses schreiben oder Daten aus der STDOUT eines Prozesses lesen möchten (jedoch nicht beide gleichzeitig).
#read from a gzip file as if it were a normal file
open my $read_fh, "-|", "gzip", "-d", $filename
or die "could not open $filename: $!";
#write to a gzip compressed file as if were a normal file
open my $write_fh, "|-", "gzip", $filename
or die "could not open $filename: $!";
IPC :: Open2 : Führen Sie einen Prozess aus und erstellen Sie eine Pipe zu STDIN und STDOUT
Verwenden IPC::Open2Sie diese Option, wenn Sie aus STDIN und STDOUT eines Prozesses lesen und in diesen schreiben müssen.
use IPC::Open2;
open2 my $out, my $in, "/usr/bin/bc"
or die "could not run bc";
print $in "5+6\n";
my $answer = <$out>;
IPC :: Open3 : Führen Sie einen Prozess aus und erstellen Sie eine Pipe zu STDIN, STDOUT und STDERR
Verwenden IPC::Open3Sie diese Option, wenn Sie alle drei Standard-Dateihandles des Prozesses erfassen müssen. Ich würde ein Beispiel schreiben, aber es funktioniert meistens genauso wie IPC :: Open2, jedoch mit einer etwas anderen Reihenfolge als die Argumente und einem dritten Dateihandle.