ファイルオープンの挙動

質問

windows環境にてperlの勉強をしております。
http://www.rfs.co.jp/sitebuilder/perl/05/03.html#open
を参考にopenを使っておりました。
ファイル書き込みがうまくできていないようなので
以下のようなテストプログラムを作成したのですが
上記のサイトのような挙動をしませんでした。
--source---
#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
open(FILE, "+> sample.txt");
$data = <FILE>;
print "data = $data<br>";
$flag = print FILE "TEST MESSAGE";
print "flag=$flag<br>";
close(FILE);
--source--

--sample.txt--
実験です
--sample.txt--

windows環境だと
data =
flag=

と表示され
linux環境(レンタルサーバ)だと
data =
flag=1
と表示されます。

私の予想では
data = 実験です
flag = 1
と表示されると思ったのですが何が原因でしょうか。
またlinuxとwindowsで結果が違うのは何か原因があり、
また修正可能でしょうか。
openに+>の挙動例が書いていないサイトもあることが
若干気になります。
もし+>自体が不安定なのでしたら安定して使えるもの
をおしえてください。所望の挙動は読み取り＋上書き書き込みです。
環境
windows2000 "an http daemon"
linux (infoseekフリースペース) apache

回答No.1

Ethersky · ベストアンサー

+> は、入出力共用ではありますが上書き用途です。
既にファイルが存在した場合、+> で開いた時点で0バイトのファイルになります。
+> は、「書いてから読む」向けです。
serchさんが希望する動作をさせるには +< を使います。
が、その場合以下のように書いたのでは正しく動作しません。（なお、ここではHTMLではなくプレーンテキストで吐かせてます）

print "Content-type: text/plain\n\n";
open(FILE, "+< sample.txt");
$data = <FILE>;
print "data = $data\n";
$flag = print FILE "TEST MESSAGE";
print "flag = $flag\n";
close(FILE);

この状態だと、最終的なsample.txtの中身は以下のようになります。

実験ですTEST MESSAGE

つまり、元から入っていた「実験です」の続きに「TEST MESSAGE」が入ります。

そこで以下のようにします。

print "Content-type: text/plain\n\n";
open(FILE, "+< sample.txt");
$data = <FILE>;
print "data = $data\n";
truncate(FILE,0); #ファイルを0バイトに切り詰め
seek(FILE,0,0); #読み書きのポインタ位置をファイルの先頭に
$flag = print FILE "TEST MESSAGE";
print "flag = $flag\n";
close(FILE);

truncateでファイルサイズを0バイト（空）にし、seekで書き込む位置を先頭に戻してこれで予想通りの動作ができます。

但し、+< は「読んでから書く」のごとくopenする時点でファイルそのものが存在しないとエラーとなります。

お礼

確認できました。

迅速かつ的確なアドバイスでした。
参考にいたします。ありがとうございました。