一つの画面で複数のパラメータを渡したい。

質問

いつもお世話になります。
perlでcgiを作成しております。
ある画面の処理で複数入力エリア（テキスト、次のプログラムを呼ぶパラメータ）を設けそれぞれの入力エリアの下に
<input type="submit" name="Submit" value="変更">で変更ボタンを設けております。このボタンを押下すると押下された入力エリアのパラメータをコール元に渡すのですが、一番先頭のパラメータしかコール元にわたっていないようです。HTMLでsubmmitは一画面に一回しか記述できないのでしょうか。
イメージは下記の通りです。
大変恐縮ですが、どうすれば一つの画面で複数のパラメータを渡せるのかご教示願います。
PGM{
if (p == A)
}
&a;
{
else if (p == b)
{
&b;
}
-----
入力エリアA
<input type="submit" name="Submit" value="変更">
パラメータA渡し
入力エリアB
<input type="submit" name="Submit" value="変更">
パラメータB渡し

回答No.1

moon_night · ベストアンサー

パラメータの渡し方が分からないので正確には答えられませんが、
入力エリアAと入力エリアBを分けないで、
全体を<form>で括れば値を受け渡せると思います。

ところで、
if (p == A)
とやっても p や A は変数ではないので、tureの処理はしないと思いますが。

お礼

moon_night様ご回答ありがとうございます。お二方のご回答で何とか成りました。ありがとうございました。

回答No.2

PrintScree

複数のINPUTの値を一つのsubmitで渡したい場合は<FORM>を使用します。

<FORM METHOD=GET ACTION="値を渡したいCGIファイル名>
<INPUT TYPE=HIDDEN NAME="y" VALUE=2006>
<INPUT TYPE=HIDDEN NAME="m" VALUE=03>
<INPUT TYPE=HIDDEN NAME="d" VALUE=27>
<INPUT TYPE=submit VALUE="送信">
<INPUT TYPE=reset VALUE="取消">
</FORM>

そうすると、値を受け取る側では
local($Query_String) = $ENV{'QUERY_STRING'};
@pairs = split(/&/,$Query_String);
foreach $pair (@pairs) {
　($name, $value) = split(/=/, $pair);
　$value =~ tr/+/ /;
　$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

　$QUERY{$name} = $value;
}
というロジックで、y=2006&m=03&d=27という値を受け取れます。
このロジックでは、$QUERYという連想配列に値をセットしています。

お礼

PrintScree様大変丁寧な説明ありがとうございました。理解が深まりました。また別の問題も発生しております。よろしければそちらもご協力下さい。