>>53
何を測りたいベンチなの?
意味のある数字が出ていない気がするが。

--- bench ---
#!/usr/bin/perl
use Benchmark;
timethese( 5, {
　handle => q{
　　open F, '<./test.log' or die;
　　my @log = (); @log = <F>;
　　close F;
　},
　while1 => q{
　　open F, '<./test.log' or die;
　　my @log = (); push @log, $_ while <F>;
　　close F;
　},
　while2 => q{
　　open F, '<./test.log' or die;
　　my @log = (); while (<F>) { push @log, $_ }
　　close F;
　},
});
__END__

> perl -e 'print map { "$_\n" } (0..999_999);' > test.log
> perl bench
Benchmark: timing 5 iterations of handle, while1, while2...
　handle: 19 wallclock secs (14.92 usr + 3.61 sys = 18.53 CPU)
　while1: 10 wallclock secs (10.52 usr + 0.19 sys = 10.70 CPU)
　while2: 12 wallclock secs (11.11 usr + 0.13 sys = 11.24 CPU)