ループから抜ける

---

　lastを使うとループから抜けることができます。

while (my $line = <>) {
	last if ($line =~ /^\n/);
	print $line;
}

---

関連項目

・lastループ制御コマンド
・多重ループから抜ける
・ループの先頭に戻る