Re: while loop question

[RichardK]

in reply to while loop question

You can always wrap your while loop in a simple block with a label and use last LABEL

So something like this :-

use v5.14;

use warnings;


my @l = (0..5);

sub test {

  my ($match) = @_;

  LOOP: {
 
   for my $v (@l) {
      if ($v == $match) {
        say "found";
        last LOOP;
      }
    }

    # fell off the bottom
    say "not found";
  }


}

test(4); # found
test(7); # not found

[Freezer]

Nice ideas. The trouble is, as well as wanting to be able to say last LINE (or LOOP) I want to be able to say  next LINE if $1 < $start_point; and your solution doesn't offer that possibility.

[RichardK]

Of course it does :). It works in just the same way as using next/last in any nested loops.

OUTER: {

    INNER: while(1) {
        next INNER if this();
        last OUTER if that();
    }
}