Perl-redo
提供:Dev Guides
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