Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options

Re: (tye)Re2: Slurp a file

by davorg (Chancellor)
on Jan 08, 2001 at 22:20 UTC ( #50542=note: print w/replies, xml ) Need Help??

in reply to (tye)Re2: Slurp a file
in thread Slurp a file

Thanks. I knew I was doing something wrong. Here's another attempt.

#!/usr/bin/perl -w use strict; use Benchmark; my $file = $0; open IN, $file or die "$file: $!\n"; sub joinit { seek(IN, 0, 0); my $content = join '', <IN>; } sub dollarslash { seek(IN, 0, 0); my $content = do { local $/; <IN> } +} timethese(100_000, {join => \&joinit, slash => \&dollarslash} );

Which gives these (much more believable) results:

Benchmark: timing 100000 iterations of join, slash... join: 12 wallclock secs ( 9.98 usr + 1.33 sys = 11.31 CPU) slash: 6 wallclock secs ( 3.79 usr + 1.53 sys = 5.32 CPU)

"Perl makes the fun jobs fun
and the boring jobs bearable" - me

Replies are listed 'Best First'.
Re: Re: (tye)Re2: Slurp a file
by jeroenes (Priest) on Jan 08, 2001 at 22:31 UTC
    Only twice as long.... ;-)




    I see.
    Hmmm... time to update that one node, I guess.

    I was dreaming of irritating hickups of the local gateway

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (2)
As of 2023-01-28 06:28 GMT
Find Nodes?
    Voting Booth?

    No recent polls found