Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

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)
--
<http://www.dave.org.uk>

"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.... ;-)

    <duck>

    <run>

    .....

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

    Jeroen
    I was dreaming of irritating hickups of the local gateway

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://50542]
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: (5)
As of 2021-05-06 13:18 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Perl 7 will be out ...





    Results (75 votes). Check out past polls.

    Notices?