- 締切済み
if 文についての質問です。
下記ようなプログラムで、HTML 上のフィールド (AAA)が(100) で (BBB)が(200) の場合 (300) を (変数の$answer) に格納し、実行結果を Sendmail で送信する為、新しく生成された HTML 上のフィールド (CCC) に表示したいのですが、どこが間違っているのでしょうか？お手数ですがどなたか記述上、間違っている箇所をお教え頂けると有難いです。 ---------------------------------------------------------------- #!/usr/local/bin/perl #!/usr/local/bin/perl require "cgi-lib.pl"; &ReadParse(); print "Content-type: text/html\n\n"; print <<HTML_DOCUMENT; if ($in{'AAA'} eq "100" and $in{'BBB'} eq "200") { $answer = '300'; } <html> <head> <title>Web Design [ Estimate - Order ]</title> </head> <body> <form action="test_sendmail.cgi" method="post"> <input name="AAA" type="checkbox" id="AAA" value="100"> <input name="BBB" type="checkbox" id="BBB" value="200"> <input name="CCC" type="text" id="CCC" value="$answer" size="10"> </form> </body> </html> HTML_DOCUMENT
- みんなの回答 （2）
- 専門家の回答
みんなの回答
- komorebi99
- ベストアンサー率33% (15/45)
HTML_DOCUMENTの後に、 exit; も付けましょう。
- BLUEPIXY
- ベストアンサー率50% (3003/5914)
if文の位置が ＞print <<HTML_DOCUMENT; より前でないといけない。 ＞HTML_DOCUMENT で改行してある？
お礼
print <<HTML_DOCUMENT; の前に持って来ると動きました。有難うございます。
お礼
あっ！！そうですね忘れてます。有難うございます。