CGIのOPEN(OUT でファイルの先頭にデータを追加するには?

[上に] [前に] [次に]
kawa [E-Mail] 1999/04/16(金) 18:38:59
open(OUT, ">> xxx.txt");
    print OUT "らくがき";
    close(OUT);
を使用しているのですが、ファイルの最後に書き込まれてしまいます。
ファイルの先頭に、書き込むにはどうしたらよいのでしょうか?
一度成功したのですが、書き込むたびに過去データが消えてしまいました。
対処法を教えて下さい。

ミケ 1999/04/17(土) 00:07:21
open(FILE, "xxx.txt");
@data = <FILE>;
close(FILE);
unshift(@data, "xxxxxxxxx\n");
open(FILE, ">xxx.txt");
print FILE @data;
close(FILE);

kawa [E-Mail] 1999/04/17(土) 06:53:59
[[解決]]
解決できました。
ミケさんありがとうございました。

[上に] [前に] [次に]