command Unix (+ clavier) sous perl

Version imprimable

29/08/2007, 16h12
goanes

command Unix (+ clavier) sous perl

bonjour

je souhaite exécuter un programme sous perl.
le probleme c'est qu'il s'agit d'un programme qui ne prend pas d'argument.
par contre il pose des questions et attend une réponse clavier (3 fois).

question 1
aaa
question 2
bbb
question 3
ccc

comment puis-je faire cela avec perl ???
programme aaa bbb ccc : ne fonction pas sous unix
programme < fichier : fonction sous unix

y-a-t-il une façon simple de gérer ça sous perl
ou faut-il créer un fichier ?
quelle est la façon la plus simple de créer un fichier
et de rajouter
$aaa\n
$bbb\n
$ccc\n

merci
29/08/2007, 17h04
Mr6

Salut !

Réponse rapide : fonction open() !
Réponse longue... plus tard j'ai pas le temps ;):lol:

@+
Mr6

voici un exemple pour t'aider

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#!/usr/bin/perl
use strict;
use warnings;
$| = 1;
 
my $nom    = pose_question("Quel est ton nom");
my $prenom = pose_question("Quel est ton prenom");
my $age    = pose_question("Quel est ton age");
 
print "Bonjour $nom $prenom, Vous avez $age ans\n";
 
sub pose_question {
    my $question = shift;
    print "$question : ";
    my $reponse = <STDIN>;
    chomp $reponse;
    print "\n";
 
    return $reponse;
}

29/08/2007, 22h02
goanes

Citation:

Envoyé par Mr6

Salut !

Réponse rapide : fonction open() !
Réponse longue... plus tard j'ai pas le temps ;):lol:

@+
Mr6

c'est bien ce que je pensais avec open()
mais j'attends voir quand meme la réponde longue

Citation:
Envoyé par djibril
voici un exemple pour t'aider
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 #!/usr/bin/perl use strict; use warnings; $| = 1; my $nom = pose_question("Quel est ton nom"); my $prenom = pose_question("Quel est ton prenom"); my $age = pose_question("Quel est ton age"); print "Bonjour $nom $prenom, Vous avez $age ans\n"; sub pose_question { my $question = shift; print "$question : "; my $reponse = <STDIN>; chomp $reponse; print "\n"; return $reponse; }
merci pour cette exemple
mais c'est pas vraiment ce que je souhaite faire.
les questions sont posé par un programme externe (et ne prend pas de paramètre)
je souhaite donner les paramètres au programme externe directement avec perl

Si le programme n'est pas trop complexe, tu peux sans doute faire :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
use IPC::Open2;
 
my($chld_out, $chld_in);
my $pid = open2($chld_out, $chld_in, 'some cmd and args');
 
print {$chld_in} "$aaa\n$bbb\n$ccc\n";
# close $chld_in; # peut-être nécessaire, décommente si ça ne marche pas
 
while(my $line = <$chld_out>) {
   print $line;
}
 
waitpid $pid, 0;

Sinon, il vaut mieux que tu utilises le module Expect du CPAN.

--
Jedaï

29/08/2007, 22h52
goanes

je pense que ça va répondre à mes besoins
j'essaie ça demain
merci
31/08/2007, 17h22
goanes

super ça marche :king:
quoi que un peu lent
31/08/2007, 18h13
Jedai

Citation:

Envoyé par goanes

super ça marche :king:
quoi que un peu lent

A priori ce n'est pas plus lent qu'une autre solution... A partir du moment où tu es obligé de créer un processus, c'est de toute façon la création de ce processus par le système d'exploitation qui est le facteur limitant quelque soit le langage. C'est pour ça qu'un script Perl (écrit en Perl, pas juste du "bash in Perl") est toujours plus rapide que le script bash correspondant (celui-ci crée un tas de processus).

--
Jedaï