そう言えば・・
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
|
|
Perl覚え書き
test
2004/01/20/15:51:29
No.58