Re^7: last in a do while loop (for (;;))

Did it here as I didn't feel like it needed a completely new topic. I'll probably stick with the bare block in the future. The data is generated by a program that does some artificial splitting of the lines if it has over 80 characters in a line so... to do anything useful with the data the lines need to be reordered. Thanks both of u.

Comment on Re^7: last in a do while loop (for (;;))

Replies are listed 'Best First'.
Re^8: last in a do while loop (for (;;)) by ikegami (Patriarch) on Jan 26, 2008 at 02:32 UTC
`redo` is usually good for that. `while (<$fh>) { chomp; if (... && !eof($fh)) { $_ .= <$fh>; redo; } ... }` [download]	[reply] [d/l] [select]


Syntactic Confectionery Delight
	PerlMonks