1月22日に、Yasu.Fさんは書きました。 >ファイル(の残りの部分)を全部読み込むのでしたら、 > > { > local($/) = undef; > $_ = <FOO>; > } > >でも大丈夫だと思います。どれが速いのかは知りませんが、 >少なくともjoinよりは速いのではないでしょうか? > おー、さすが Yasu.F さん。 # って、あたしがヘボなだけか? (^^;; 早速、 if (/A/) {$/ = undef; $a = <INFILE>} を追加して測定してみると、26sec と出ました。(^^)/ 単にファイルの全読み込みならこれが一番エレガントでしょうね。