開始行: *プルダウンリスト [#q00788fa] -testという名前で引数を取得「xxxxx.cgi?test=yyyy」 -%test_listでハッシュデータがあるものとする。 -GET,POSTで得られたデーターは分解、エンコードされ%req格納... #code{{{ print "<select name=\"test\" size=1><OPTION VALUE=\"\"><... select_menu(\%$req,\%$test_list,'test'); print " </select>"; }}} #code{{{ #セレクトメニュー ハッシュキー渡し 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}</... } else{ print " <OPTION VALUE=\"$key\" >$$hash{$key}</OPTION>\... } } } }}} おまけ #code{{{ #セレクトメニュー 配列渡し == 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>\... } else{ print " <OPTION VALUE=\"$key\" >$key</OPTION>\n"; } } } }}} 終了行: *プルダウンリスト [#q00788fa] -testという名前で引数を取得「xxxxx.cgi?test=yyyy」 -%test_listでハッシュデータがあるものとする。 -GET,POSTで得られたデーターは分解、エンコードされ%req格納... #code{{{ print "<select name=\"test\" size=1><OPTION VALUE=\"\"><... select_menu(\%$req,\%$test_list,'test'); print " </select>"; }}} #code{{{ #セレクトメニュー ハッシュキー渡し 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}</... } else{ print " <OPTION VALUE=\"$key\" >$$hash{$key}</OPTION>\... } } } }}} おまけ #code{{{ #セレクトメニュー 配列渡し == 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>\... } else{ print " <OPTION VALUE=\"$key\" >$key</OPTION>\n"; } } } }}} ページ名: