Bonjour, j'ai fait un code inspiré d'un tuto perl d'un site (dont tous les membres sont en vacances, en tout cas les perlistes) qui ne me renvoie pas d'erreur mais ne fait pas ce que je voulais. voilà le code qui est assez claire je crois :

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
use strict;
use warnings;
 
print "Choisissez un animal dans la liste. \
L'ordinateur le retrouvera grace aux reponses que \
vous ferez aux questions qu'il vous posera.\n";
print "Vous repondez par oui ou par non.\n\n";
 
my $continuer="";
print "lion, elephant, girafe, gazelle\n\n";
 
while ($continuer ne "n")
 
{
	print "L'animal est-il carnivore ? \n";
	my $Reponse=<>;
	chomp $Reponse;
	if ($Reponse eq 'oui')
 
	{
		print "C'est un lion.\n";
		print "voulez-vous continuer (o/n) ? \n";
		my $continuer=<>;
		chomp $continuer;
	}
	else
	{
		print "L'animal a-t-il un long cou ? \n";
		my $Reponse=<>;
		chomp $Reponse;
	}
		if ($Reponse eq 'oui')
 
		{
			print "c'est une girafe\n";
			print "voulez-vous continuer (o/n) ? \n";
			my $continuer=<>;
			chomp $continuer;
		}
		else
		{
			print "L'animal a-t-il des defenses ? \n";
			my $Reponse=<>;
			chomp $Reponse;
		}
			if ($Reponse eq 'oui')
 
			{
				print "C'est un elephant.\n";
				print "voulez-vous continuer (o/n) ? \n";
				my $continuer=<>;
				chomp $continuer;
			}
			else
			{
				print "C'est une gazelle.\n";
				print "voulez-vous continuer (o/n) ? \n";
				my $continuer=<>;
				chomp $continuer;
			}
}
 
<>;
Le soucis c'est que quand je réponds 'non' ou 'oui' d'ailleurs à la question "voulez-vous continuer" le programme continue se s'exécuter ou également en répondant 'oui' à la question "L'animal a-t-il des défenses ?" le prog répond "C'est une gazelle".



Si quelqu'un peut m'éclairer ?