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 |
In Section
Cool Uses for Perl