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

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

    推荐阅读