Filehandle pour la sortie de la commande système en Perl

Question

Existe-t-il un handle/handle de fichier pour la sortie d'une commande système que j'exécute en Perl?

Answer 1

Oui, vous pouvez utiliser un tuyau comme ceci:

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

Voir la documentation open pour plus d'informations et perlipc pour obtenir une description complète de fonctionnement de la conduite.

Answer 2

Voici un exemple d'établir des tuyaux entre votre script et d'autres commandes, en utilisant la forme de open 3 arguments:

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 ...