Perl while Loop

UMA while A instrução de loop na linguagem de programação Perl executa repetidamente uma instrução de destino, desde que uma determinada condição seja verdadeira.

Sintaxe

A sintaxe de um while loop na linguagem de programação Perl é -

while(condition) {
   statement(s);
}

Aqui statement(s)pode ser uma única instrução ou um bloco de instruções. oconditionpode ser qualquer expressão. O loop itera enquanto a condição for verdadeira. Quando a condição se torna falsa, o controle do programa passa para a linha imediatamente após o loop.

O número 0, as strings '0' e "", a lista vazia () e undef são todos false em um contexto booleano e todos os outros valores são true. Negação de um valor verdadeiro por! ou not retorna um valor falso especial.

Diagrama de fluxo

Aqui, o ponto-chave da enquanto laço é que o loop não pode nunca ser executado. Quando a condição é testada e o resultado é falso, o corpo do loop será ignorado e a primeira instrução após o loop while será executada.

Exemplo

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

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

Aqui, estamos usando o operador de comparação <para comparar o valor da variável $ a contra 20. Portanto, embora o valor de $ a seja menor que 20, whileo loop continua executando um bloco de código próximo a ele e assim que o valor de $ a torna-se igual a 20, ele sai. Quando executado, o código acima produz o seguinte resultado -

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