Discussion :

[Quantactique]

Salut encore moi !

Aujourd'hui j'ai un problème avec les opérateurs next et redo.

Objectif :
Relancer ma boucle suivant une certaine condition.

Voilà, j'ai une boucle do-while qui comporte un if, je souhaite que suivant la condition la boucle soit relancée sans lire les lignes suivantes.

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
 
 
#Mon redo envoie ici ><
tutu();
 
sub tutu{
 
       #Traitement de données
 
       do{
              #Traitement qui se fait toujours
 
              if($Ya_une_couille_dans_l_histoire == 1){
                     redo;
              }
 
              #Si y a pas de problèmes on continue
       while($toto eq "tata");
}

Or voilà mon souci, l'opérateur redo me renvoie non pas au début de ma boucle mais hors de ma fonction (avant ma fonction), je sais bien qu'il est super fort mais la c'est du niveau Chuck Norris et c'est pas normal...

L'opérateur next fait presque la même chose...

So :
I'll send an SOS to the world [x2]
I hope that someone gets my
Message in a forum [x2]

[Gardyen]

hum drôle de construction...

déjà
do et redo ne peuvent pas être utilisés ensemble...

revois un peu ta boucle, le while n'est pas bien utilisé, du moins si j'ai compris ce que tu veux faire

[Quantactique]

Ah ça je savait pas...

Eh bien le code que j'ai proposé est un exemple de comment j'ai utilisé le redo, ce que je cherche à faire n'est pas expliqué. Mais bon si do et redo ne fonctionnent pas ensemble et bien on va transformer ma do-while en while, je trouve ça moins propre mais bon pas trop grave.

Il n'y à vraiment pas moyen de le faire avec une boucle do-while ?
Je sais que le goto existe en PERL comme dans beaucoup de langages mais disons que je n'aime pas vraiment m'en servir...

Merci.

[Gardyen]

après c'est chacun ses goûts

je ferais comme ceci, mais à toi de voir:

Code :

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

1
2
3
4
5
6
7
while (tout_va_bien){
# on bosse, on bosse
  if (pas_bon){
    next;
  }
# ça bosse moins
}

[zepto]

Si tu regardes la doc perlsyn (man perlsyn), tu verras que do { ... } while CONDITION est juste un cas particulier de EXPR while CONDITION, et que donc les next, last et autres redo ne fonctionnent pas dans ce cas.

Par contre tu peux te débrouiller autrement. Pour next :

do {{
next if ...;
...
}} while CONDITION;

note la paire de {} incluse dans le do {}. next te fait sortir du block dans lequel il est, donc de cette paire là {}, et tu continues juste avant le } final du do {}, prêt pour tester la CONDITION du while.

ou pour last :

LOOP: {
do {
last if ...;
...
} while CONDITION;
}

Là c'est plus simple à comprendre. last (sans label) te fait sortir du premier bloc, ici c'est celui nommé LOOP: {}. do {} n'est pas considéré comme un bloc, mais plutôt comme une EXPRESSION.

Tout est dans la doc

Max.