perl 几个很简单很有用的时间处理函数

Perl中两种时间格式：

1、获取系统时间：

yang@yang :~$ perl -e ' print time(),"n"' ?
1401806032

2、#格林尼治时间

yang@yang :~$ perl? -e? ' print join("-",gmtime()),"n" ' ;date
1-33-14-3-5-114-2-153-0
2014年 06月 03日 星期二 22:33:01 CST

3、　#本地时间

yang@yang :~$ perl -e ' print join("__",localtime()),"n"' ; date
39__36__22__3__5__114__2__153__0
2014年 06月 03日 星期二 22:36:39 CST

令：

($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst)=localtime(time());

$sec　　 ??秒,0-59

$min　　 ??分,0-59

$hour　　?时,0-23

$day　　月份中的日期,1-28,29,30,31

$mon　　年份中的月份，0-11

$year　　1900年以来的年份，年份加上1900，得出正确的4位数年的年份，

$wday　　星期几，0-6,0表示周日

$yday　　一年中的第几天,0-364,365

$isdst　　如果夏令时有效，则为真