用perl获得当前日期

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";
print "mon=======".++＄mon."\n";
print "year=======＄year\n";

# day=======4
# mon=======12
# year=======106

my(＄sec,＄min,＄hour,＄day,＄mon,＄year) = localtime();
＄mon++;＄year += 1900;
my ＄data_now = sprintf("%04d-%02d-%02d %02d:%02d:%02d:%02d",＄year,＄mon,＄day,＄hour,＄min,＄sec);

print "data now is ＄data_now\n";
#data now is 2006-12-04 14:23:17:00

my(＄sec,＄min,＄hour,＄day,＄mon,＄year) = localtime(); 
＄mon++;＄year += 1900;
my ＄data_now_is = sprintf("%04d-%02d-%02d",＄year,＄mon,＄day);

print "data now is ＄data_now_is\n"; #data now is 2006-12-04

得到的year需要再加上1900才是正确的年份,mon++是正确的月份。