Un ciclo while en Perl generalmente toma una expresión entre paréntesis. Si la expresión es verdadera, se ejecuta el código dentro del cuerpo del ciclo while. Un bucle while se utiliza cuando no sabemos el número de veces que queremos que se ejecute el bucle, sin embargo, conocemos la condición de terminación del bucle. También se conoce como bucle controlado por entrada , ya que la condición se comprueba antes de ejecutar el bucle. El ciclo while se puede considerar como una declaración if repetida.
Sintaxis:
while (condition)
{
# Code to be executed
}
Diagrama de flujo:
Ejemplo :
# Perl program to illustrate
# the while loop
# while loop
$count = 3;
while ($count >= 0)
{
$count = $count - 1;
print "GeeksForGeeks\n";
}
Producción:
GeeksForGeeks GeeksForGeeks GeeksForGeeks GeeksForGeeks
Bucle while anidado
Un bucle while anidado es aquel en el que un bucle while se utiliza dentro de otro bucle while. En un ciclo while anidado, para cada iteración del ciclo while externo, el ciclo while interno se ejecuta por completo.
#!/usr/bin/perl
# Perl program for Nested while loop
$a = 0;
# while loop execution
while( $a <= 2 )
{
$b = 0;
while( $b <= 2 )
{
printf "$a $b\n";
$b++;
}
$a++;
}
Producción:
0 0 0 1 0 2 1 0 1 1 1 2 2 0 2 1 2 2
Bucle while infinito
Mientras que el ciclo puede ejecutarse infinitas veces, lo que significa que no hay una condición de terminación para este ciclo. En otras palabras, podemos decir que hay algunas condiciones que siempre se cumplen, lo que hace que el ciclo while se ejecute infinitas veces o podemos decir que nunca termina.
El programa a continuación imprimirá la declaración especificada en un tiempo infinito y también dará el error de tiempo de ejecución como límite de salida excedido en el IDE en línea
# Perl program to illustrate
# the infinite while loop
# infinite while loop
# containing condition 1
# which is always true
while(1)
{
print "Infinite While Loop\n";
}
Producción:
Infinite While Loop Infinite While Loop Infinite While Loop Infinite While Loop . . . .