そう言えば・・
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>..
|
Perl覚え書き