Discussion :

[ctobini]

Bonjour,

Je fais appel dans un script Perl à un script Python préexistant.

Mon problème est que ce script Python demande de saisir 4 valeurs, les commandes system et exec ne peuvent intéragir avec le programme appelé.

Je suis en train de décortiquer la doc du module Expect mais je ne trouve pas comment faire ceci.

Sauriez-vous comment intéragir de cette manière avec un programme extérieur (par module Expect ou autre) ?

En vous remerciant.

C. Tobini

[Jedai]

Tu spawn() ta commande Python, tu expect() le prompt pour la première valeur, que tu send(), etc... Je ne vois pas le problème, a priori c'est le cas le plus simple d'emploi de Expect que je puisse imaginer.

--
Jedaï

[ctobini]

Bonjour,

J'ai bien compris la manière générale dont fonctionne Expect, mais mon problème c'est la manière de l'utiliser :

Côté Python, si j'ai un script simple :

Code :

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

1
2
3
4
print 'Saisir nombre 1'
nb1 = input()
print 'Saisir nombre 2'
nb2 = input()

Côté perl, j'utilise
my $exp = Expect->spawn(./script.py);
my $line = $exp->expect me renvoie chaque ligne

Si j'ai bien compris, c'est au moment où Python demande nb1 = input() qu'il faudrait effectuer le $line->send() et là je ne sais pas comment le lui indiquer.

C. Tobini

Balises codes ajoutées par GLDavid, merci d'y penser la prochaine fois

[Jedai]

Tu fait un truc comme :

Code :

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

1
2
3
4
 
my $exp = Expect->spawn(./script.py);
my $line = $exp->expect( 100, qr/Saisir nombre 1/ );
$exp->send( "48\n" );

Il faut spécifier ce que doit "attendre" expect pour que ça marche !

--
Jedaï

[ctobini]

Justement, si le code Python est :

Code :

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

1
2
3
 
print 'Saisir :'
n = input()

C'est possible d'appliquer un regex pour 'Saisir', mais comment faire comprendre à Expect que c'est au moment de l'input qu'il faut envoyer du texte ?

C. Tobini

[Arioch]

Côté Python, si j'ai un script simple :

Code :

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

1
2
3
4
print 'Saisir nombre 1'
nb1 = input()
print 'Saisir nombre 2'
nb2 = input()

Est-ce qu'il t'es possible de modifier le script Python afin qu'il reçoive les 4 valeurs à saisir en tant qu'arguments fournis à son lancement en tant que paramètres ?

J'ignore comment Python gère les arguments fournis en paramètres mais en Perl, les arguments vont dans la liste @ARGV

En imaginant que ce soit un script Perl (et non Python) qui était exécuté, cela donnerait par exemple :

Code :

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

($nb1, $nb2, $nb3, $nb4) = @ARGV;

Et le script Perl serait lancé comme suit :

Code :

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

mon_script.pl argv1 argv2 argv3 argv4

Si ça peut t'aider ?

[Jedai]

Justement, si le code Python est :

Code :

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

1
2
3
 
print 'Saisir :'
n = input()

C'est possible d'appliquer un regex pour 'Saisir', mais comment faire comprendre à Expect que c'est au moment de l'input qu'il faut envoyer du texte ?

C. Tobini

Tu n'essaie jamais de tester les choses par toi-même ? Si tu utilise expect() avec la bonne regex ça attends que la regex ait bien été matché. Donc si tu fait un send() après, ça sera bien envoyé au input...

--
Jedaï

[ctobini]

Et tu crois que j'ai fait un post sauvage sans tourner le expect et le send dans tous les sens ?

L'input renvoie un timeout car le send essaie d'envoyer la chaîne sur le regex, ce qui me semble normal puisque le send ne s'applique pas à la ligne de sortie traitée par le regex mais sur l'input.

[Jedai]

Dans tous les sens ? Pas assez en tout cas, car les deux programmes suivants marchent parfaitement ensemble :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
#! /usr/bin/perl
use strict; use warnings;
 
use Expect;
 
my $exp = Expect->spawn( "python test_expect.py" );
 
$exp->expect( 300, "Saisir : " );
$exp->send( "32\n" );
 
$exp->expect( undef );

Code :

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

1
2
3
4
5
6
 
#! /usr/bin/python
 
print "Saisir : "
truc = input();
print "##" , truc , "##"

...

--
Jedaï

[ctobini]

Bon, ben c'est parfait, ça marche ! Merci beaucoup !

Vu que tu es expérimenté, que tu sembles connaître expect et que j'ai envoyé un code simplissime, pourquoi ne pas m'avoir mis dans ton premier post qu'il fallait ajouter

Code :

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

$exp->expect(undef)

pour indiquer qu'il n'y a plus d'entrée, au lieu de me laisser patauger ?

C. Tobini

[Jedai]

Je ne connais rien à Expect, ne l'ai jamais utilisé, et je me suis spécialement plongé dans sa doc pour t'aider... (je note que tu n'as jamais envoyé de code Perl que j'aurais pu facilement corriger...)
Quant au expect(undef), il sert simplement à attendre indéfiniment, de façon à laisser le script Python tourner.

De rien !

--
Jedaï

[ctobini]

OK, je t'en remercie sincérement, inutile d'être agressif dans tous tes posts, je ne t'agresse pas !

Pour ce qui est du code Perl, ça ne va pas plus loin que les 4 lignes que j'ai donné en exemple, tu vois bien qu'il ne manquait que le 'undef' pour que ça fonctionne, ce que je n'avais pas assimilé en lisant la doc.

En tout cas merci encore, ça m'enlève une sérieuse épine du pied.

C. Tobini

[djibril]

Calmez les esprits les amis!!! Pas la peine de s'enerver, tel n'est pas le but du forum.
Si le probleme est résolu ctobini, oublie pas de mettre un tag resolu. (bas de page, à gauche)
Merci de votre compréhension,
Djibril