珀尔 |重做运算符

Perl 中的重做运算符从给定标签重新开始，而不评估条件语句。一旦调用了 redo，则不会在该块中执行进一步的语句。即使是 continue 块，如果存在，也不会在 redo 调用之后执行。如果使用重做运算符给出标签，则执行将从标签指定的循环开始。

Syntax: redo Label

Returns:
No Value

示例 1：

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

输出：

11

示例 2（重做一个循环）：

#!/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");

输出：

101 21