Top > Perl > プルダウンリスト

プルダウンリスト Edit

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

Reload   New Lower page making Edit Freeze Diff Upload Copy Rename   Front page List of pages Search Recent changes Backup Referer   Help   RSS of recent changes