"monitoring" d'un script2 lancé par un script1

Bonsoir à tous,

Il me reste un dernier petit détail à régler au niveau de script1 qui appelle script2.
Je sollicite votre aide car c'est trop spécifique pour apparaitre dans la faq....

"script2.pl" analyse un fichier texte, et fait défiler les lignes à l'écran au fur
et à mesure de l'avancement du traitement.
=> visualisation de l'avancement.

souci :
lorsque "script2" est lancé par "script1" , l'écran reste noir pendant quelques minutes,
puis toutes les lignes apparaissent d'un seul coup à la fin du script.
=> plus de monitoring en temps réel.

Comment puis-je modifier cette différence de comportement ?

Merci.

my @data;
foreach(qx/perl script/)
{
print ;
push @data,$_;
}

ce que tu veux avec @data ?

Bonjour

Peut-être un problème de tampon sur STDOUT ?

Essai de passer l'écriture direct (sans tampon) de STDOUT :

Code:

---

1 2 3

select STDOUT; $| = 1 ;

---

A+
Rv

@stratch
@tfe

Merci pour vos suggestions. J'ai les ai essayées toutes les deux, en vain.

J'insiste sur le fait que le second script se lance et s'effectue parfaitement.

La console de script1.pl ne visualise la sortie de script2.pl
qu'à la fin du déroulement de ce dernier.

Help :wink:

Es-tu sûr que tu as mis la solution de Strach au début de tes deux scripts ?
Et quelle commande utilises-tu pour exécuter le script2 ?

--
Jedaï

Citation:

---

Envoyé par Jedai

Es-tu sûr que tu as mis la solution de Strach au début de tes deux scripts ?
Et quelle commande utilises-tu pour exécuter le script2 ?

--
Jedaï

---

Je viens de re-vérifier que ceci est présent en début de chaque script :

Code:

---

1 2	select STDOUT; $| = 1 ;

---

script1 est lancé à la main à la console :.

Code:

---

1 2

./auto.pl

---

l'appel à script2 par script1 se fait comme ceci :

Code:

---

1 2	my @Result = qx/perl xml.pl -t 1 -v -c $GrabDir"channels.conf" -x $GrabDir$XmlFileName -l $GrabDir$ChannelsTransName/;

---

Je confirme que cela ne change rien.
script2 n'affiche ses informations qu'à la fin de son déroulement. Pendant toute la phase de traitement,
la console reste désespérement noire...

Rien de surprenant à cela, puisque tu rediriges la sortie standard du programme vers ton programme Perl. En fait il ne devrait rien afficher du tout, s'il affiche quelque chose c'est qu'il écrit sur la sortie d'erreur.
Comme pour ton autre message, la solution est d'utiliser open2, et de réaliser toi-même l'écho des messages au fûr et à mesure que tu les récupères.

--
Jedaï