Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Re^2: Reading files n lines a time

by tobyink (Abbot)
on Dec 06, 2012 at 14:22 UTC ( #1007587=note: print w/ replies, xml ) Need Help??


in reply to Re: Reading files n lines a time
in thread Reading files n lines a time

Perhaps marginally nicer, the kite operator:

while(( my @lines = map ~~<>, 1 .. 4 )[0]) { print @lines; print "\n"; }
perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'


Comment on Re^2: Reading files n lines a time
Download Code
Replies are listed 'Best First'.
Re^3: Reading files n lines a time
by mbethke (Hermit) on Dec 06, 2012 at 15:37 UTC

    Considering the OP deals with multi-GB files I'd prefer the slightly uglier assignment to $_ because the kite's tail is not optimized away so all the strings would actually be shoved through the binary negation twice.

    I was surprised by the result BTW when I looked at the optree; I'm almost completely clueless about what Perl can and cannot optimize but it even a fairly trivial peephole optimizer as in early C compilers could catch this.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1007587]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (14)
As of 2015-07-30 19:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (273 votes), past polls