>>555 ベンチマークを取ってみた。 Windows XP SP2、ActivePerl 5.8.8 _______________________________________________________________
use Benchmark qw(:all);
my $file = 'jcode.pl'; # 21,876bytes、785行
my $r = timethese( 10000, { 'local $/' => sub { open my $fh, $file or die $!; my $data = do { local $/; <$fh> }; }, 'read' => sub { open my $fh, $file or die $!; read $fh, my $data, -s $fh; } });
