TSperl 発言

>   open(IN, "$FILE") or die;
>   binmode(IN);
>   $LINE = $buff = "";
>   while (read(IN, $buff, 8192)) {
>     $LINE .= $buff;
>   }
>   read(IN, $LINE, 99999999);
>   close(IN);
> 
> に代えると、さっと終るようです（ノートでなく、VMware 上の WinXP での確
> 認）。

度々すみません。おわかりでしょうが、上のコードで

  read(IN, $LINE, 99999999);

の 1 行は削除してお読みください。カットアンドペーストの消し忘れです(^^;。

--
本田博通（閑舎）
テキストとスクリプトの http://rakunet.org/TSNET/