20241004 perl
You are currently viewing a revision titled "20241004 perl", saved on 2024年10月4日 9:44 PM by abeysekara nuwani dananjanai vijayalath | |
---|---|
タイトル | 20241004 perl |
コンテンツ | <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> |
抜粋 | |
脚注 |