CGI(Perl)で数値を読み込んで計算させたい。

質問

Perlをやっているのですがまだ初心者です。

そこで質問です。

あるゲームのダメージ計算のCGIを作りたいと思っているのですが、

攻撃力：～
防御力：～
クリティカル時被ダメ：～
EXD時被ダメ：～
クリティカル時与ダメ：～
EXD時与ダメ：～

と、「～」の部分に数値を入力してもらって、その値を計算するにはどうしたらいいでしょうか？

相手攻撃力＝int(((クリティカル時被ダメ*2+防御力)+((EXD時被ダメ*2+防御力)/1.2))/2)

相手防御力＝int((((攻撃力-クリティカル時与ダメ*2)*2)+((攻撃力*1.2-EXD時与ダメ*2)*2))/2)

の様な式に値を読み込んで計算したいのですが。

よろしければ教えてください。

回答No.1

pipipi523 · ベストアンサー

HTMLで、
<form method="POST" action="xxx.cgi">
<div>攻撃力：<input type="text" name="attack"></div>
<div>防御力：<input type="text" name="defense"></div>
～省略～
<input type="submit" value="決定">
<input type="reset" value="取消">
</form>
と、CGIに入力データを送るように設定します

CGI側では、
read(STDIN,$query,$ENV{'CONTENT_LENGTH'});
foreach (split(/&/,$query)) {
($l_set,$value) = split(/=/,$_);
$form{$l_set}=$value;
}
$attack=$form{'attack'};
$defense=$form{'$defense'};

などと送られてきたデータを取り込み、
$damage=$attack-$defense;

みたいな感じでテキトーに計算すれば良いでしょう。

お礼

おおおお。

凄くスッキリしました。
ありがとうございました！