Re: while loop question


Clear questions and runnable code get the best and fastest answer
	PerlMonks

Re: while loop question

by RichardK (Parson)

on Sep 06, 2012 at 12:13 UTC ( [id://992073]=note: print w/replies, xml )

Need Help??

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
[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]

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://992073]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others browsing the Monastery: (5)

As of 2024-04-25 10:40 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found