Perl | last in loop
Last Updated :
27 Feb, 2019
Improve
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.
Perl
Output:
Perl
Output:
Syntax: # Comes out of the current loop. last # Comes out of the loop specified by # MY_LABEL last MY_LABELExample 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";
Sum = 11 Exiting the loop Loop ended at Sum > 10Example 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;
}
Sum is 22
