そう言えば・・
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
|
|