Related Articles

Related Articles

Perl | redo operator
  • Last Updated : 07 May, 2019

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 the execution will start from the loop specified by the Label.

Syntax: redo Label

Returns:
No Value

Example 1:

filter_none

edit
close

play_arrow

link
brightness_4
code

#!/usr/bin/perl -w
  
$a = 1;
  
# Assigning label to loop
GFG: {
   $a = $a + 5;
   redo GFG if ($a < 10);
}
  
# Printing the value
print ($a);

chevron_right


Output:

11

Example 2 (Redoing a loop):

filter_none

edit
close

play_arrow

link
brightness_4
code

#!/usr/bin/perl -w
  
$a = 1;
  
# Assigning label to loop
$count = 1;
GFG: while($count < 10) {
   $a = $a + 5;
   $count++;
   redo GFG if ($a < 100);
}
  
# Printing the value
print ("$a $count");

chevron_right


Output:

101 21
My Personal Notes arrow_drop_up
Recommended Articles
Page :