如何从Perl CGI中的下拉框中获取选定值

Question

我正在填充数据库中的下拉菜单。当我提交表单时，我在选定的选项中得到空字符串。这是我的代码，任何帮助将不胜感激。我选择了第一个选项作为默认帮助。

print "<br>Name: <select>";
while ( my ($name) = fetchrow_array() ) {
    if ($name eq "Somethinge") {
        print "<option value=\"$name\" selected>" . $name . "</option>\n";
    }else {
        print "<option value=\"$name\">" . $name . "</option>\n";
        }
}
print "</select>";

我使用下面的值获取值，但无论我选择什么，它都会返回空白。

my $Name = param('name');

Answer 1

您在选择标记中缺少name="client_name"。

您可能应该在value属性中转义客户端名称（但对于United Dynacare，它不是必需的）。使用库生成HTML（例如，CGI）可以帮助完成这两件事。