while loop in Perl

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:

#!/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

while loop in Perl

C

Code_Mech

News

Improve

Article Tags :

Similar Reads

Perl | last in loop

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

while loop in Perl

A while loop in Perl generally takes an expression in parenthesis. If the expression is True then the code within the body of while loop is executed. A while loop is used when we don't know the number of times we want the loop to be executed however we know the termination condition of the loop. It

Perl | List Functions

A list in Perl is a collection of scalar values. We can access the elements of a list using indexes. Index starts with 0 (0th index refers to the first element of the list). We use parenthesis and comma operators to construct a list. In Perl, scalar variables start with a $ symbol whereas list varia

Perl | next operator

next operator in Perl skips the current loop execution and transfers the iterator to the value specified by the next. If there's a label specified in the program, then execution skips to the next iteration identified by the Label. Syntax : next Label Example 1: #!/usr/bin/perl -w # Perl Program to f

Perl List and its Types

Introduction to Lists A list is a collection of scalar values. We can access the elements of a list using indexes. Index starts with 0 (0th index refers to the first element of the list). We use parenthesis and comma operators to construct a list. In Perl, scalar variables start with a $ symbol wher

Perl | qw Operator

The qw operator in Perl is used to extract each element of the given string as it is in an array of elements in single-quote ( ' ' ). This function stands for quote word because it considers each word of the given string as it is quoted like qw(Geeks for Geeks) is equivalent to ('Geeks', 'for', 'Gee

Perl | each() Function

This function returns a Two-element list consisting of the key and value pair for the next element of a hash when called in List context, so that you can iterate over it. Whereas it returns only the key for the next element of the hash when called in scalar context. Syntax: each MY_HASH Parameter: M

Perl | tell() Function

tell() function in Perl is used to get the position of the read pointer in a File with the use of its FileHandle. If no FileHandle is passed then it returns the position within the most recent accessed file. Syntax: tell(FileHandle) Parameter: FileHandle: Filehandle of the file to be accessed. Retur

Perl | redo operator

redo operator in Perl restarts from the given label without evaluating the conditional statement. Once redo is called then no further statements will execute in that block. Even a continue block, if present, will not be executed after the redo call. If a Label is given with the redo operator then th

Perl | chop() Function

The chop() function in Perl is used to remove the last character from the input string. Syntax: chop(String) Parameters: String : It is the input string whose last characters are removed. Returns: the last removed character. Example 1: #!/usr/bin/perl # Initialising a string $string = "GfG is a