Perl mentre Loop

UN while L'istruzione loop nel linguaggio di programmazione Perl esegue ripetutamente un'istruzione target fino a quando una data condizione è vera.

Sintassi

La sintassi di a while loop nel linguaggio di programmazione Perl è -

while(condition) {
   statement(s);
}

Qui statement(s)può essere una singola istruzione o un blocco di istruzioni. Ilconditionpuò essere qualsiasi espressione. Il ciclo itera mentre la condizione è vera. Quando la condizione diventa falsa, il controllo del programma passa alla riga immediatamente successiva al ciclo.

Il numero 0, le stringhe "0" e "", l'elenco vuoto () e undef sono tutti false in un contesto booleano e tutti gli altri valori lo sono true. Negazione di un valore reale da parte di! o not restituisce un valore falso speciale.

Diagramma di flusso

Qui il punto chiave del ciclo while è che il ciclo potrebbe non essere mai eseguito. Quando la condizione viene verificata e il risultato è falso, il corpo del ciclo verrà ignorato e verrà eseguita la prima istruzione dopo il ciclo while.

Esempio

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

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

Qui stiamo usando l'operatore di confronto <per confrontare il valore della variabile $ a contro 20. Quindi, mentre il valore di $ a è minore di 20, whileloop continua ad eseguire un blocco di codice accanto ad esso e non appena il valore di $ a diventa uguale a 20, esce. Quando viene eseguito, il codice sopra produce il seguente risultato:

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