テキストファイルの高速な読み込みは？

１つのテキストファイル（５～１０KB）を一度に変数に読み込むために、

open(IN, $file);
my $data = join('',<IN>);
close(IN);

と、

my $data;
open(IN, $file);
while(<IN>){ $data .= $_ }
close(IN);

の２つを比較していたのですが、自分がベンチマークをとった限りでは後者の方が速いみたいです。これより早い方法はないでしょうか？

No.1 ベストアンサー 回答者： BLUEPIXY 回答日時： 2005/02/16 02:38

$/=undef;

my $data;
open(IN, $file);
$data=<IN>;
close(IN);
かなあ

この回答へのお礼

これは速いですね～
同じ関数内で、ほかのファイルを配列に読み込む前に、「$/="\n";」とし忘れて、バグに苦しんでました（笑
ありがとうございます。

お礼日時：2005/02/17 20:13

No.3 回答者： steel_gray 回答日時： 2005/02/16 10:09

#2です。

readは効率がよくないようで、さらに
ファイルサイズを得るのに-s使ったので全然ダメでした。失礼！

この回答へのお礼

いえ、readもつかえることは頭にほとんどありませんでした。ご回答ありがとうございます。

お礼日時：2005/02/17 20:11

No.2 回答者： steel_gray 回答日時： 2005/02/16 09:21

open IN, $file;

read IN,$data,-s $file;
close IN;

行入力より早そうな気はするけど実際のところは知りません。