input.cgi
GAHA<html><head><title>データベ－ス初歩</title></head>
<body><center>
<form method=”post”action=”input.cgi”><br><br>
<h1>データベ－ス初歩</h1><br>
お名前<br>
<input type=”text”name=”name”><br><br>
住所<br>
<input type=”text”name=”add”><br><br>
電話番号<br>
<input type=”text”name=”tel”><br><br>
メールアドレス<br>
<input type=”text”name=”maill”><br><br>
<input type=”sumbit”value=”送信する”><br>
<input type=”reset” value=”リセット”>
</form></center>
</body>
#!/usr/bin/perl
BEGIN{ $| = 1; print “Content-type: text/html\n\n”; open(STDERR,
“>&STDOUT”);}
use CGI
squery = new CGI;
$name = $query->param(‘name’);
$add = $query->param(‘add’);
$tel = $query->param(‘tel’);
$mail = $query->param(‘mail’);
#時間を取得(locatime(time)アクセスした現在の時間(サーバーの時計)を取得##########
local(snsec,snmin,snhour,snmday,snmon,snyer)=locatime(time);
snmon++;
snyear+=1900;
sday=”snyear\tsnmon\snmday\snhour\tsnmin;
#外部ファイルに書き込##########
@data=”$day\t$name\tsadd\t$tel\t$mail\n”;
open(FILE,”>>save.txt”)||&error(“$datafile 外部ファイルが聞きましたエラ-“);
print FILE @data;
close(FILE);
##############################
print<<END;
<html>
<head>
————————————–
