Re: Exiting a loop trickery

I think you're looking for last:

#!/usr/bin/perl -w

use strict;

while (<DATA>) {
    next unless /trigger/;
    while (<DATA>) {
        if ( $_ =~ /timestamp/ ) {
            print "Found timestamp\n";
            last;
        }
    }
}

__DATA__
bar
baz
trigger
qux
timestamp
quux
quuux
trigger
quuuux
timestamp
bar
[download]

florg

Comment on Re: Exiting a loop trickery Select or Download Code

Replies are listed 'Best First'.
Re^2: Exiting a loop trickery by Roy Johnson (Monsignor) on Mar 11, 2004 at 15:20 UTC
Or, to avoid nesting loops, use a range operator: `while (<DATA>) { if (/trigger/ .. /timestamp/) { if ( $_ =~ /timestamp/ ) { print "Found timestamp\n"; last; } } }` [download] The PerlMonk `tr///` Advocate	[reply] [d/l]
Re: Re: Exiting a loop trickery by GaijinPunch (Pilgrim) on Mar 11, 2004 at 06:36 UTC
Yes... "last", that is it. I even dug through my old book... I can't believe I overlooked it. What a rookie error!	[reply]