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 the execution will start from the loop specified by the Label.
Syntax: redo Label
Returns:
No Value
Example 1:
#!/usr/bin/perl -w $a = 1; # Assigning label to loopGFG: { $a = $a + 5; redo GFG if ($a < 10);} # Printing the valueprint ($a); |
Output:
11
Example 2 (Redoing a loop):
#!/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 valueprint ("$a $count"); |
Output:
101 21
