Discussion :

[louisis]

j'ai un problème, je voudrais laisser l'utilisateur choisir parmi 3 possibilités ( qui correspondent à 1, 2,ou 3) et tant qu'une des 3 possibilités n'est pas sélectionnée par l'utilisateur et bien je lui repropose ces 3 possibilités.
C'est ce qui se passe si je tape un chiffre différent de 1, 2 ou 3.
Le problème est que lorsqu'ensuite je tape 1 , 2 ou 3 , la suite du programme ne tourne pas!

mon code est:

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
21
22
23
24
25
26
27
 
$choix = <STDIN>;
 
while ($choix!=1 || $choix!=2 || $choix!=3)
{
print "Mauvaise frappe, recommencez!\n\n";
print "Pour jouer tapez 1\n";
print "Pour recommencer tapez 2\n";
print "Pour arreter tapez 3\n";
$choix = <STDIN>;
}
if ($choix == 1) 
 
	{
print " jouer "; 
 } 
 
if ($choix == 2) 
 
	{
print " recommencer"; 
 }
 
if ($choix == 3) 
{	
print "arreter";
}

merci

[Jeh]

Désolé pour tout à l'heure, y'avait un lien sur la doc Perl...
Pour ici, essaie un chomp($choix) avant de tester sa valeur, car avec stdin, tu te récupère un retour chariot.

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
21
22
23
24
25
26
27
28
 
$choix = <STDIN>; 
chomp($choix);
while ($choix!=1 || $choix!=2 || $choix!=3) 
{ 
print "Mauvaise frappe, recommencez!\n\n"; 
print "Pour jouer tapez 1\n"; 
print "Pour recommencer tapez 2\n"; 
print "Pour arreter tapez 3\n"; 
$choix = <STDIN>; 
} 
chomp($choix);
if ($choix == 1) 
 
   { 
print " jouer "; 
 } 
 
if ($choix == 2) 
 
   { 
print " recommencer"; 
 } 
 
if ($choix == 3) 
{    
print "arreter"; 
}

[louisis]

ca ne marche tjrs pas! et le plus étonnant c'est que même qd je tape 1, 2 ou 3 ca ne marche plus alors que sans la boucle while ca marche qd je tape 1,2 ou 3

[Jeh]

en fait pour ce que tu veux, ce n'est pas le "ou" qu'il faut utiliser mais le "ET" :

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
21
22
23
24
25
26
27
28
29
print "ENTREE : ";
$choix = <STDIN>; 
chomp($choix); 
print "CHOIX = $choix";
while (($choix!=1) and ($choix!=2) and ($choix!=3)) 
{ 
print "Mauvaise frappe, recommencez!\n\n"; 
print "Pour jouer tapez 1\n"; 
print "Pour recommencer tapez 2\n"; 
print "Pour arreter tapez 3\n"; 
$choix = <STDIN>; 
} 
chomp($choix); 
if ($choix == 1) 
 
   { 
print " jouer "; 
 } 
 
if ($choix == 2) 
 
   { 
print " recommencer"; 
 } 
 
if ($choix == 3) 
{    
print "arreter"; 
}

[louisis]

en faisant un copié-collé ca na marche pas, (je suis sous MAC OS et à chaque fois que je fais des copié collé ca ne marche js et il faut que je retape tout le code!)
je voulais qd même savoir si ca marche chez toi?

[louisis]

ca y est ca marche merci bcp!