http://blog.sina.com.cn/s/blog_3d731e9001000ajl.html

今天在网上查到如何用perl语言得到当前日期，记在这里：

(＄sec,＄min,＄hour,＄day,＄mon,＄year,＄weekday,＄yeardate,＄savinglightday) = (localtime(time));
print "day=======＄day\n";
"mon=======".++＄mon."\n";
"year=======＄year\n";

# day=======4
mon=======12
year=======106
my(＄sec,＄year) localtime();
＄mon++;＄year += 1900;
my ＄data_now sprintf("%04d-%02d-%02d %02d:%02d:%02d:%02d",＄sec);
"data now is ＄data_now\n";
#data 2006-12-04 14:23:17:00
localtime(); 1900;
＄data_now_is sprintf("%04d-%02d-%02d",＄day);
＄data_now_is\n"; 2006-12-04
得到的year需要再加上1900才是正确的年份,mon++是正确的月份。