Perl redo语句

Perl redo语句无需评估控制语句即可重新启动当前循环。该块中的其他语句将不会执行。

redo语句的语法如下：

redo;

Perl redo语句示例

$a = 5;
while($a < 150){
   if( $a == 40 ){
     $a = $a + 10;
      redo;
   }
   print "a = $a\n";
}continue{
   $a = $a * 2;
}

输出

a = 5
a = 10
a = 20
a = 50
a = 100

在上面的程序中, 循环在$ a达到40的 redo条件下重启。