バックアップ一覧 差分 を表示 現在との差分 を表示 現在との差分 - Visual を表示 ソース を表示 Perl へ行く。 1 (2006-08-08 (火) 10:40:58) 2 (2006-08-12 (土) 13:01:15) Perlについてのメモ書き プルダウンリスト 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 #セレクトメニュー ハッシュキー渡し sub select_menu(){ my $req_h = shift; my $hash = shift; my $dat = shift; my $key; my $val; foreach $key (keys %{$hash}){ # $val = sprintf("%02d", $key); 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"; } } }