作者: 閑舎 | |
日時: 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/