日期和时间

-- Start

Perl 中没有专门的日期数据类型，我们可以通过以下三个函数来得到当前日期和时间。

• time -- 返回自 1970-01-01 00:00:00 的秒数。

• localtime -- 将秒数换算成本地时间

• gmtime -- 将秒数换算成GMT时间

结合 time 和 localtime 函数，我们就可以得到当前时间，下面是一个简单的例子。

#!/usr/bin/perl

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

printf "年：%04dn",$year + 1900;
printf "月：%02dn",$mon + 1;
printf "日：%02dn",$mday;
printf "时：%02dn",$hour;
printf "分：%02dn",$min;
printf "秒：%02dn",$sec;
printf "星期：%1dn",$wday;
printf "一年中的第%3d天n",$yday;
print "当前时间处于夏令时n" if ($isdst);

?

-- 更多参见：Perl 精萃

-- 声 明：转载请注明出处 -- Last Updated on 2012-07-09 -- Written by ShangBo on 2012-07-09 -- End