The last command is like the break
statement in C (as used in
loops); it immediately exits the loop in question. If the LABEL is
omitted, the command refers to the innermost enclosing
loop. The last EXPR
form, available starting in Perl
5.18.0, allows a label name to be computed at run time,
and is otherwise identical to last LABEL
. The
continue block, if any, is not executed:
- LINE: while (<STDIN>) {
- last LINE if /^$/; # exit when done with header
- #...
- }
last cannot be used to exit a block that returns a value such as
eval {}
, sub {}
, or do {}
, and should not be used to exit
a grep() or map() operation.
Note that a block by itself is semantically identical to a loop
that executes once. Thus last can be used to effect an early
exit out of such a block.
See also continue for an illustration of how last, next, and
redo work.
Unlike most named operators, this has the same precedence as assignment.
It is also exempt from the looks-like-a-function rule, so
last ("foo")."bar"
will cause "bar" to be part of the argument to
last.