http://www.perlmonks.org?node_id=1075177


in reply to Re^3: do until loops
in thread do until loops

From last:

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.

So, last doesn’t work in a do { ... } until (...); loop. But — put the whole construct inside a block, and last now works fine:

#! perl use strict; use warnings; my $n = 42; { do { printf "n = %d\n", $n--; last if $n == 37; } until ($n <= 0); } print "Past the loop\n";

Output:

0:22 >perl 878_Tutorial.pl n = 42 n = 41 n = 40 n = 39 n = 38 Past the loop 0:22 >

Hope that helps,

Athanasius <°(((><contra mundum Iustus alius egestas vitae, eros Piratica,