Comment recevoir une sortie de commande immédiatement?

Question

J'utilise la syntaxe perl back-ticks pour exécuter certaines commandes. Je voudrais que la sortie de la commande soit écrite dans un fichier et aussi imprimée sur stdout. Je peux accomplir le premier en ajoutant un > à la fin de ma chaîne cochée en arrière, mais je ne sais pas à chaud pour que la sortie soit imprimée dès qu'elle est générée. Si je fais quelque chose comme

print `command`; 

la sortie est imprimée seulement après command fin d'exécution.

Merci, Dave

Answer 1

Vous ne pouvez pas le faire avec les accents graves, car ils renvoient au programme Perl que lorsque l'exécution est terminée.

Ainsi,

print `command1; command2; command3`; 

attendra que command3 se termine à quoi que ce soit de sortie.

Vous devez utiliser un tuyau au lieu de contre-apostrophes pour être en mesure d'obtenir la sortie immédiatement:

open (my $cmds, "-|", "command1; command2; command3"); 
while (<$cmds>) { 
     print; 
} 
close $cmds; 

Une fois que vous avez fait cela, vous avez ensuite si vous voulez ou non en mémoire tampon (selon la façon immédiate vous voulez que la sortie soit): Suffering from buffering?

pour imprimer et stocker la sortie, vous pouvez ouvrir() un fichier à écrire la sortie:

open (my $cmds, "-|", "command1; command2; command3"); 
open (my $outfile, ">", "file.txt"); 
while (<$cmds>) { 
     print; 
     print $outfile $_; 
} 
close $cmds; 
close $outfile;