++Diary++

2003年12月の日記

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>..
2003年12月12日(金)   No.50

ちょっと思うこと
最近日記は「Perl覚え書き」ばかりだったので、久しぶりに日記らしい日記でしょうか。
年末になり、主婦としては掃除しなきゃなあと思いつつ、なかなか手が付けられなくて今日に至ってしまった。
(思えばサイト開設以来、ずっと家事特に掃除が疎かになっているのであるが・・)
そんな訳で久しぶりに念入りにトイレ掃除などしてみたのだが、何かすっかり空しい気分になってしまった。
というのは家事ってそういうもの..
2003年12月30日(火)   No.51

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

2003年12月12日(金)
Perl覚え書き
2003年12月30日(火)
ちょっと思うこと

++HOME++

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