本文共 611 字，大约阅读时间需要 2 分钟。

-- Start

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

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

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

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

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

#!/usr/bin/perlmy ($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);

-- 更多参见：

-- 声 明：转载请注明出处