Discussion :

[goanes]

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

[Mr6]

Salut !

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

@+
Mr6

[goanes]

Salut !

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

@+
Mr6

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

[djibril]

voici un exemple pour t'aider

Code :

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

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;
}

[goanes]

voici un exemple pour t'aider

Code :

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

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

[Jedai]

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

Code :

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

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ï

[goanes]

je pense que ça va répondre à mes besoins
j'essaie ça demain
merci

[goanes]

super ça marche
quoi que un peu lent

[Jedai]

super ça marche
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ï