下面的代码将输入的名称字段输入到HTML表单中,并输出“hello [entered name]”你好吗?在表单中还有一个男性或女性性别选择。我希望CGI脚本将背景颜色更改为绿色,如果选择男性和黄色,如果选择女性。现在颜色是静态的(粉红色)。我一直试图让它工作,但没有运气根据perl中的选择更改背景颜色CGI
#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
component parts
$qstring = $ENV{'QUERY_STRING'};
@pairs = split(/&/, $qstring);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
&thank_you;
#}
sub thank_you {
print "Content-type: text/html\n\n";
print <<EndStart;
<html>
<body bgcolor="#ff69b4" value="F" >
<hr>
EndStart
print "<p>hello</p>\n"; print "<blockquote><em>$FORM{name} how are you </em></blockquote>\n\n";
print <<EndHTML;
</body>
</html>
EndHTML
exit(0);
部分的HTML代码
What is your gender? <input type="radio" name="gen1" value="M"> male <br>
<input type="radio" name="gen2" value="F"> female <br>
name: <input type="text" name="name"><br>
为什么你不编辑你的问题,并包括你到目前为止尝试过的? –
写了整个bgcolor语句。我记得尝试atm的值是=“F”。 F女 –
我会直言不讳:这段代码有很多问题。如果我们暂时忽略所有这些问题并专注于手头的问题,我们仍然没有足够的信息来帮助您。包含性别的表单字段的名称是什么?什么是可能的价值?如果您希望获得帮助,则需要使用该信息编辑您的问题。 –