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