Filehandle per l'output dal comando di sistema in Perl

Question

Esiste un filehandle/handle per l'output di un comando di sistema eseguito in Perl?

Answer 1

Sì, è possibile utilizzare un tubo in questo modo:

open(my $pipe, "ls|") or die "Cannot open process: $!"; 
while (<$pipe>) { 
    print; 
} 

Vedere la documentazione per open per ulteriori informazioni, e perlipc per una descrizione completa del funzionamento del tubo.

Answer 2

Ecco un esempio di stabilire tubi tra la sceneggiatura e altri comandi, utilizzando il modulo 3-argomento open:

open(my $incoming_pipe, '-|', 'ls -l')    or die $!; 
open(my $outgoing_pipe, '|-', "grep -v '[02468]'") or die $!; 

my @listing = <$incoming_pipe>;   # Lines from output of ls -l 
print $outgoing_pipe "$_\n" for 1 .. 50; # 1 3 5 7 9 11 ...