Re^2: Break perl foreach loop

Nice to back in the Perl community with so many helpful people...

I tried the suggesting of printing "out of loop" and it provides a great clue. It prints "out of loop" all over the place, so it's looping through many, many times.

eg.

out of loop out of loop out of loop out of loop out of loop out of loo
+p out of loop out of loop <TOTAL>$1,587.00</TOTAL>
out of loop out of loop out of loop out of loop matched here out of lo
+op out of loop out of loop out of loop out of loop out of loop out of
+ loop out of loop out of loop out of loop out of loop out of loop out
+ of loop out of loop out of loop <DATE>10/08/08</DATE>
[download]

The dump_members subroutine at the end is the initial routine that parses the document looking for particular data markers (such as NOP, BPG, or PTX::TRN). If NOP, it sends to another subroutine that has different decoding functions. If PTX::TRN (transparent data), it sends it to this subroutine.

Comment on Re^2: Break perl foreach loop Download Code

Replies are listed 'Best First'.
Re^3: Break perl foreach loop by pvecchio (Initiate) on Mar 03, 2009 at 20:15 UTC
Got it! Marshall gets the major thumbs up. I took out the "or next" line and it worked! It was going to next before any end of loop could be established. removed this: length( $x = $struct->{$key} ) or next; Thank you all! Peppi	[reply]
Re^3: Break perl foreach loop by ig (Vicar) on Mar 03, 2009 at 20:14 UTC
See update3 in my post above.	[reply]