Perl redo 函式

描述

此函式重新啟動當前迴圈，無需強制計算控制語句。塊中不會執行其他語句。如果有 continue 塊，也不會執行該塊。如果指定了 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