Diary

Perl覚え書き


そう言えば・・

Programming Perl P.104

■to get dates with leading zeros.
@z2 = ('01' .. '31');
print $z2{$mday};

従って以下のコードは便利。

print "<SELECT NAME=\"month\">\n";
foreach ('01' .. '12') {
　if ($_ == $monn) {print "<OPTION VALUE=\"$_\" SELECTED>$_";}
　else {print "<OPTION VALUE=\"$_\">$_";}
}
print "</SELECT>月\n";
print "<SELECT NAME=\"day\">\n";
foreach ('01' .. '31') {
　if ($_ == $dayn) {print "<OPTION VALUE=\"$_\" SELECTED>$_";}
　else {print "<OPTION VALUE=\"$_\">$_";}
}
print "</SELECT>日\n";

こんなことを今頃発見している私って・・
2003年12月12日（金） No.50
Comment(0)

この記事へのコメントは以下のフォームからどうぞ

Name
E-Mail
URL
感想
1000文字まで
Icon Icon
投稿キー 投稿キーを右に記入して下さい
Pass
No.PASS
No.USERPASS
<<2003年12月>>
日 月 火 水 木 金 土
  1 2 3 4 5 6
7 8 9 10 11 12 13
14 15 16 17 18 19 20
21 22 23 24 25 26 27
28 29 30 31      
最近の記事
最近のコメント
最近のトラックバック
カテゴリー
日記アーカイブ
検索

OR AND
スペースで区切って複数指定可能
日記投稿
PASS 
RSS
++HOME++
[Admin] [TOP]
shiromuku(fs6)DIARY version 4.00