basket
poojabasket.html
<html><head><title>バスケット</title></head>
<body><center>
<form method=”post”action=”basket.cgi”><br><br>
バスケット<br>
<br>
ミカン1個100円が<input type=”text” name=”mikan”>個<br>
りんご1個200円が<input type=”text” name=”ringo”>個<br>
バナナ1個300円が<input type=”text” name=”banana”>個<br>
パイナップル1個500円が<input type=”text” name=”paineapple”>個<br>
<input type=”submit”value=”送信”><br>
</form>
</center></body></html>
basket.cgi
#!/usr/bin/perl
BEGIN{ $|=1;print”Content-type:text/html\n\n”;(STDERR,”>&STDOUT”);}
use CGI;
$query = new CGI;
$mikan=$query->param(‘mikan’);
$ringo=$query->param(‘ringo’);
$banana=$query->param(‘banana’);
$paineapple=$query->param(‘paineapple’);
@basket=($mikan,$ringo,$banana<$paineapple);
$mikanto=@basket[0]*100;
$ringoto=@basket[1]*200;
$bananato=@basket[2]*300;
$paineappleto=@basket[3]*500;
$alltotal=($mikanto+$ringoto+$bananato+$paineappleto);
print”<center><font size=\”7\”>バスケットの 中身の合計金額は,$alltotal 円
</font></center>”;
exit;
