CGI超初心者です。 htmlファイルに設置したテキストボックスの値によって CGIで表示させる内容を変えたいです。ネットで検索してコードを作成してみたのですがうまくいきません。どのように修正すればいいのでしょうか？ test.html---------------------------------------- 変数を入力 ------------------------------------------------- test.cgi----------------------------------------- #!/usr/local/bin/perl $h = $FORM{'hen'}; print "Content-Type: text/html; charset=Shift_JIS\n\n"; print " \n"; print " サンプル \n"; print " \n"; if ($h > 50) { print " 変数hの内容は50より大きいです。 \n"; } else { print " 変数hの内容は50より小さいです。 \n"; } print " \n"; print " \n"; exit; ------------------------------------------------- テキストボックスに、50以上の数字を入力しても、50以下の数字を入力してもどちらも「変数hの内容は50より小さいです。」と表示されてしまいます。よろしくお願いいたします！ ※ 前回の質問（http://oshiete.goo.ne.jp/qa/8179935.html）より、CGIは使わない方向で検討中ですが CGIに途中まで足をつっこんでしまい、気になったので質問させていただきました。

CGIでテキストボックスの内容によって条件分岐

解決済

質問者：masunona
質問日時：2013/07/18 11:38
回答数：2件

CGI超初心者です。

htmlファイルに設置したテキストボックスの値によって
CGIで表示させる内容を変えたいです。
ネットで検索してコードを作成してみたのですが
うまくいきません。
どのように修正すればいいのでしょうか？

test.html----------------------------------------

<FORM action="test.cgi" method="POST">
変数を入力
<INPUT type="text" name="hen">
<INPUT TYPE="submit" VALUE="送り">
</FORM>

-------------------------------------------------

test.cgi-----------------------------------------

#!/usr/local/bin/perl

$h = $FORM{'hen'};

print "Content-Type: text/html; charset=Shift_JIS\n\n";
print "<html>\n";
print "<head><title>サンプル</title></head>\n";
print "<body>\n";

if ($h > 50) {
print "<p>変数hの内容は50より大きいです。</p>\n";
} else {
print "<p>変数hの内容は50より小さいです。</p>\n";
}

print "</body>\n";
print "</html>\n";

exit;

-------------------------------------------------

テキストボックスに、50以上の数字を入力しても、50以下の数字を入力しても
どちらも
「変数hの内容は50より小さいです。」
と表示されてしまいます。

よろしくお願いいたします！

※ 前回の質問（http://oshiete.goo.ne.jp/qa/8179935.html）
より、CGIは使わない方向で検討中ですが
CGIに途中まで足をつっこんでしまい、
気になったので質問させていただきました。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

No.1ベストアンサー

回答者： t_ohta
回答日時：2013/07/18 11:58

書かれているプログラムだと $FORM の中身は空っぽです。

まずはフォームから送られてきたデータを変数に入れましょう。
下記のようなプログラムで変数に入れることができます。

if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $str, $ENV{'CONTENT_LENGTH'});
} else {
$str = $ENV{'QUERY_STRING'};
}

foreach $i (split('&', $str)) {
$i =~ tr/+/ /;
$i =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg;
($t1, $t2) = split('=', $i);
$FORM{"$t1"} = $t2;
}

- 0
- 件

通報する

この回答へのお礼

ありがとうございます！

いただいたコードをそのまま貼り付けたら正常に動作するようになりました！
今後もっと勉強します。
大変助かりました！
ありがとうございました！

通報する

お礼日時：2013/07/18 13:20

No.2

回答者： blue-goheimochi
回答日時：2013/07/18 11:58

CGIでPOSTのデータを受け取るには、

read(STDIN, $data, $ENV{'CONTENT_LENGTH'});

のように受け取る必要があります。

この形で受け取ると、

$data の中に hen=20&submit=%91%97%82%e8

というようなデータが格納されますので、
この文字列を分割して、変数に分けて・・・
（詳しいコードは参考URLを参照ください！）
という形で利用できるようになると思います。

PHPでは $_POST['hen'] の形で受け取ることができますが、
CGIではひと手間必要な形ですね。

参考URL：http://www.aimix.jp/cgi/syohofrmgetvw.html