Perl | последний в цикле

Опубликовано: 31 Марта, 2022

Ключевое слово last используется для оператора управления циклом, что немедленно приводит к тому, что текущая итерация цикла становится последней. Если метка задана, то она выходит из цикла по метке.

Syntax:
# Comes out of the current loop.
last

# Comes out of the loop specified by
# MY_LABEL
last MY_LABEL

Example 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 ";
    print "Exiting the loop ";
    last;
} 
else
{
    $b = $b - 1;
}
}
print "Loop ended at Sum > 10 ";

Выход:

Сумма = 11
Выход из цикла
Цикл закончился при Sum> 10

Example 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;
}

Выход:

 Сумма 22



РЕКОМЕНДУЕМЫЕ СТАТЬИ