premodel question for test date 20250131
Suna<html><head><title>簡単な計算</title></head>
<body>
<center>
<form method=”post”action=”plusminus.cgi”><br><br>
足し算・引き算<br>
<input type=”text”name=”hitotsume”><br>
+<br>
<input type=”text”name=”futatsume”><br>
-<br>
<input type=”text” name=”mittsume”><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(STDERR,”>&STDOUT”);}
use CGI;
$query=new CGI;
$hitotsume=$query->param(‘hitotsume’);
$futatsume=$query->param(‘futatsume’);
$mittsume=$query->param(‘mittsume’);
$total = $hitotsume+$futatsume-$mittsume;
print”<center><font size=\”7\”>計算結果は、$total</font></center>”;
exit;
