プルダウンリスト 
- testという名前で引数を取得「xxxxx.cgi?test=yyyy」
- %test_listでハッシュデータがあるものとする。
- GET,POSTで得られたデーターは分解、エンコードされ%req格納されているものとする。
0 1
print "<select name=\"test\" size=1><OPTION VALUE=\"\"></OPTION>\n"; select_menu(\%$req,\%$test_list,'test'); print " </select>";
おまけ0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
#セレクトメニュー ハッシュキー渡し sub select_menu(){ my $req_h = shift; my $hash = shift; my $dat = shift; my $key; foreach $key (keys %{$hash}){ if($key eq $$req_h{$dat}){ #Match print " <OPTION VALUE=\"$key\" SELECTED>$$hash{$key}</OPTION>\n"; } else{ print " <OPTION VALUE=\"$key\" >$$hash{$key}</OPTION>\n"; } } }
0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
#セレクトメニュー 配列渡し == sub select_menu_val(){ my $req_h = shift; my $val = shift; my $dat = shift; my $key; foreach $key ( @$val ){ if($key == $$req_h{$dat}){ #Match print " <OPTION VALUE=\"$key\" SELECTED>$key</OPTION>\n"; } else{ print " <OPTION VALUE=\"$key\" >$key</OPTION>\n"; } } }