広告
last コマンドは（ループ内で使った）C の break 文と同じようなもので、LABEL で指定されるループを即座に抜けます。LABEL が省略されると一番内側のループが対象となります。仮にcontinue ブロックがあっても実行されません。
LINE: while (<IN>) { last LINE if /^$/; # ヘッダが終わったら抜ける ... }
https://www.7key.jp/program/perl/last.html