多重ループから抜ける


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

関連項目

lastループ制御コマンド
ループから抜ける