[langage] Fermer mon programme

**frees3x** · 30/10/2006, 18h01

J'aimerais que lorsque je rentre la touche Q ca ferme mon programme , pour l'instant j'en suis a la :

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
$_ = 0;
do {
    print "Pour calculer le prix HT depuis le prix TTC entrez (1),\n";
    print "pour calculer le prix TTC depuis le prix HT entrez (2),\n";
    print "ou 'Q' pour Quitter : ";
    chomp($_ = <STDIN>);
      $_ = 0 if (! $_ || ($_ ne "1" && $_ ne "2" && $_ ne "Q"));
    } while(! $_);
 
    $variablepourfermer = <stdin>;
    if($variablepourfermer == "Q")
    {
    $variablepourfermer == exit(0) ;
    }
exit 0 if $variablepourfermer == "Q";

mais ca marche pas enfin il y a un bug , comment corriger ca ?

**GnuVince** · 30/10/2006, 19h21

Utilise IO::Prompt de CPAN. Voici deux exemples d'utilisations:

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
 
use IO::Prompt;
 
print <<EOF;
1. J'aime les pissenlits
2. J'ai perdu le do de ma clarinette
Q. Quitter
EOF
my $valeur = prompt "> ", -1, -r => { "Choix invalide >" => qr/[12q]/i };
print "\n$valeur\n";
 
my $valeur = prompt 'Fais ton choix:', -1,
                    -menu => {
                      pissenlits => 'J\'aime les pissenlits',
                      clarinette => 'J\'ai perdu le do de ma clarinette',
                      quit       => 'Quitter',
                    };
print "\n$valeur\n";

Une fois $valeur obtenue, c'est un jeu d'enfants de faire le if pour quitter. Bonne chance

**Arioch** · 31/10/2006, 10h13

Bonjour,

pas trop la peine d'utiliser un module externe, juste pour si peu

Ton code ne fonctionne pas parce que tu t'es mélangé les pinceaux entre l'opérateur d'égalité "eq" utilisé avec 2 chaines de caractères et l'opérateur "==" utilisé avec du numérique.

Voici ton code remanié (je garde ton code faux en commentaires) :

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
$_ = 0;
do {
    print "Pour calculer le prix HT depuis le prix TTC entrez (1),\n";
    print "pour calculer le prix TTC depuis le prix HT entrez (2),\n";
    print "ou 'Q' pour Quitter : ";
    chomp($_ = <STDIN>);
      $_ = 0 if (! $_ || ($_ ne "1" && $_ ne "2" && $_ ne "Q"));
    } while(! $_);
 
#    $variablepourfermer = <stdin>;
   $variablepourfermer = $_;
#   if($variablepourfermer == "Q")
#   if($variablepourfermer == "Q")
#   {
#    $variablepourfermer == exit(0) ;
#    }
 
#exit 0 if $variablepourfermer == "Q";
exit if $variablepourfermer eq "Q";

Voilà, j'ai mis en commentaire ton bloc de fin de code pour ne retenir que la dernière ligne qui fait quitter ton programme si la lettre tapée au clavier est "Q".

Attention : si l'utilisateur tape "q" minuscule, ça n'a rien à voir avec le "Q" majuscule.

Essaie maintenant, ça devrait mieux fonctionner

**Woufeil** · 31/10/2006, 12h36

Bonjour,

Juste une petite précision, quand on reçoit une saisie au clavier en lisant le handle stdin, on reçoit aussi le retour chariot \n, donc à chaque lecture de stdin, il fut systématiquement faire un chomp.

Je le précise au cas où car dans le code de frees3x cela n'a pas été fait