[IPC::Open3] utilisation - avec/sans Tk

Salut,

J'ai quelques questions sur l'utilisation de ce module IPC::Open3 Sous Windows XP. Je souhaite récupérer les SDOUT et SDERR dans 2 variables différentes afin de faire des tests, etc.

voici mon code

Code:

---

1 2 3 4 5 6

use IPC::Open3; my $commande = "dir"; my($entree_IN, $sortie_OUT, $sortie_ERREUR) = (); my $pid = IPC::Open3::open3($entree_IN, $sortie_OUT, $sortie_ERREUR, $commande ); my $message_erreur = join("",<$sortie_ERREUR>); print "Erreur : $message_erreur\n" if($message_erreur);

---

j'ai le message d'erreur suivant :

Citation:

---

Use of uninitialized value in <HANDLE> at test.pl line 10.
readline() on unopened filehandle at test.pl line 10.

---

c'est cette ligne

Code:

---

my $pid = IPC::Open3::open3($entree_IN, $sortie_OUT, $sortie_ERREUR, $commande );

---

1- si j'essaye de faire plutot

Code:

---

my $message_erreur = join("",<$sortie_OUT>);

---

Je récupère le SDOUT, mais aussi les messages d'erreur en cas de commandes erroné comme my $commande = "toto"; et ça ne m'interesse pas.

2 - si j'initialise $sortie_ERREUR à 1, alors ça fonctionne si la commande est erroné. Mais si la commande est ok, le script ne me rend pas la main et j'ai dans le gestionnaire de tache un nouveau processus cmd qui tourne en rond.

Que faire? Comment le module fonctionne? surtout que je souhaiterais aussi l'utiliser dans un script Tk

Le problème est que cela dépend de la commande que tu souhaites envoyer.
Cette année dans le cadre d'un projet j'ai eu à manipuler des logiciel en ligne de commande en passant par perl. Or certain de ces logiciels "bufferisaient" leur entrée/sortie standard d'où l'impossibilité pour moi d'utiliser le module IPC:Open3.
En effet, je me suis retrouvé avec un problème un peu dans le même genre que le tien avec la commande qui ne redonnait pas la main.
Du coup je me suis rabattu sur les pseudo-terminal mais c'était sous Linux et je ne sais pas si il existe un équivalent sous windows.
Il me semble que sous linux il s'agissait de la lib IO:: Pty::Easy
Maintenant si Open3 fait des couilles essai IPC::Run qui fonctionne sur le même principe.
Voili Voilou
FX

[EDIT]J'avais oublié, essai de voir sans initialiser tes variable qui recup les E/S standard :

Code:

---

my($entree_IN, $sortie_OUT, $sortie_ERREUR);

---

[/EDIT]