POSTで受け取ったデータはファイルに書き込もう

POSTで受け取ったデータをファイルに書いてみましょう。簡単ですね。

ファイルのロックを忘れずに。

---

# カウントファイルの読み込み
open(FILE, "+<./count.dat") or die("エラー：カウントファイルが開けません");
eval{ flock(FILE, 2); };
$count = <FILE>;

# カウントファイルの書き込み
seek(FILE, 0, 0);
print FILE ++$count;
close(FILE);

---

 

タグ：ファイル書き込み cgi PER