#! /usr/local/bin/perl
#
# id=form3r.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");
# ２．読み込み、１行だけ読み込み表示します
# わかりやすくするため、改行させて表示させます
$line=;
# そのまま表示します
print "データをそのまま表示します";
print "
";
print $line;
print "次に区切り記号で分けて表示します";
($dt1,$dt2,$dt3) = split(/\t/,$line);
print "
";
print $dt1;
print '
';
print $dt2;
print '
';
print $dt3;
# ３．ファイルを閉じます（読んだ直後にCLOSEしてもよい）
close(DATA);
print "\n\n";
################## end of script ##################