Perlのやり直しステートメント

Perlはもはや実行され、直接ループ本体は、このサイクルを繰り返す開始の最初の行にステートメントをやり直していない、文は再実行文を実行していない、文ブロックを続けます。

継続文はながらのforeachループで使用することができます。

構文は次のとおりです。

redo [LABEL]

どこLABELは省略可能です。

参照修飾子を持つLABELステートメントをやり直すことのREDO文の後に実行されませんラベルLABEL修飾子と関連するステートメント開始し、ステートメントのブロックの最初の行に直接サイクル制御の流れを示し、ステートメントブロックを続けます。

ラベルなし修飾子を持つLABELステートメントを再実行することを開始し、文ブロックのREDO後のステートメントの代わりにステートメントを実行していき文の現在のブロックの最初の行に直接移動するコントロールの円形の流れを表します。

あなたはforループであるか、または文のブロックを続行する場合は、ループの増分リストのと文のブロックを続け、もはや実行されません。

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

上記のプログラムは、出力は次のようになります。

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

Perl コース