perl中的time内置函数

#!/usr/bin/perl -w

my $local_time=localtime();  #输出结果为当前时间，和date效果一致
my $time=time();  #表示从1970年开始到现在时间的总秒数
my $gm_time=gmtime(); #表示标准格林威治时间

my($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst)=localtime();
#my($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst)=gmtime();  #返回值和localtime一致

 

##输出固定顺序的九参数结果：$sec,$min,$hour,$day --- 秒、分、时、日
##$mon 值为0-11,0代表一月，11代表12月。所以获取当前月份数需要将该值加一
##$year 值为从1900年到现在的年数，例：如果当前为2011年，则该值为2011-1900=111。
##$wday 值表示一周的时间。0-周日 1-周一 2-周二 3-周三 4-周四 5-周五 6-周六
##$yday 一年中的时间，值范围为0..364 如果是闰年则值范围为0..365
##$isdst 该值都为0
##可以通过函数sprinf获取指定格式时间

$year += 1900;
$mon  += 1;
$btime = sprintf("%d/%02d/%02d/%02d:%02d:%02d",$year,$mon,$day,$hour,$min,$sec);

#输出结果为：2011/06/24/09:09:09