Open In App

Perl | last in loop

Improve
Improve
Like Article
Like
Save
Share
Report

last keyword is used to loop control statement which immediately causes the current iteration of the loop to become the last. If a label given, then it comes of the loop by the label.

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


Output:

Sum = 11
Exiting the loop
Loop ended at 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;
}


Output:

Sum is 22


Last Updated : 27 Feb, 2019
Like Article
Save Article
Previous
Next
Share your thoughts in the comments
Similar Reads