データベースからドロップダウンメニューを作成しています。フォームを送信すると、選択したオプションに空の文字列が表示されます。これが私のコードです。デフォルトのヘルプとして最初のオプションを選択しました。
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');