ループから抜ける
last
を使うとループから抜けることができます。
while (my $line = <>) { last if ($line =~ /^\n/); print $line; }
関連項目
・
lastループ制御コマンド
・
多重ループから抜ける
・
ループの先頭に戻る
Perlで書く
Perl表技集
Perlリファレンス
Perlリンク
Perl本