CGIでラジオボタンの選択結果を保持する

Question

http://oshiete.goo.ne.jp/qa/8211303.html 上記質問の続きです。 Q1,Q2,Q3・・・と質問をいくつか用意し、それぞれで選択したラジオボタンによって、最終ページに表示させる回答を変えたいです。ひとつ前のページで選択したものを次ページに反映させることはなんとかできたのですが何ページも前に選択した回答を、最終ページに反映させる方法がわかりません。

犬がすき
猫がすき
うさぎがすき

右利き
左利き

【Q2】

ORUKA1951 · Accepted Answer

ちょっと手を加えてみた。 1) ./html/NQ3.htmlは./html/FQ3.htmlに名称変更 2) ERRORを補足するためBIGIN{}を加えた。 3) きちんとHTMLが出力されることを確認したら必ず削除 #!/usr/local/bin/perl BEGIN{ $| = 1; print "Content-type: text/plain "; open(STDERR, ">&STDOUT"); } use strict; my $SECTION = "

"; read(STDIN, my $buffer, $ENV{'CONTENT_LENGTH'}); my $HTML ="/index.html"; my $PATH = '/Q1.html'; my @pairs = split(/&/,$buffer); my $meter_value ="1"; my %FORM = (); my ($pair,$STYLE,$MESSAGE,$INFORM); foreach $pair (@pairs) { ＿my ($name, $value) = split(/=/, $pair); ＿$FORM{$name}=$value; ＿$INFORM .= " "; } if($FORM{'Q3'} && $FORM{'Q2'} && $FORM{'Q1'}){ ＿$MESSAGE="回答です。"; ＿$STYLE = "section p{font-size:2em;text-indent:1em;padding:0.5em 1em;"; } else{ ＿$MESSAGE="下記の質問にお答えください。"; ＿$STYLE = "section{background-color:silver;"; } if($FORM{'Q3'} eq "W"){ ＿if($FORM{'Q2'} eq "M"){ ＿＿$SECTION .=qq^

あなたは、西日本生まれの既婚男性です。

^; ＿＿$STYLE .= "background-color:blue;color:white;}"; ＿} ＿else{$SECTION .= qq^

あなたは、西日本生まれ未婚男性です。

^; ＿＿$STYLE .= "background-color:aqua;"; ＿} } elsif($FORM{'Q3'} eq "E"){ ＿if($FORM{'Q2'} eq "M"){ ＿＿$SECTION .=qq^

あなたは、東日本生まれの既婚男性です。

^; ＿＿$STYLE .= "background-color:green;"; ＿} ＿else{ ＿＿$SECTION .= qq^

あなたは、東日本生まれ未婚男性です。

^; ＿＿$STYLE .= "background-color:lime;"; ＿} } elsif($FORM{'Q3'} eq "F"){ ＿if($FORM{'Q2'} eq "M"){ ＿＿$SECTION .=qq^

あなたは、太った既婚女性です。

^; ＿＿$STYLE .= "background-color:yellow;"; ＿} ＿else{ ＿＿$SECTION .= qq^

あなたは、太った未婚女性です。

^; ＿＿$STYLE .= "background-color:orange;"; ＿} } elsif($FORM{'Q3'} eq "S"){ ＿if($FORM{'Q2'} eq "M"){ ＿＿$SECTION .=qq^

あなたは、痩せた既婚女性です。

^; ＿＿$STYLE .= "background-color:red;"; ＿} ＿else{ ＿＿$SECTION .=qq^

あなたは、痩せた未婚女性です。

^; ＿＿$STYLE .= "background-color:fuchsia;"; ＿} } else{ ＿if($FORM{'Q2'} eq "M" || $FORM{'Q2'} eq 'N'){ ＿＿$meter_value = '0.67'; ＿＿$PATH = '/answer.html'; ＿＿if($FORM{'Q1'} eq 'M'){$HTML = 'MQ3.html';} ＿＿else{$HTML = 'FQ3.html';} ＿} ＿elsif($FORM{'Q1'} eq "M" || $FORM{'Q1'} eq "F"){ ＿＿$meter_value = '0.33'; ＿＿$HTML = 'Q2.html';$PATH = '/Q3.html'; ＿} ＿elsif($FORM{'Q0'} eq "ok"){ ＿＿$meter_value = '0.2'; ＿＿$HTML = 'Q1.html';$PATH = '/Q2.html'; ＿} ＿else{ ＿＿if($FORM{'Q1'} eq ""){$MESSAGE .= "

データがありません ";} ＿＿$meter_value ="0"; ＿＿$PATH = '/Q1.html'; ＿} } my $FORM = "

"; my $METER = "

$meter_value

"; print "content-type:text/html "; while(){ ＿s//$METER/; ＿s//\* style \*//$STYLE/; ＿s//$MESSAGE/; ＿s//$SECTION/; ＿print; } __END__ サンプル＿

＿＿

Your title

＿＿

＿

ORUKA1951 · Answer

＞TESTファイルに.cgiとつけてみたら正常に動きました！
　と言うことは、CGIは動作する。
　そのディレクトリに
Options に　+ExecCGI
　が指定されていて、かつ、
AddHandler cgi-script .cgi
　が指定されている。ということです。

この場合.htaccessに
AddType application/x-httpd-cgi TEST;
で、TESTというファイルはCGIとして動作するはずです。
ひょっとして、TESTの実行権限が666のままとか？？
あるいは、
SetHandler cgi-script
を書く必要があるのかも／？？

いずれにしても、拡張子は動作には関係ないのです。Windowsとは異なり、すべての動作は設定ファイルでディレクトリごとファイル名ごと、拡張子こどに指定できる物なのですよ。
　拡張子の呪縛から解放されると良いですね。

ORUKA1951 · Answer

AddType application/x-httpd-cgi TEST;

とは、TESTというファイルをCGIとして解釈しろと言う意味です。
httpd.confを直接変更するのではなく。httpd.confには、
AllowOverride All
を指定して、.htaccessで上書きが出来るようにしておかなければなりません。
　⇒Apache チュートリアル: .htaccess ファイル - Apache HTTP サーバ( https://httpd.apache.org/docs/2.4/ja/howto/htacc … )
[例]
<Directory "G:/usr/local/apache/cgi-bin">
AllowOverride All
Options ALL Includes ExecCGI
Order allow,deny
Allow from all
</Directory>

　なお、自前のサーバーであれば、httpd.confで直接しています。

＞できれば.cgiでやりたいなーと今更思っているのですが・・・
　これは、あなたの質問の一番最初に「たくさんのHTMLファイル・・」「最後に回答を」と書かれていたので、それに従ったのですよ。

　アクセスされると
****/cgi-bin/TEST
　になり、ボタンを押すと
****/cgi-bin/TEST/Q1.html
****/cgi-bin/TEST/Q2.html
****/cgi-bin/TEST/Q3.html
****/cgi-bin/TEST/answer/html
とURLが変わって行く筈です。もちろんデータなしで直接URLを指定しても、****/cgi-bin/TEST・・・あるいは****/cgi-bin/TEST/index.htmlと同じ内容に代わっているはずです。

　概観上、CGIであることを隠す・・というか、
****/cgi-bin/TEST.cgi/Q1.html　　じゃなく
　QERY_STRINGSを表に出さないというか・・

ORUKA1951 · Answer

＞TESTファイルに書かれたコードが文字化けして出てきました！
エラーがテキストで出力されてきますから、UTF対応のブラウザなら文字コード、テキストエディタならUTFで見れば・・
　そしたら、BEGIN{}の行を削除するとOKのはずです。

ORUKA1951 · Answer

その時点でエラーがでるということは
perlへのパスが間違っているのでは？？
　telnet が使えれば、
> which perl

UTFにした時に、BOMが付いてしまった？？？
　^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

ORUKA1951 · Answer

再度、よく読んで・・・

perlののパスの下に
#!/usr/local/bin/perl
BEGIN{ $| = 1; print "Content-type: text/html

"; open(STDERR, ">&STDOUT"); } 
と書いておくと、エラー内容がブラウザから確認できます。

面白いし、使えそうなのでもう少し手を入れたものを今夕にでも・・

ralf124c · Answer

たびたびでスイマセン

> すみません、、、「大丈夫」というのの意味がわかりません。。。
> nameのつけかたまずいですか？
nameの付け方がまずいわけではなく、CGIにPOSTした際にnameに気を付けてデータ取得していますかということです
POSTされたデータをどのようにして変数に配置代入しているのかその部分のリストが提示されていないのであくまで見た目のお話ですが

例えば
・質問のフォームでは「Q1」には「q11」および「q12」がnameとして使われています
・ANo.1さんのお礼欄では、"$q11" および "$q12" というnameに対応した変数に代入して、それぞれ「q11a」「q12a」というnameのinputタグ内のvalueにセッティングしてます
・さらに同じくお礼欄で、その次のステップでは、"$q11" および "$q12" と1順目と同じ変数を使って「q11a」「q12a」というnameのinputタグ内のvalueにセッティングしてますが・・・
もしかしてなんですが、「nameと変数名を同じ」作りにしていて、2巡目では変数 "$q11a"と"$q12a"をinputタグ内のvalueにセッティングしなければいけない作りになっていませんか？

という意味の「大丈夫？」というものでした
値が渡されていないのは異なるnameや変数を参照している以外考えられないからです
上記の点をご確認ください

ORUKA1951 · Answer

ちょっと変なところがあったので・・ ★文字コードはすべてUTF-8です。 #!/usr/local/bin/perl my $SECTION = "

"; read(STDIN, my $buffer, $ENV{'CONTENT_LENGTH'}); my $HTML ="/index.html"; my $INFORM =""; my $PATH = '/Q1.html'; my @pairs = split(/&/,$buffer); my $STYLE =""; foreach $pair (@pairs) { ＿my ($name, $value) = split(/=/, $pair); ＿$FORM{$name}=$value; ＿$INFORM .= " "; } if($FORM{'Q3'} && $FORM{'Q2'} && $FORM{'Q1'}){ ＿$MESSAGE="回答です。"; ＿$STYLE = "section p{font-size:2em;text-align:center;"; } else{ ＿$MESSAGE="下記の質問にお答えください。"; } if($FORM{'Q3'} eq "W"){ ＿if($FORM{'Q2'} eq "M"){ ＿＿$SECTION .=qq^

あなたは、西日本生まれの既婚男性です。

^; ＿＿$STYLE .= "background-color:blue;color:white;}"; ＿} ＿else{$SECTION .= qq^

あなたは、西日本生まれ未婚男性です。

^; ＿＿$STYLE .= "background-color:aqua;"; ＿} } elsif($FORM{'Q3'} eq "E"){ ＿if($FORM{'Q2'} eq "M"){ ＿＿$SECTION .=qq^

あなたは、東日本生まれの既婚男性です。

^; ＿＿$STYLE .= "background-color:green;"; ＿} ＿else{ ＿＿$SECTION .= qq^

あなたは、東日本生まれ未婚男性です。

^; ＿＿$STYLE .= "background-color:lime;"; ＿} } elsif($FORM{'Q3'} eq "F"){ ＿if($FORM{'Q2'} eq "M"){ ＿＿$SECTION .=qq^

あなたは、太った既婚女性です。

^; ＿＿$STYLE .= "background-color:yellow;"; ＿} ＿else{ ＿＿$SECTION .= qq^

あなたは、太った未婚女性です。

^; ＿＿$STYLE .= "background-color:orange;"; ＿} } elsif($FORM{'Q3'} eq "S"){ ＿if($FORM{'Q2'} eq "M"){ ＿＿$SECTION .=qq^

あなたは、痩せた既婚女性です。

^; ＿＿$STYLE .= "background-color:red;"; ＿} ＿else{ ＿＿$SECTION .=qq^

あなたは、痩せた未婚女性です。

^; ＿＿$STYLE .= "background-color:fuchsia;"; ＿} } else{ ＿if($FORM{'Q2'} eq "M"){ ＿＿$HTML = 'MQ3.html'; ＿＿$PATH = '/answer.html'; ＿} ＿elsif($FORM{'Q2'} eq "N"){ ＿＿$HTML = 'NQ3.html'; ＿＿$PATH = '/answer.html'; ＿} ＿elsif($FORM{'Q1'} eq "M" || $FORM{'Q1'} eq "F"){ ＿＿$HTML = 'Q2.html'; ＿＿$PATH = '/Q3.html'; ＿} ＿elsif($FORM{'Q0'} eq "ok"){ ＿＿$HTML = 'Q1.html'; ＿＿$PATH = '/Q2.html'; ＿} } my $FORM = "

"; print "content-type:text/html "; while(){ ＿s//\* style \*//$STYLE/; ＿s//$MESSAGE/; ＿s//$SECTION/; ＿print; } __END__ サンプル＿

＿＿

Your title

＿＿

＿

ORUKA1951 · Answer

＞いただいたコードはページは飛ばず、ひとつのページ内にいくつか質問が表示されているものなのかな？と思いました。　別々のHTMLだろうが、ページ内だろうがCGIを使う限り、一切関係ないです。 ★下記を実際に試してください。 http：//hoge/**/TEST でHTMLが表示されるはずです。　以後は、URLはそれぞれのHTMLとして個別に開きます。 ★実際に試さないと、けっして理解できないですよ。 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 　ごく簡単なサンプルを・・タブは＿に置換してあるので戻す。 1)下記内容の[.htaccess]をCGIを置くディレクトリに置く。 AddType application/x-httpd-cgi TEST; 2) そのディレクトリに[html]という名前のディレクトリを作る。 3) 拡張子なしで最後に書いてあるTESTと言うファイルを置く。　　先頭のperlへのパスは書き換えること!! 　　CGIとして実行権限を与えておく。755とか、705です。 4) その中に次のファイル名のテキストファイル(HTMLの断片)をそれぞれのファイル名で入れる。　　パーミッションは、644とか。 [index.html] ＿＿＿＿＿＿

今かな色々質問します。

＿＿＿

よろしかったらクリックしてください。

[MQ3.html] ＿＿＿

あなたは西日本出身？それとも東日本出身？

＿＿＿

西日本：

＿＿＿

東日本：

[NQ3.html] ＿＿＿

あなたは太っている？それとも痩せてる？

＿＿＿

太っている：

＿＿＿

痩せている：

[Q1.html] ＿＿＿

あなたは男？それとも女？

＿＿＿

男：

＿＿＿

女：

[Q2.html] ＿＿＿

あなたは未婚？それとも既婚？

＿＿＿

既婚：

＿＿＿

未婚：

[TEST]・・・拡張子なしでTESTというファイル #!/usr/local/bin/perl my $SECTION = "

"; read(STDIN, my $buffer, $ENV{'CONTENT_LENGTH'}); my $HTML ="index.html"; my $INFORM =""; my @pairs = split(/&/,$buffer); foreach $pair (@pairs) { ＿my ($name, $value) = split(/=/, $pair); ＿$value =~ tr/+/ /; ＿$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; ＿$name =~ tr/+/ /; ＿$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; ＿if ($value =~ / /) { $value =~ s/ //g; } ＿elsif ($value =~ / /) { $value =~ s/ / /g; } ＿$FORM{$name}=$value; ＿$INFORM .= " "; } if($FORM{'Q3'} && $FORM{'Q2'} && $FORM{'Q1'}){ ＿$MESSAGE="回答です。"; } else{ ＿$MESSAGE="下記の質問にお答えください。"; } if($FORM{'Q3'} eq "W"){ ＿$HTML = 'answer.html'; ＿if($FORM{'Q2'} eq "M"){$SECTION =qq^

西日本生まれの既婚男性

^;} ＿else{$SECTION .= qq^

西日本生まれ未婚男性

^;} } elsif($FORM{'Q3'} eq "E"){ ＿$HTML = 'answer.html'; ＿if($FORM{'Q2'} eq "M"){$SECTION =qq^

東日本生まれの既婚男性です。

^;} ＿else{$SECTION .= qq^

東日本生まれ未婚男性

^;} } elsif($FORM{'Q3'} eq "F"){ ＿$HTML = 'answer.html'; ＿if($FORM{'Q2'} eq "M"){$SECTION =qq^

太った既婚女性

^;} ＿else{$SECTION .= qq^

太った未婚女性

^;} } elsif($FORM{'Q3'} eq "S"){ ＿$HTML = 'answer.html'; ＿if($FORM{'Q2'} eq "M"){$SECTION =qq^

痩せた既婚女性

^;} ＿else{$SECTION .=qq^

痩せた未婚女性

^;} } else{ ＿if($FORM{'Q2'} eq "M"){ ＿＿$HTML = 'MQ3.html'; ＿} ＿elsif($FORM{'Q2'} eq "N"){ ＿＿$HTML = 'NQ3.html'; ＿} ＿elsif($FORM{'Q1'} eq "M" || $FORM{'Q1'} eq "F"){ ＿＿$HTML = 'Q2.html'; ＿} ＿elsif($FORM{'Q0'} eq "ok"){ ＿＿$HTML = 'Q1.html'; ＿} } my $FORM = "

"; print "content-type:text/html "; while(){ ＿s//$MESSAGE/; ＿s//$SECTION/; ＿print; } __END__ サンプル＿

＿＿

Your title

＿＿

＿

ralf124c · Answer

たびたびすいません
もしかしてなんですけど
２巡目以降のinputタグ内name、「q11a」とか「q12a」の「a」っていうのは大丈夫なんですか？

CGIでラジオボタンの選択結果を保持する

ちょっと手を加えてみた。

＞TESTファイルに.cgiとつけてみたら正常に動きました！

AddType application/x-httpd-cgi TEST;

＞TESTファイルに書かれたコードが文字化けして出てきました！

この回答への補足

その時点でエラーがでるということは

この回答への補足

No.4です。

たびたびでスイマセン

ちょっと変なところがあったので・・

＞いただいたコードはページは飛ばず、ひとつのページ内にいくつか質問が表示されているものなのかな？と思いました。

たびたびすいません

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング