while - Execute un script répétitivement tant qu'une condition est rencontrée

while test body

La commande while évalue test comme expression (de la même façon que expr évalue ses arguments). La valeur de l'expression doit une valeur booléenne correcte; si c'est la valeur true alors body est exécuté par transmission à l'interpréteur Tcl. Une fois que body a été exécuté alors test est évalué de nouveau, et le processus recommence jusqu'a ce que éventuellement test évalue à une valeur booléenne false. Des commandes continue peuvent être exécutées à l'interieur de body pour terminer l'itération courante de la boucle, et des commandes break peuvent être exécutées à l'interieur body pour provoquer la fin immédiate de la commande while. La commande while retourne toujours une chaîne vide.

Note: test devra presque toujours être entourée d'accolades Sinon, les substitutions de variable seront faites avant que la commande while démarre l'exécution, ce qui signifie que le changement de la variable fait par le corps de la boucle ne sera pas consideré dans l'expression. Ceci donnera souvent une boucle infinie. Si test est entourée d'accolades, les substitutions de variables sont retardées jusqu'a ce que l'expression soit évaluée (avant chaque itération de boucle), donc les changements de la variables seront visible. Comme exemple, essayez le script suivant avec et sans accolades autour de $x<10:

set x 0
while {$x<10} {
      puts "x est $x"
      incr x
}

Index  Précédent