ecriture de fonctions

je ne sais pas si l'intitulé du topic est correct mais
voilà, je reprends le script de quelqu'un et doit l'arranger pour mes propres applis. mais voilà, comme il y a des 10aines de façons différentes d'écrire ... il y en a que je connais pas ...
aussi peut-être que quelques uns d'entre vous pourrons m'expliquer certaines choses

Code:

---

1 2 3 4 5 6 7 8 9 10 11

enddefinition: while($var<=$var2-$var3){ .../.... } if ($cgr>=$criteria){ .../... last enddefinition; continue{ $tempCpGstart--; }

---

mes questions: a quoi correspondent continue et enddefinition ??

enddefinition: est une étiquette, un label si tu préfères.

Avec ce genre de choses, tu pourrais très bien dans ton code mettre un goto enddefinition; pour retourner à l'endroit de l'étiquette.

Quant à continue, je te laisse le soin de lire ci-dessous ce qu'on en dit dans Perlfunc :

continue BLOCK
Actually a flow control statement rather than a function. If there is a continue BLOCK attached to a BLOCK (typically in a while or foreach), it is always executed just before the conditional is about to be evaluated again, just like the third part of a for loop in C. Thus it can be used to increment a loop variable, even when the loop has been continued via the next statement (which is similar to the C continue statement).

last, next, or redo may appear within a continue block. last and redo will behave as if they had been executed within the main block. So will next, but since it will execute a continue block, it may be more entertaining.

while (EXPR) {
### redo always comes here
do_something;
} continue {
### next always comes here
do_something_else;
# then back the top to re-check EXPR
}
### last always comes here

Omitting the continue section is semantically equivalent to using an empty one, logically enough. In that case, next goes directly back to check the condition at the top of the loop.

Citation:

---

Envoyé par Arioch

enddefinition: est une étiquette, un label si tu préfères.

Avec ce genre de choses, tu pourrais très bien dans ton code mettre un goto enddefinition; pour retourner à l'endroit de l'étiquette.

---

En fait non, tu ne peux pas faire un "goto enddefinition". En effet en Perl les label de boucle ne sont pas des étiquettes accessible par un goto. Elle ne servent que pour les mot clés last, next et redo qui peuvent ainsi spécifier de quel boucle ils parlent lorsque plusieurs boucles sont imbriquées (par défaut ils concernent la boucle la plus imbriquée).

--
Jedaï