Manejador de archivos para la salida del comando del sistema en Perl

Question

¿Hay un identificador de archivo/manejador para la salida de un comando del sistema que ejecuto en Perl?

Answer 1

Sí, se puede utilizar un tubo de la siguiente manera:

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

consulte la documentación de open para más información, y perlipc para una descripción completa de la operación de la tubería.

Answer 2

He aquí un ejemplo de establecimiento de tuberías entre la secuencia de comandos y otros comandos, usando la forma 3-argumento de 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 ...