Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery

(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)

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

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

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

    No recent polls found