Comment faire pour donner une réponse à un prog executé par Perl

Bonjour tout le monde,

J'ai un souci assez urgent, j'ai fait un script qui me permet d'annaliser un programme executé en ligne de commande.

pour faire très simple, mon script perl contient cette ligne :

'monExecutale.exe -option1 -option2';

Seulement, cet executable requiere que l'on tappe sur la touche enter à la fin de son execution. Comment faire celà en Perl ??

moi, j'en ai pas la moindre idée.....

Soit tu manipules les entrées/sorties du programme avec des pipes (voir la doc de open() ) ou avec open2()/open3(), soit tu utilises carrément le module Expect qui a été écrit pour ça.

--
Jedaï

Merci pour l'info, je suis assez nouveau dans le monde de perl. J'ai effectivement trouvé des infos avec open. voilà maintenant la forme de mon code :

Citation:

---

open SORTIE, "monExecutable |";
while( my $ligne = <SORTIE> ) {
# la ligne courante est stockée dans $ligne
print $ligne;
if ($ligne =~ /ENTER/) {
# c'est ici que je doit envoyer le retour chariot
}
}
close SORTIE;

---

Le problème c'est que j'ai vraiement l'impression que rien ne se passe dans la boucle... ? des suggestions ? ai-je fait une erreur ?

Sinon je ne connait pas le module Expect.

S'il vous plait !!!! De l'aide ! Je m'en sort pas....

Citation:

---

Envoyé par ElTorro

Sinon je ne connait pas le module Expect.

---

Et qu'est-ce qui t'empêche d'aller voir sa documentation exactement ?

--
Jedaï

Navré de ne pas m'etre expliquer sur ce point.

Je suis allé voir la doc de Expect, mais pour ainsi dire, je n'ai pas tout compris. Comme je le disais, je suis novice sur Perl, je ne sais pas comment installé ce pm et Tty.pm sur windows.
Je pensais qu'il serait plus simple d'utiliser open, ou open2. Je me suis peut etre tromper.
Je suis chez le client pendant encore deux heures, et je ne voudrait pas lui tomber son perl en faisant une mauvaise install.
Suffit-il de copier les .pm dans lib pour les installer ?

Et ou-est ce que je peut trouver une explication simple de Expect (sans rajouter à mon ignorance l'utilisation de TCP, telnet, ou autre...) ?

Merci

t'aurais pu aussi faire une recherche web et par la meme trouver des exemples

Code:

---

1 2 3

my $var = Expect->spawn("path de ton binaire") or die "Cannot spawn process $!\n";

---

et au vue de ton post tu n'est pas aller voir la doc :: pas bien .

Vous me prenez pour un Américain ?

Je l'ai bien vu cette ligne de commande, mais tant que je n'arrive pas a installer ce module je suis dans les choux.
De plus, cette ligne de commande permet de lancer le binaire que je veux OK, mais si c'était juste pour faire une execution je me prendrai pas la tête et j'utiliserai `` ou exec ou open...

Citation:

---

Envoyé par ElTorro

Je suis allé voir la doc de Expect, mais pour ainsi dire, je n'ai pas tout compris. Comme je le disais, je suis novice sur Perl, je ne sais pas comment installé ce pm et Tty.pm sur windows.

---

Si tu es sous Windows, sauf si tu utilises Cygwin, tu peux oublier Expect, ça ne marche pas (c'est marqué dans la doc, soit dit en passant). Pour les explications sur l'installation de module, tu peux aller voir notre FAQ.

Utilise donc open2 (module IPC::Open2, fait partie du CORE, tu n'as donc pas besoin de l'installer).

--
Jedaï

Citation:

---

Envoyé par Jedai

Si tu es sous Windows, sauf si tu utilises Cygwin, tu peux oublier Expect, ça ne marche pas (c'est marqué dans la doc, soit dit en passant)
Jedaï

---

:lol:

En fin une bonne nouvelle ! Merci de ton aide, je commencais à desesperer.

Je me lance dans open2