20230629授業内容

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>

 


 

コメントを残す

メールアドレスが公開されることはありません。 が付いている欄は必須項目です