Perl のバックアップソース(No.1)

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

TITLE:Perl Memo
*Perlについてのメモ書き [#gfb93a6f]

**プルダウンリスト [#q00788fa]
#code{{{
#セレクトメニュー　ハッシュキー渡し
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";
		}
	}
}
}}}