http://search.cpan.org/~stbey/Date-Calc-5.4/Calc.pod


use Date::Calc qw(Days_in_Month);
$days = Days_in_Month('2006','4');
print $days,"\n";

答案是30天
創作者介紹

創造心理的感動

gisanfu 發表在 痞客邦 PIXNET 留言(0) 人氣()