Perlでファイルの一括読込 - D-6 [相変わらず根無し]

追記２：参考まで【その１】【その２】。そして僕は最初に書いた時も、sysreadの指摘を受けたときも正直な感想としては「そこまで考えて使ってません！」みんなよう気づくわ。すごいっす。 use strict; use Benchmark qw(cmpthese); cmpthese -1, { sysread => sub { my $buf; open my $fh, '<', __FILE__; sysread $fh, $buf, -s __FILE__; }, slurp_local => sub { local $/; open my $fh, '<', __FILE__; my $buf = <$fh>; } };