Perl/プルダウンリスト

プルダウンリスト

• 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"; } } }