Re: 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
[download]

Comment on Re: while loop question Select or Download Code

Replies are listed 'Best First'.
Re^2: while loop question by Freezer (Sexton) on Sep 06, 2012 at 13:34 UTC
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.	[reply] [d/l]
Re^3: while loop question by RichardK (Parson) on Sep 06, 2012 at 14:56 UTC
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(); } }` [download]	[reply] [d/l]