多重ループから抜ける
last LABELを使うと多重ループから抜けることができます。
LOOP: foreach my $i (1..10) { foreach my $j (1..10) { print "($i $j)\n"; last LOOP if ($j == 5); } }
関連項目
・lastループ制御コマンド・ループから抜ける
LOOP: foreach my $i (1..10) { foreach my $j (1..10) { print "($i $j)\n"; last LOOP if ($j == 5); } }