Perl redo()函数

perl redo()函数例子，redo()函数实例代码 - 重新启动当前不强制循环的控制语句进行计算(评估)。

语法

redo LABEL redo

定义和用法

重新启动当前不强制循环的控制语句进行计算(评估)。块中的执行没有进一步的说明。一个continue块如果存在的话，它不会被执行。

如果指定了LABEL，重新开始执行，在开始的循环确定LABEL。

返回值

• 无

例子

试试下面的例子：

#!/usr/bin/perl -w
#by www.gitbook.net

$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