En el siguiente ejemplo explicamos como hacer un bucle while en Perl.
La explicación está en forma de comentarios embebida en el mismo texto.
Quote::
#!/usr/bin/perl
# Inicializo la variable Contador ($cnt)
$cnt = 0;
# Comienzo el bucle While
while ($cnt <= 7) {
# Imprimo la variable y nueva linea: \n
print "$cnt\n";
# Incremento el contador
$cnt ++;
} |