#!/usr/local/bin/perl
# フォームからのデータをファイルに書きこむ（１）
# このＣＧＩは、必要なチェック（タグや数字）もないものです
# これでは実際に使用することはできませんが基本構文として
# 紹介します（特にタグをそのままにしておくとトラブルのもとになります）
# id=form1.cgi
# update. 2000.2.3
require 'cgi-lib.pl';
&ReadParse;
# ファイル名
$file = "/dialup/chichibu/cgi-bin/form1.dat";
# ファイル登録 ・・・ プログラムの流れと人間の動作はまったく同じです
# 最初に、台帳を開きます（１ページから開いたり、後ろに書き足したりしますね）
# 次に、ペンを使って 書きこみます
# 最後に、台帳を閉じます
# １．ファイルを上書きモードでオープン
open(DATA,">$file");
# ２．書きこみ
print DATA $in{Q1};
# ３．ファイルを閉じます
close(DATA);
# これでファイル処理はおしまいです・・・ＣＧＩでは最後は必ずブラウザ出力を
# しなければなりません、というのは内部処理だけで終わると画面に処理が戻らず
# 画面操作を継続することができなくなるからです。
# ブラウザに出力
print "Content-type: text/html\n\n";
print "\n\n";
print "ファイル処理（１）\n";
print "\n\n";
print "ファイル処理を正常終了しました
\n";
print "
";
print "\n\n";
################ end of script #################