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>..
続きを読む
2003年12月12日(金)
No.50
()
Comment(1)
ちょっと思うこと
最近日記は「Perl覚え書き」ばかりだったので、久しぶりに日記らしい日記でしょうか。
年末になり、主婦としては掃除しなきゃなあと思いつつ、なかなか手が付けられなくて今日に至ってしまった。
(思えばサイト開設以来、ずっと家事特に掃除が疎かになっているのであるが・・)
そんな訳で久しぶりに念入りにトイレ掃除などしてみたのだが、何かすっかり空しい気分になってしまった。
というのは家事ってそういうもの..
続きを読む
2003年12月30日(火)
No.51
()
Comment(2)
<<
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
最近の記事
Perl覚え書き
2003年12月12日(金)
ちょっと思うこと
2003年12月30日(火)
検索
OR
AND
スペースで区切って複数指定可能
++HOME++
[Admin]
[TOP]
shiromuku(fs6)DIARY
version 1.76