続きは・・・
関数：繰り返しを継続する
next文を使うと、繰り返し制御文の繰り返しを再度実行することができます。continueブロックがある場合は、continueブロックを実行後、次の繰り返しに入ります。
next ラベル
ラベルは、繰り返しのラベルを指定します。省略した場合は、一番内側の繰り返しを仮定します。
プログラム 例
#!/usr/bin/perl
# loopがYの間、繰り返す
while(1) {
print "繰り返しますか（Y/N）--> ";
$loop = <>;
chomp($loop);
if ($loop eq "Y" || $loop eq "y") {
next; # 繰り返す
}
elsif ($loop eq "N" || $loop eq "n") {
last; # 繰り返しから抜け出す
}
else {
print "入力した文字が不当です\n";
}
}
print "終了します\n";
例の実行結果
$ perl next.pl 繰り返しますか（Y/N）--> Y 繰り返しますか（Y/N）--> y 繰り返しますか（Y/N）--> 1 入力した文字が不当です 繰り返しますか（Y/N）--> o 入力した文字が不当です 繰り返しますか（Y/N）--> y 繰り返しますか（Y/N）--> n 終了します $
