Réexécuter le script

Version imprimable

08/02/2006, 22h47
Kénium

Réexécuter le script

Bonjour à tous,

Voila j'aimeré savoir si il éxiste une fonction de perl perméttant de réexécuter le script quand une condition n'est pas réspécté. Un réexécution à une ligne considéré seré un + mais réexécuter tout le script me sufiras.

En vous rémèrcient de vos prochaines réposes.
09/02/2006, 08h12
GLDavid

Bonjour et bienvenue à toi.

Réexécuter tout un script dans un if ne me semble pas être une bonne solution. Peut-être devrais-tu songer à poser plutôt des fonctions récursives au sein de ton code ?
Mais ne voyant pas ton code ni même son architecture, cela va être dur de te répondre.

@++

Voici le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#!/usr/bin/perl -w
 
$im_thinking_of=int(rand 100);
print "Pick a number:";
$guess=<STDIN>;
chomp $guess;   # Don't forget to remove the newline!
 
if ($guess>$im_thinking_of) {
              print "Ton choix est trop grand! \n";
              $guess=<STDIN>;
 } elsif ($guess < $im_thinking_of) {
              print "ton choix est trop petit ! \n";
              $guess=<STDIN>;
 } else {
             print "Ton choix est juste !\n";

J'aimeré que le nombre choisi au hasard puisse rester en mémoire et pouvoir donc retenter ma chance a ce petit jeu jusqu'a trouver la répose ! :) Merci d'avance !

Moi je ferais un do... while.
Tu commences la boucle au premier print et tu la fais jusqu'à la fin avec comme condition d'arrêt que les deux nombres soit égaux. Ca ressemblerait à ça :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 #!/usr/bin/perl -w $im_thinking_of=int(rand 100); do { print "Pick a number:"; $guess=<STDIN>; chomp $guess; # Don't forget to remove the newline! if ($guess>$im_thinking_of) { print "Ton choix est trop grand! \n"; } elsif ($guess < $im_thinking_of) { print "ton choix est trop petit ! \n"; } else { print "Ton choix est juste !\n"; } }while ( $im_thinking_of != $guess);
j'ai volontairement enlevé les $guess = <STDIN>. Ce qu'il va se passer c'est que le programme va réexécuter le bloc do while tant que l'utilisateur n'aura pas entré la bonne solution.

Autre chose, je te conseille de déclarer tes variables avec my.

Bonne prog :wink:

On peut aussi le voir dans un angle récursion ;)

Code:

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
 
#!/usr/bin/perl -w
 
use strict;
 
sub guess($);
 
sub guess($){
     my $to_find = $_[0];
     print "Pick a number:";
     my $guess=<STDIN>;
     chomp $guess;
     if ($guess>$to_find) {
              print "Ton choix est trop grand! \n";
              return guess($to_find);
     }
     elsif($guess < $to_find) {
              print "ton choix est trop petit ! \n";
              return guess($to_find);
     }
     else {
           print "Ton choix est juste !\n";
           return;
     }
 }
 
 my $im_thinking_of=int(rand 100);
 guess($im_thinking_of);

@++

11/02/2006, 13h37
Kénium

Merci beaucoup pour vos réponses, voila un forum compétant :)

A bientôt et encore merci :)