Discussion :

[toto_titi]

Salut,

Je suis en train de faire une interface (en mode texte). Et donc je donne le choix a l utilisateur entre differentes options.
Pour cela je lis sur l entree standart ce que l utilisateur rentre. Par contre j ai un probleme pour sortir de mon programme, car le seul moyen que j ai trouve c'est de fermer l'entree standart sur la reception d'une option et mon programme se termine sur une erreur, ce qui n est pas franchement top .

Code :

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

1
2
3
4
5
6
./interface.pl
        choix 1
        choix 2
        3 pour sortir
------->:3
Read on closed filehandle <STDIN> at ./interface.pl line 17.

Voici le code

Code :

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

1
2
3
4
5
6
7
8
print "\tchoix 1\n";
print "\tchoix 2\n";
print "\t3 pour sortir\n";
print "------->:";
while ($opt =  <STDIN>){ print "********c 1*****\n" if ($opt == "1");
		 print "********c 2*****\n" if ($opt == "2");
			 close (STDIN) if ($opt == "3");
		     }

Si quelqu'un connait un meilleur moyen pour sortir de mon interface ca serait le bien venu.

Merci

[Arioch]

remplace ton close (STDIN) par exit() tout simplement

[Arioch]

voici une version différente :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
do
{
    print "Tapez 1, 2 ou 3 : ";
    chomp($_ = <STDIN>);
    $_ = 0 if ($_ !~ /^[123]{1,1}$/);
} while (! $_);
if ($_ == 3)
{
    exit();
}
print "vous avez tapé $_\n";

[toto_titi]

Merci

En fait c etait tout simple, j avais cherche midi a quatorze heure.
La deuxieme version ca fait plus perl

A+

[Arioch]

Merci

En fait c etait tout simple, j avais cherche midi a quatorze heure.
La deuxieme version ca fait plus perl

A+

Non, il y a plus d'une façon de faire en Perl, donc il n'y a pas de version plus Perl qu'une autre

Par contre, c'est vrai que tu t'étais beaucoup torturé pour rien