perl | último en bucle

La última palabra clave se usa para controlar el bucle, lo que hace que la iteración actual del bucle se convierta inmediatamente en la última. Si se da una etiqueta, entonces viene del bucle por la etiqueta.

Sintaxis:
# Sale del bucle actual.
ultimo

# Sale del ciclo especificado por
# MY_LABEL
last MY_LABEL

Ejemplo 1:

#!/usr/bin/perl
$sum = 0;
$a = 0;
$b = 0;
  
while(1) 
{
  
$sum = $a + $b;
$a = $a + 2;
  
# Condition to end the loop
if($sum > 10) 
{
    print "Sum = $sum\n";
    print "Exiting the loop\n";
    last;
} 
else
{
    $b = $b - 1;
}
}
print "Loop ended at Sum > 10\n";

Producción:

Sum = 11
Exiting the loop
Loop ended at Sum > 10

Ejemplo 2:

#!/usr/local/bin/perl
  
$a = 1;
$sum = 0;
  
# Outer Loop
Label1: while($a < 16) 
{
   $b = 1;
     
   # Inner Loop
   Label2: while ($b < 8)
   {
      $sum = $sum + $b;
      if($a == 8) 
      {
         print "Sum is $sum";
           
         # terminate outer loop
         last Label1;
      }
      $b = $b * 2;
   }
   $a = $a * 2;
}

Producción:

Sum is 22

Publicación traducida automáticamente

Artículo escrito por Code_Mech y traducido por Barcelona Geeks. The original can be accessed here. Licence: CCBY-SA

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *