ベストアンサー

perlで

2005/01/02 03:13

$xが1に等しかったらブラウザクライアントに 1.html を送り表示させ $xが0に等しかったらブラウザクライアントに 0.html 送り表示させるようにCGIファイルを作ることはできるでしょうか？ ($x例えばはPOSTで受け取った変数です) 1.htmlや0.htmlを読み込みprintで一行ずつ書いていくことしかできないのでしょうか？

guuman
お礼率86% (1043/1206)

Perl
回答数2
ありがとう数3

みんなの回答 （2）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

arcsin
ベストアンサー率70% (28/40)

2005/01/02 19:04 回答No.2

＃１の方と同じですが、javascriptを使うか、locationをつかうかmetaを使うのが手っ取り早い方法でしょう。 javascriptはoffにされてしまうとどうしようもないので、locationかmetaの方法に絞られます。 locationを使う場合($xには0か1のどちらかが入っていると保証されているとして）、Content-type:text/htmlを出力する前に、 print "Location:./$x.html\n\n"; 等すればいいと思います。ただしlocationヘッダはサーバによっては使えません。使えないサーバであればmetaの方法が有効です。 metaを使う場合、 print "Content-type:text/html;\n\n"; print "<html>\n"; print "<head>\n"; print "<META HTTP-EQUIV="Refresh" CONTENT="0; URL=./$x.html"> print "</head>\n"; print "</html>\n"; とすればよいでしょう。

質問者