perl date 的学习

1.  perl 中date 的基本命令：

!/usr/bin/perl$timestamp=time;($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($timestamp);printf("sec=%d min=%d hour=%d mday=%d mon=%d year=%d wday=%d yday=%d isdst=%d\n",$sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst);my $t = localtime($timestamp);printf("%s\n",$t);[hostname ~]$ ./test.pl     sec=5 min=23 hour=15 mday=12 mon=11 year=112 wday=3 yday=346 isdst=0Wed Dec 12 15:23:05 2012my $y = $year + 1900;my $m = $mon + 1;my $dt = $y.$m.$mday;                                                                                                                                printf("%s\n",$dt); dt = 20121212

(1). 系统正常显示：上面代码中 localtime($timestamp)会显示正常的时间： Wed Dec 12 15:23:05 2012 如果需要在代码中获取 year、month、day、hour、minute、sec、weekday 需要用数组处理一下；year =$year + 1900month= $mon + 1

(2).   perl 字符串连接用 . 

my $dt = ($year + 1900).($mon + 1).$mday;printf("dt = %s\n",$dt);dt = 20121212