(tye)Re3: Slurp a file


Clear questions and runnable code get the best and fastest answer
	PerlMonks

by tye (Sage)

on Jan 08, 2001 at 22:55 UTC ( #50550=note: print w/replies, xml )

Need Help??

For the best of both worlds, use both:

my $contents= do { local($/); join '', <INPUT> };
[download]

should work quickly for file handles that pay attention to $/ and work about as quickly as possible for those that don't.

- tye (but my friends call me "Tye")

Comment on (tye)Re3: Slurp a file Download Code

Replies are listed 'Best First'.
Re: (tye)Re3: Slurp a file by jeroenes (Priest) on Jan 08, 2001 at 23:04 UTC
Modified davorg's code accordingly. Some improvement, clearly: `Benchmark: timing 50000 iterations of hybrid, join, slash... hybrid: 4 secs ( 2.90 usr 0.38 sys = 3.28 cpu) join: 6 secs ( 5.65 usr 0.35 sys = 6.00 cpu) slash: 3 secs ( 1.95 usr 0.38 sys = 2.33 cpu)` [download] Cheers, Jeroen I was dreaming of guitarnotes that would irritate an executive kind of guy (FZ)	[reply] [d/l]

Domain Nodelet^?

Node Status^?

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

Chatterbox^?

How do I use this? | Other CB clients

Other Users^?

Others avoiding work at the Monastery: (2)

As of 2023-01-27 02:00 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

No recent polls found

Notices^?