while do Perl é uma forma de laço que itera enquanto uma condição permanecer verdadeira. Instruções
um

Inicie o loop while , especificando a palavra-chave enquanto
2

Especifique a condição para continuar o loop entre parênteses após a palavra-chave while: .
Enquanto ( $ ok)
3

Fornecer as declarações a serem executadas a cada iteração do loop dentro de chaves :
while ($ ok ) {

: $ ok ok = (); }

4

Coloque um opcional continuar cláusula após o corpo do laço , para especificar instruções a serem executadas após o corpo, mas antes que a condição , enquanto é avaliada < . br>