フレーム上側の画面を表示するファイル

フレーム上側の画面に表示されるファイル
掲示板の内容をファイルから読込んで表示するCGIプログラムを作成する。
掲示板の内容は「keiji.txt」に保存するとする。

また、新たな内容が書き込まれている可能性があるので、定期的に更新を自動で行うようにする。

#!/usr/local/bin/perl

print <<A;
Content-type: text/html

<HTML><HEAD>
<META HTTP-EQUIV="refresh" CONTENT=10>
</HEAD><BODY>
コメント<p>
<hr>
A

open(IN,'keiji.txt');
# flock(IN,2);
while($data=<IN>){print $data;}
close(IN);
# flock(IN,8);

print <<B;
</BODY></HTML>
B

画面の自動更新を行うために、
<HEAD></HEAD>の間に<META>タグにHTTP-EQUIV="refresh"
とオプションをつけると画面の自動読込みを行うことができ、
CONTENT=で読み込みの間隔（秒）を指定する。

後は、ファイルを読込みモードで開き、
ロックして、読込みを行い、ファイルを閉じて、ロックしている。