Perl 的 redo 語句

redo 命令重新啟動迴圈塊，而不再次求值條件。可以在 redo 語句中提供一個 LABEL，其中 LABEL 為迴圈的標籤。如果沒有指定 LABEL，則可以在巢狀迴圈內使用 redo 語句，它將適用於最鄰近的迴圈。

如果迴圈上存在任何 continue 塊，那麼在求值條件之前將不會執行該塊。

語法

redo 語句的語法如下 −

redo [LABEL]

流程圖

示例

以下程式展示了 redo 語句的使用 −

#/usr/local/bin/perl
   
$a = 0;
while($a < 10) {
   if( $a == 5 ) {
      $a = $a + 1;
      redo;
   }
   print "Value of a = $a\n";
} continue {
   $a = $a + 1;
}

這將產生以下結果 −

Value of a = 0
Value of a = 1
Value of a = 2
Value of a = 3
Value of a = 4
Value of a = 6
Value of a = 7
Value of a = 8
Value of a = 9