20241004 perl
abeysekara nuwani dananjanai vijayalath<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=”mail”><br<br>
<input type=”submit”value=”送信する”><br>
<input type=”reset”value=”リセット”>
</form></center>
</body></html>
#!/usr/bin/perl
BEGIN{ $| = 1; print “Content-type: text/html\n\n”; open(STDER,”>&STDOUT”);}
use CGI
$query=new CGI;
$name=$query->param(‘name’);
$add=$query->param(‘add’);
$tel=$query->param(‘tel’);
$mail=$query->param(‘mail’);
#時間を取得(locatime(time)アクセスした現在の時間(セーバーの時計)を取得#########
local($nsec,$nmin,$nhour,$nmday,$nmon,$nyear)=localtime(time);
$nmon++;
$nyear+=1900;
$day=”$nyear\t$nmon\t$nmday\t$nhour\t$nmin”;
#外部ファイルに書き込##########################
@date=”$day\t$name\t$add\t$tel\$mail\n;
open(FILE,”>>save.txt”)||&error(“$datefile 外部ファイルが開きませんでしたエラー”);
print FILE@Ddate;
close(file);
######################################
print<<END;
<html>
<head>
