无涯教程-Perl - redo函数

描述

此函数将重新启动当前循环,而不会强制判断控制语句。块中不再执行任何语句。如果存在继续块,将不会执行。如果指定了LABEL,则在LABEL标识的循环开始时重新开始执行。

语法

以下是此函数的简单语法-

redo LABEL

redo

返回值

此函数不返回任何值。

例

以下是显示其基本用法的示例代码-

#!/usr/bin/perl -w

$c=1;
$d=4;
LABEL: {
   $c++;
   $e=5;
   redo LABEL if ($c < 3);
   $f=6;
   last LABEL if ($e > 3);
   $g=7;
}
$h=8;
print ("$c $d $e $f $g $h\n");

执行上述代码后,将产生以下输出-

3 4 5 6  8  

参考链接

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