Re^3: Resetting a flip-flop operator

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]

Comment on Re^3: Resetting a flip-flop operator Download Code

Replies are listed 'Best First'.
Re^4: Resetting a flip-flop operator by RonW (Parson) on Aug 06, 2015 at 15:19 UTC
Not if closures are involved Hmm. Another caveat to add to the list for my multi flip-flop module.	[reply]


Think about Loose Coupling
	PerlMonks