++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";
foreach ('01' .. '12') {
 if ($_ == $monn) {print "<OPTION VALUE=\"$_\" SELECTED>$_";}
 else {print "<OPTION VALUE=\"$_\">$_";}
}
print "</SELECT>..
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 3.20