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

質問

http://okwave.jp/qa/q8211303.html
上記質問の続きです。

Q1,Q2,Q3・・・と質問をいくつか用意し、
それぞれで選択したラジオボタンによって、最終ページに表示させる回答を変えたいです。

ひとつ前のページで選択したものを次ページに反映させることはなんとかできたのですが
何ページも前に選択した回答を、最終ページに反映させる方法がわかりません。

<input type="hidden"を使うところまでは教えていただいたのですが
具体的にどうしていいかわかりません。
参考サイト等ありましたら教えていただけますでしょうか。
よろしくお願いいたします！

ちなみに作成方法は以下のような感じです。

【Q1】
<form name="q1" action="com.cgi" method="POST">
<input type="hidden" name="stage" value="q1" />
<ol>
<li><input type="radio" name="q11" value="q11_a"> 犬がすき</li>
<li><input type="radio" name="q11" value="q11_b"> 猫がすき</li>
<li><input type="radio" name="q11" value="q11_c"> うさぎがすき</li>
</ol>

<ol>
<li><input type="radio" name="q12" value="q12_a"> 右利き</li>
<li><input type="radio" name="q12" value="q12_b"> 左利き</li>
</ol>

<input type="submit" value="次へ" />

【Q2】
<form name="q2" action="com.cgi" method="POST">
<input type="hidden" name="stage" value="q2" />
<ol>
<li><input type="radio" name="q21" value="q21_a"> 海がすき</li>
<li><input type="radio" name="q21" value="q21_b"> 山がすき</li>
<li><input type="radio" name="q21" value="q21_c"> 散歩がすき</li>
</ol>

<input type="submit" value="次へ" />

【Q3】
<form name="q3" action="com.cgi" method="POST">
<input type="hidden" name="stage" value="q3" />
<ol>
<li><input type="radio" name="q31" value="q31_a"> 男性</li>
<li><input type="radio" name="q31" value="q31_b"> 女性</li>
</ol>

<ol>
<li><input type="radio" name="q32" value="q32_a"> 既婚</li>
<li><input type="radio" name="q32" value="q32_b"> 未婚</li>
</ol>

<input type="submit" value="判定" />

【最終ページ】
「あなたは犬がすきで右利きですね」
「あなたは海がすきですね」
「あなたは女性で既婚ですね」

と表示させたいです。

実際には、Q1→Q2→Q3と順番にページが飛ぶのではなく、
この答えだったら次はこのページ、それ以外は別のページ、
といった感じで、様々なページに飛びます。

以下のような感じで条件分岐を書いています。

if ($stage eq "q1") {

if ($q11 eq "q11_a") {
Q2();
}

elsif ($q11 eq "q11_c") {
・・・;
}

elsif ($q12 eq "q12_b") {
Q3();
}

else {
・・・;
}
}

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

回答No.8

ORUKA1951 · ベストアンサー

ちょっと手を加えてみた。
1) ./html/NQ3.htmlは./html/FQ3.htmlに名称変更
2) ERRORを補足するためBIGIN{}を加えた。
3) きちんとHTMLが出力されることを確認したら必ず削除

#!/usr/local/bin/perl
BEGIN{ $| = 1; print "Content-type: text/plain\n\n"; open(STDERR, ">&STDOUT"); }
use strict;
my $SECTION = "\t<section>\n";
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 .= "\t\t\t<input type=\"hidden\" name=\"$name\" value=\"$value\">\n";
}
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^\t\t<p>あなたは、西日本生まれの既婚男性です。</p>\n^;
＿＿$STYLE .= "background-color:blue;color:white;}";
＿}
＿else{$SECTION .= qq^\t\t<p>あなたは、西日本生まれ未婚男性です。</p>\n^;
＿＿$STYLE .= "background-color:aqua;";
＿}
}
elsif($FORM{'Q3'} eq "E"){
＿if($FORM{'Q2'} eq "M"){
＿＿$SECTION .=qq^\t\t<p>あなたは、東日本生まれの既婚男性です。</p>\n^;
＿＿$STYLE .= "background-color:green;";
＿}
＿else{
＿＿$SECTION .= qq^\t\t<p>あなたは、東日本生まれ未婚男性です。</p>\n^;
＿＿$STYLE .= "background-color:lime;";
＿}
}
elsif($FORM{'Q3'} eq "F"){
＿if($FORM{'Q2'} eq "M"){
＿＿$SECTION .=qq^\t\t<p>あなたは、太った既婚女性です。</p>\n^;
＿＿$STYLE .= "background-color:yellow;";
＿}
＿else{
＿＿$SECTION .= qq^\t\t<p>あなたは、太った未婚女性です。</p>\n^;
＿＿$STYLE .= "background-color:orange;";
＿}
}
elsif($FORM{'Q3'} eq "S"){
＿if($FORM{'Q2'} eq "M"){
＿＿$SECTION .=qq^\t\t<p>あなたは、痩せた既婚女性です。</p>\n^;
＿＿$STYLE .= "background-color:red;";
＿}
＿else{
＿＿$SECTION .=qq^\t\t<p>あなたは、痩せた未婚女性です。</p>\n^;
＿＿$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 .= "</p>\n\t\t\t<p>データがありません\n";}
＿＿$meter_value ="0";
＿＿$PATH = '/Q1.html';
＿}
}
my $FORM = "\t\t\t<form action=\"$ENV{'SCRIPT_NAME'}$PATH\" method=\"post\">\n$INFORM";
open(IN,"<./html/$HTML");
while(my $line = <IN>){$FORM .= "$line";}
close IN;
if($FORM{'Q0'} eq ""){$FORM .= "\t\t\t<p><input type=\"submit\" value=\"つづける\"></p>\n\t\t</form>\n";}
elsif($FORM{'Q3'} ne ""){$FORM ="";}
else{$FORM .= "\t\t\t<p><input type=\"submit\" value=\"送信\"></p>\n\t\t</form>\n";}
$SECTION .= $FORM."\t\t</section>\n";
my $METER = "\t\t\t<p class=\"meter\"><meter value=\"$meter_value\">$meter_value</meter></p>";
print "content-type:text/html\n\n";
while(<DATA>){
＿s/<!-- meter -->/$METER/;
＿s/\/\* style \*\//$STYLE/;
＿s/<!-- Message -->/$MESSAGE/;
＿s/<!-- Section -->/$SECTION/;
＿print;
}
__END__
<!doctype html>
<html>
<head>
<meta charset="utf-8">
<title>サンプル</title>
<style media="screen">
<!--
html,body{margin:0;padding:0;background-color:gray;}
header,section,footer{width:50%;margin:0 auto;padding:5px 10px;background-color:white;}
p.meter{font-size:2em;text-align:center;}
/* style */
-->
</style>
</head>
<body>
＿<header>
＿＿<h1 id="title">Your title</h1>
＿＿<p><!-- Message --></p>
<!-- meter -->
＿</header>
<!-- Section -->
＿<footer>
＿＿<h3>A nice footer</h3>
＿</footer>
</body>
</html>

お礼

すみません・・・最上部のお礼の補足の補足です。
「文字化けして」と書きましたが
正確には
「chromeだと文字化けして、IEとFirefoxでは文字化けせずにそのまま」
でした。
あせってお礼してしまったためすみません。
よろしくお願いいたします！

回答No.1

ORUKA1951

というより、
　⇒CGIで得た内容をHTMlページに代入 - CGI - 教えて！goo( http://okwave.jp/qa/q8217674.html )
ですね。
　送られてきたデータは、それがhiddenだろうがradioだろうが、全く区別はありませんから、そのまま得られたデータを、
$FORM{$name}=$value;
$hidden .= "<input type=\"hidden\" name=\"$name\" value=\"$value\">";
とでもして代入しておけば、良いですよ。

　上記では、60から70行目あたりで
$HIDDEN .="<input type=\"hidden\" name=\"Q2\" value=\"$FORM{'Q2'}\"><input type=\"hidden\" name=\"Q1\" value=\"$FORM{'Q1'}\">";
としていますが、それも同様のことをしています。

お礼

ありがとうございます！重複した質問をしてしまって申し訳ありません。

CGIの初心者でよくわかっていないのですが
いただいたコードはページは飛ばず、ひとつのページ内に
いくつか質問が表示されているものなのかな？と思いました。
（違ってたらすみません）

以下の点について質問させてください。

Q1ページに「次へ」ボタンを設置しQ2へ飛ぶようにしています。
Q2ページでQ1の回答を表示させることはできたのですが、
その後Q2ページからQ3ページに飛んだとき、
Q3ページにQ1ページの回答を表示させることができませんでした。

Q2,Q3ページのCGIは以下のように書きました。
（目で見てデータが飛んでるかわかるように
<input type="hidden"でなく<input type="text"を使いました。）

print <<Q2;
<html>
<head>
<title></title>
</head>
<body>

・・・

<input type="text" name="q11a" value="$q11" />★
<input type="text" name="q12a" value="$q12" />★

・・・

</body>
</html>
Q2

↑★部分には、Q1で選択した回答が表示されました。

print <<Q3;
<html>
<head>
<title></title>
</head>
<body>

・・・

<input type="text" name="q11a" value="$q11" />☆
<input type="text" name="q12a" value="$q12" />☆
<input type="text" name="q21a" value="$q21" />★
<input type="text" name="q22a" value="$q22" />★
<input type="text" name="q23a" value="$q23" />★

・・・

</body>
</html>
Q3

↑★部分には、Q2で選択した回答が表示されましたが
☆部分は空欄のままでした。

どのようにしたら前の前のページの回答が表示されますか？
引き続きお願いいたします！