Perl | last in loop
Last Updated :
27 Feb, 2019
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:
$sum = 0;
$a = 0;
$b = 0;
while (1)
{
$sum = $a + $b ;
$a = $a + 2;
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:
$a = 1;
$sum = 0;
Label1: while ( $a < 16)
{
$b = 1;
Label2: while ( $b < 8)
{
$sum = $sum + $b ;
if ( $a == 8)
{
print "Sum is $sum" ;
last Label1;
}
$b = $b * 2;
}
$a = $a * 2;
}
|
Output:
Sum is 22
Share your thoughts in the comments
Please Login to comment...