in reply to Re: Resetting a flip-flop operator
in thread Resetting a flip-flop operator

Ah! Yes, that works. Thanks!

For the record and for the benefit of anyone else wondering the same thing, I've also tried experimenting with scoping, e.g. by moving the inner loop into a sub of its own. Turns out flip-flops maintain their state even across subroutine calls (which is likely what you'd expect anyway).

Replies are listed 'Best First'.
Re^3: Resetting a flip-flop operator
by runrig (Abbot) on Aug 06, 2015 at 14:53 UTC
    Turns out flip-flops maintain their state even across subroutine calls
    Not if closures are involved:
    
sub mk_flipflop {
 my ($start, $end) = @_;
 return sub { /$start/../$end/ }
}

for my $fh (@fhs) {
  my $ff = mk_flipflop(qr/^PP_START$/, qr/^PP_END$/);

  while (<$fh>) {
    $ff->() or next;

    # process line
  }
}

    [download]
[reply]
[d/l]
[reply]

In Section Seekers of Perl Wisdom