Perlについての質問箱 17箱目
■ このスレッドは過去ログ倉庫に格納されています
0401デフォルトの名無しさん
2005/06/24(金) 17:12:28という問題で作ってみたのですが500エラーが出てしまいます。
どこが間違っているのかご教授ください。
#!/usr/bin/perl
print "Content-Type: text/html\n\n";
print "<html><body>";
use CGI ':standard';
$q = new CGI;
$a = $q->param("answer");
if ($a eq "") {
print "<form action=toi4.cgi method=get>";
print "<input type=radio name=answer";
print " value=a>a";
print "<input type=radio name=answer";
print " value=b>b";
print "<input type=radio name=answer";
print " value=c>c";
print "<input type=submit value=push></form>";
} elsif {
if ($a eq "a") {
print "「正解」";
} elsif ($a eq "b") {
print "「おしい」";
} else {
print "「だいぶ違う」";
}
}
print "</body></html>\n";
■ このスレッドは過去ログ倉庫に格納されています