20230629授業内容
井原いつも使うソース(perl)
#!/usr/bin/perl
BEGIN{$| = 1;print”Content-type:text/html\n\n”;open(STDERR,”>&STDOUT”);}
use CGI;
$query = new CGI;
#!/usr/bin/perl
BEGIN{$| = 1;print”Content-type:text/html\n\n”;open(STDERR,”>&STDOUT”);}
use CGI;
$query = new CGI;
$hitotsume=$query->param(‘hitotsume’);
$futatsume=$query->param(‘futatsume’);
$total=$hitotsume + $futatsume;
print”<center><font size=\”7\”>計算結果は、$total</font></center>”;
exit;
<html><head><title>計算してみよう</title></head>
<body><center>
<form method=”post” action=”purasu.cgi”><br><br>
足し算<br>
<input type=”text” name=”hitotsume”><br>
+
<br>
<input type=”text” name=”futatsume”><br><br>
<input type=”submit” value=”送信する”><br>
<input type=”reset” value=”リセット”>
</form>
</center></body></html>
