07/12/06 12:01:39 I3qzGVsw
＞５３０
ご親切にありがとうございます。参考になります。
全部読み込む必要があるのですね。
＞本当に $log[0] に一行目が入っているかい？
ご指摘の通り、入っておりませんでした。
@LOG=$_; の部分を
push @LOG,$_;
としましたが、それでも$log[0]に一行目が入っていませんでした。
試しに、
open(FILE,"+>./log.dat");
の部分を
open(FILE,"<./log.dat");
としたところ、ようやく$log[0]に一行目が入りました。
いまいち『+>』の意味がつかめません。自分が持っているperlの本を何冊か見ると、
『+>』は入出力共用（上書きモード）とあるのですが、それは『<』と『>』を同時にやったことにはならないのでしょうか。
例えば、
『open(FILE,"+>./log.dat");』
というのは
『open(FILE,"<./log.dat");
open(FILE,">./log.dat");
』
ってことではないのですよね（動作をみると）。よくわかりません。。。