Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

(tye)Re2: Slurp a file

by tye (Sage)
on Jan 08, 2001 at 22:13 UTC ( #50540=note: print w/replies, xml ) Need Help??


in reply to Re: Re: Re: Re: Re: Slurp a file
in thread Slurp a file

Yes, you forgot to seek so most of the iterations don't read anything so you are only measuring overhead. (:

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

Replies are listed 'Best First'.
Re: (tye)Re2: Slurp a file
by davorg (Chancellor) on Jan 08, 2001 at 22:20 UTC

    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

      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://50540]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (3)
As of 2021-05-09 12:48 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Perl 7 will be out ...





    Results (100 votes). Check out past polls.

    Notices?