Perl のバックアップの現在との差分(No.2)

• バックアップ一覧
• 差分 を表示
• 現在との差分 - Visual を表示
• ソース を表示
• バックアップ を表示
• Perl へ行く。
  • 1 (2006-08-08 (火) 10:40:58)
  • 2 (2006-08-12 (土) 13:01:15)

---

• 追加された行はこの色です。
• 削除された行はこの色です。

TITLE:Perl Memo
*Perlについてのメモ書き [#gfb93a6f]
#contentsx
**プルダウンリスト [#q00788fa]
-testという名前で引数を取得「xxxxx.cgi?test=yyyy」
-%test_listでハッシュデータがあるものとする。
-GET,POSTで得られたデーターは分解、エンコードされ%req格納されているものとする。
#code{{{
	print "<select name=\"test\" size=1><OPTION VALUE=\"\"></OPTION>\n";
		select_menu(\%$req,\%$test_list,'test');
	print "		</select>";
}}}
#code{{{
#セレクトメニュー　ハッシュキー渡し
sub select_menu(){
	my $req_h	= shift;
	my $hash	= shift;
	my $dat 	= shift;
	my $key;
#lsx(sort=date,date,new,contents=(num=1:20))

	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";
		}
	}
}
}}}
おまけ
#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>\n";
		}
		else{
			print " <OPTION VALUE=\"$key\" >$key</OPTION>\n";
		}
	}
}
}}}