Perl while Loop

UNE while L'instruction loop en langage de programmation Perl exécute à plusieurs reprises une instruction cible tant qu'une condition donnée est vraie.

Syntaxe

La syntaxe d'un while boucle en langage de programmation Perl est -

while(condition) {
   statement(s);
}

Ici statement(s)peut être une seule instruction ou un bloc d'instructions. leconditionpeut être n'importe quelle expression. La boucle se répète tant que la condition est vraie. Lorsque la condition devient fausse, le contrôle du programme passe à la ligne qui suit immédiatement la boucle.

Le nombre 0, les chaînes '0' et "", la liste vide () et undef sont tous false dans un contexte booléen et toutes les autres valeurs sont true. Négation d'une vraie valeur par! ou not renvoie une valeur fausse spéciale.

Représentation schématique

Voici le point clé de la en boucle est que la boucle pourrait jamais fonctionner. Lorsque la condition est testée et que le résultat est faux, le corps de la boucle sera ignoré et la première instruction après la boucle while sera exécutée.

Exemple

#!/usr/local/bin/perl
 
$a = 10;

# while loop execution
while( $a < 20 ) {
   printf "Value of a: $a\n";
   $a = $a + 1;
}

Ici, nous utilisons l'opérateur de comparaison <pour comparer la valeur de la variable $ a à 20. Ainsi, alors que la valeur de $ a est inférieure à 20, whileloop continue d'exécuter un bloc de code à côté de lui et dès que la valeur de $ a devient égale à 20, il sort. Lorsqu'il est exécuté, le code ci-dessus produit le résultat suivant -

Value of a: 10
Value of a: 11
Value of a: 12
Value of a: 13
Value of a: 14
Value of a: 15
Value of a: 16
Value of a: 17
Value of a: 18
Value of a: 19