#1130(海豚氏)の書き込みを引用します:
@A = (20,25,30,35,40,45,50,55,60,65,70,75,80,85,90,95,100,105,110,115,120,125,127,130);
@B = (20,25,30,35,40,45,50,55,60,65,70,75,80,85,90,95,100,105,110,115,120,125,127,130);
@C = (20,25,30,35,40,45,50,55,60,65,70,75,80,85,90,95,100,105,110,115,120,125,127,130);
@D = (20,25,30,35,40,45,50,55,60,65,70,75,80,85,90,95,100,105,110,115,120,125,127,130);
print "Content-type: text/html\n\n";
print "<html><head><title>$title</title></head>\n";
print "$body\n";
print "<hr noshade>\n";
$pin = ((($A / $B) / ($C / $D)) * 5);
print "[$pin ＝ (($A÷$B)÷($C÷$D))×5]\n";
}
print "</body></html>\n";
exit;
ってこんな感じにしてみたんですが出来ませんでした。
やっぱりダメですよね・・・。