20241004/perl
Suna| You are currently viewing a revision titled "20241004/perl", saved on 2024年10月4日 9:39 PM by Suna | |
|---|---|
| タイトル | 20241004/perl |
| コンテンツ | <html><head><title>データベース初歩</title></title>
<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(STDEER,"&STDOUT");} use CGI; $query=newCGI; $name=$query->param('name'); $add=$query->param('add'); $tel=$query->param('tel'); $mail=$query->param('mail'); #時間を取得(location(time)アクセスした現在の時間(サーバーの時計)を取得＃＃＃＃ local($nsec,$nmin,$nhour,$nmday,$nmon,$nyear)=localtime(time); $nmon++; $nyear+=1900; $day="$nyear\t$nmon\t$nmday\t$nhour\t$nmin"; #外部ファイルに書き込み########## @data="$day\t$name\t$add\t$tel\t$mail\n"; open(FILE,">>save.txt")||&error("$datafile 外部ファイルが開きませんでしたエラー"); print FILE@data; ################# print<<END; <html> <head> <title>input</title> </head> <body bgcolor="#FFFFFF"text="#000000"> <div align="center"> <h1><b>データベース初歩</b></h1> </div> <hr> END print"入力内容は、下記のとおりです。<br><br>\n"; print"入力日時:$day<br>\n"; print"お名前$name<br>\n"; print"ご住所:$add<br>\n"; print"電話番号:$tel<br>\n"; print"メールアドレス:$mail\n"; exit(0); |
| 抜粋 | |
| 脚注 |
