如何从 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）对这两件事都有帮助。