用perl获得当前日期

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

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

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

#?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_nown";
#data?2006-12-04?14:23:17:00
localtime();?1900;
＄data_now_is?sprintf("%04d-%02d-%02d",＄day);
＄data_now_isn";?2006-12-04
得到的year需要再加上1900才是正确的年份,mon++是正确的月份。