作者: 閑舎
日時: 2002/9/30(00:31)
>   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/