无涯教程-Perl - redo语句函数

redo 命令重新启动循环块，而无需再次判断条件。您可以提供带有 redo 语句的LABEL，其中LABEL是循环的标签。 redo 语句可以在嵌套循环中使用，如果未指定LABEL，则该语句将适用于最近的循环。

redo - 语法

redo [LABEL]

redo - 流程图

redo - 示例

以下程序显示了 redo 语句的用法-

#/usr/local/bin/perl
   
$a=0;
while($a < 10) {
   if( $a == 5 ) {
      $a=$a + 1;
      redo;
   }
   print "Value of a=$a\n";
} continue {
   $a=$a + 1;
}

这将产生以下输出-

Value of a=0
Value of a=1
Value of a=2
Value of a=3
Value of a=4
Value of a=6
Value of a=7
Value of a=8
Value of a=9

参考链接

https://www.learnfk.com/perl/perl-redo-statement.html