学步园

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

-- 更多参见：Perl 精萃

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