++Diary++

2003年12月12日の日記

Perl覚え書き
そう言えば・・

Programming Perl P.104

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

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

print "<SELECT NAME=\"month\">\n";
2003年12月12日(金)   No.50

No. PASS
 OR AND
スペースで区切って複数指定可能
<<  2003年12月 >>
日月火水木金土
 123456
78910111213
14151617181920
21222324252627
28293031   

2003年12月12日(金)
Perl覚え書き

++HOME++

[Admin] [TOP]
shiromuku(fs4)DIARY version 4.00