Discussion :

[kriskikout]

bonjour à tous!

désolé pour le titre qui n'est pas très clair, mais je n'ai pas réussi à en trouver en moins de 25 mots!

alors, voici mon problème: je crée en ce moments des petits programmes pour apprendre.

j'ai décider de créer un jeu: le jeu du plus ou du moins (trouver le chiffre que l'ordinateur choisis.)

voici mon programme:

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
#!usr/bin/perl -w
print "\n\n-_-_-_JEU DU PLUS ET DU MOINS_-_-_-\n\n";
print "pour arreter en cours de partie, taper 111\n";
my $quitter=111;
my $essai=1000;
my $nb=int rand (100);
my $tentatives=0;
until ($essai==$nb) {
 print "choisir un nombre entre 1 et 100\n";
 $essai=<STDIN>;chop($essai);
 $tentatives++;
 if ($essai==$quitter) {
  exit;
 }
 if ($essai==$nb) {
  print "bravo!!!\n";
  print "Vous avez trouvé après $tentatives tentatives!";
 } elsif ($essai>$nb) {
  print "trop grand\n";
 } else {
  print "trop petit\n";
  }
 }
<STDIN>;
exit;

alors, vous remarquerez que pour quitter en cours de jeu, il faut taper "111"! et je trouve ça quand même vraiment moche!

J'aimerais savoir comment faire pour pouvoir remplacer "111" par "q", car remplacer

Code :

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

my $quitter=111;

par

Code :

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

my $quitter='q';

entraine une erreur...

apparement il n'aime pas comparer des lettres avec "=="!

merci d'avance!

ps: si vous pouviez critiquez un peu mon programme, me dire les choses qui ne se font pas, les petits trucs pas beau... n'hesitez pas, je suis la pour apprendre

[Jedai]

En Perl il y a une notion fondamentale trop souvent oublié par les tutoriaux : le contexte (numérique, string, ou liste). Ca permet d'utiliser la même variable en tant que string ou que nombre par exemple (c'est d'ailleurs ce que tu utilises dans ton programme, car à l'origine ce que tu lis sur STDIN est une string, mais tu la traites comme un nombre). Mais Perl doit s'appuyer sur les opérateurs et la syntaxe pour déterminer dans quel contexte est évalué chaque variable. C'est pourquoi il y a des opérateurs différent pour comparer les nombres et les strings :

Code :

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

1
2
3
4
5
6
 
== eq
< lt
> gt
<= le
>= ge

(lt = lower than, le = lower or equal, gt = greater than...)

Par ailleurs je te conseille d'utiliser chomp() plutôt que chop() car chomp() a un comportement plus intelligent (il ne supprime le dernier caractère d'une string que si celui-ci est vraiment un retour à la ligne) qui évite quelques erreurs. Et aussi rajoute 'use strict;' au début de ton programme (juste après la première ligne, le shebang), c'est un pragma (un module qui modifie le comportement de l'interpréteur) qui t'oblige à déclarer toutes les variables que tu utilises, et plus généralement impose de bonne pratiques de programmation.

--
Jedaï

[kriskikout]

merci beaucoup honorable jedaï!
je note tout ça dans ma p'tite tête!