続きは・・・
関数：繰り返しから抜け出す
last文を使うと、繰り返しから抜け出すことができます。continueブロックがあっても実行されません。
last ラベル
ラベルは、抜け出す繰り返しのラベルを指定します。省略した場合は、一番内側の繰り返しから抜け出します。
プログラム 例
#!/usr/bin/perl
# loopがNになったら、抜け出す
while(1) {
print "繰り返しますか（Y/N）--> ";
$loop = <>;
chomp($loop);
if ($loop eq "N" || $loop eq "n")
{
last;
}
}
print "終了します\n";
例の実行結果
$ perl last.pl 繰り返しますか（Y/N）--> Y 繰り返しますか（Y/N）--> y 繰り返しますか（Y/N）--> N 終了します $
