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


We don't bite newbies here... much
	PerlMonks

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

by JimmyDa (Initiate)

on Jan 25, 2008 at 16:10 UTC ( [id://664304]=note: print w/replies, xml )

Need Help??

in reply to Re^6: last in a do while loop (for (;;))
in thread last in a do while loop

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]

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://664304]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others wandering the Monastery: (5)

As of 2024-04-25 12:09 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found