配列の中身がイコールならばとしたいです。

Question

こんばんわ。ホームページのフォームを使って色を三色選んでもらい、それに対して貴方はこんな方ですね、としたいのですが、
好きな色３色選んでください。

<form method="post" action="hoge.cgi">

　<input type="checkbox" name="q1" value="赤">赤
　<input type="checkbox" name="q1" value="青">青
　<input type="checkbox" name="q1" value="黄">黄色
　<input type="checkbox" name="q1" value="紫">紫
　<input type="checkbox" name="q1" value="黒">黒
　<input type="checkbox" name="q1" value="白">白
　<input type="checkbox" name="q1" value="ピンク">ピンク
　<input type="checkbox" name="q1" value="緑">緑

<br>
<br>
<input type="submit" value="結果を見る！！">
<input type="reset" value="取消"></form>

とフォームから３つ選んでもらい、送信します。

そして、perlで記述したCGIで、

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);

read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
$buffer .= $ENV{'QUERY_STRING'};

@pairs = split(/&/,$buffer);
foreach $pair (@pairs) {

($name,$value) = split(/=/,$pair);
$out{$name} = $value;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
if ($name eq "q1") {
push (@check1,$value);
}
}

print "Content-Type: text/html; charset=Shift_JIS\n\n";
print "<html>\n";
print "<head><title>$title</title></head>\n";
print "<body>\n";

#配列の数個を数える。３個以外はプログラムを中止。

$num = $#check1;

if ($num ne 2){
print "３個選んでね。";
exit;
}

#もし配列の中身が次の３つだったら、"貴方は素敵ですね"と答える。

if (@check1 eq "黄","紫","黒"){ print "貴方は素敵ですね。";}
#elsif (){;}
else { print "ごめんね。データがないよ。";}

print "</body>\n";
print "</html>\n";

exit;

と、したのですが、どの色を選んでも、貴方は素敵ですね。としか、表示されません。赤と紫と黒を選んでも、同じです。配列を eq としている時点でどうかと思いますが、選んだ３つがイコールの場合、貴方は素敵ですねと表示されるようにしたいです。自分でも調べていますが、よろしかったら是非お教えください。

でわ。

buffalomasa · Accepted Answer

if (@check1 eq "黄","紫","黒"){ print "貴方は素敵ですね。";}

これがまずいんでは？
以下のようにすればどうでしょう。

my $check = join "," ,@check1;
if ($check =~ /黄/ && $check =~ /紫/ && $check =~ /黒/) { print "貴方は素敵ですね。"; }

配列の中身がイコールならばとしたいです。

if (@check1 eq "黄","紫","黒"){ print "貴方は素敵ですね。

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

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

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