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 如果夏令时有效,则为真