Discussion :

[richarno]

Bonjour,

Je voudrais, depuis un script, lancer une commande quelconque et récupérer sa sortie de manière asynchrone. Par exemple, je voudrais lancer la commande "dir /S C:\" et récupérer sa sortie au fur et à mesure de l'exécution.

Le script suivant devrait convenir:

my $cmd="dir /S C:\";
open( TMP, "$cmd|");
foreach(<TMP>) {
print;
}

Malheureusement il semble que le pipe ("|") ne fonctionne pas pleinement et que la sortie se fasse dans un fichier temporaire. En effet, je ne récupère la sortie que lorsque la commande a terminé son exécution.

Normalement il ne devrait pas y avoir ce problème (excepté sur Windows 95/98)

Avez-vous une idée de la manière de régler ce problème ?

Merci, Bruno.

[MarneusCalgarXP]

Bonjour,

et bienvenue sur le forum.

Tout d'abord, au niveau de la syntaxe:
Dans ton code, ce serait plutot un while qu'un foreach qu'il faudrait utiliser.
De plus, ne pas oublier de mettre un espace entre la commande et le pipe
Enfin, ne pas oublier le close à la fin.

Ce qui peut bloquer ensuite, c'est la bufferisation : perl utilise des buffers, et il est probable que le résultat d'un dir soit bien inférieur à la taille du buffer utilisé, par conséquent, vu que le buffer n'est pas rempli à 100%, il te faut attendre la fin de la commande, soit la fermeture du buffer, pour qu'un résultat s'affiche.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
my $cmd='dir /S C:\ ';
open( TMP, "$cmd |");
while(<TMP>) {
    print;
}
close(TMP);

PS: la prochaine fois, pense à utiliser la balise CODE, c'est plus propre !

[richarno]

Ca marche avec l'espace, et j'ai aussi changé le foreach en while.
(le close était déjà dans mon code).

Bruno