#! /usr/local/bin/perl
#
# id=form2r.cgi
#
# ＦＯＲＭ２．ＣＧＩで書き込んだファイルを読み表示する
# update. 00.2.13
# ファイル名
$file = "/dialup/chichibu/cgi-bin/form1.dat";
# ブラウザに出力
print "Content-type: text/html\n\n";
print "\n\n";
print "ファイル処理（２）\n";
print "\n\n";
print "ファイルの内容を表示します
\n";
print "
";
# １．ファイルを読み出しモードでオープン
open(DATA,"$file");
# ２．読み込み、 WHILE命令により、ファイルの最後まで１行ずつ読み込み表示します
# わかりやすくするため、改行させて表示させます
while() { print ; print '
';}
# ３．ファイルを閉じます
close(DATA);
print "\n\n";
################## end of script ##################