CGIでhtmlページを表示する方法

2013/07/19 12:07

このQ&Aのポイント

CGI超初心者のため、htmlファイルにラジオボタンを設置し、Aを選んだらhttp://www.a.html、それ以外を選んだらhttp://www.b.htmlというサイトを開くCGIを作成したいです。
現在のコードでは、文字が表示されるだけでなく、うまく動作しません。修正するにはどうすればよいでしょうか？
修正を試みる際には、Content-Typeヘッダーの設定と、print文の位置を確認してください。

CGIでhtmlページを表示する

連日質問させていただいています。 CGI超初心者です。 htmlファイルにラジオボタンを設置し、 Aを選んだらhttp://www.a.html、それ以外を選んだらhttp://www.b.html というサイトを開くようなCGIを作成したいです。以下のようにやってみたのですがうまくいきません。どのように修正したらいいでしょうか？ #============================================ 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; } $q1 = $FORM{'radio'}; print "Content-Type: text/html; charset=Shift_JIS\n\n"; print "<html>\n"; print "<head></head>\n"; print "<body>\n"; if ($q1 eq "A") { print "Location: http://www.a.html\n\n"; } else { print "Location: http://www.b.html\n\n"; } print "</body>\n"; print "</html>\n"; exit; #============================================ 上記のようにすると、以下のように、ただ文字が表示されてしまいます。 Location: http://www.a.html #============================================ 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; } $q1 = $FORM{'radio'}; print "charset=Shift_JIS\n\n";←★ print "<html>\n"; print "<head></head>\n"; print "<body>\n"; if ($q1 eq "A") { print "Location: http://www.a.html\n\n"; } else { print "Location: http://www.b.html\n\n"; } print "</body>\n"; print "</html>\n"; exit; #============================================ ★部分が悪いのかなぁと思い、上記のように修正してみたり、（Content-Type: text/html; を削除してみました） ★部分を全部削除してみると Internal Server Error となってしまいます。よろしくお願いいたします！