$t = time();         # returns a number like this: 1021924103

你可以把这个函数当作时间戳，比如，你可以在不同的地方调用这个函数，然后根据返回值得出消逝的时间（秒数）。

my $t = time();
# lots of code
say 'Elapsed time: ', (time() - $t);

localtime

另外一个函数 localtime() 可以把函数time() 的返回值转换成容易识别的格式。

my $then = localtime($t);  # returns a string such as       Thu Feb 30 14:15:53 1998

其实，localtime() 并不是一定要有参数，如果没有参数，它自己默认调用time()。

比如：

my $now = localtime();    # returns the string for the current time

localtime 续

如果把localtime($t) 赋值给一个数组，会得出怎样的结果呢？

my @then = localtime($t);

上述例子将会得到一个类似下面的数组：

53 15 14 30 1 98 4 61 0

这些元素代表什么呢？请看下面的例子。

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

$sec   - seconds (0-59)
$min   - minutes (0-59)
$hour  - hours  (0-23)
$mday  - 'month day' or day of the month (1-31)
$mon   - month (0-11) - 0 is January, 11 is December.
$year  - YEAR-1900
$wday  - 'weak day' or day of the week (0-6), 0 is Sunday, 1 is Monday
$yday  - 'year day' or day of the year (0-364 or 0-365 in leap years)
$isdst - 'is Daylight saving time' true if Daylight Saving Time is on in your computer. Otherwise false.

注意,月份是从0算起，星期几中 0 代表星期日，六代表星期六。

day of the month 的可能值是 1-28，30，或者 31，根据月份有所不同。

最容易迷惑人的是year，$year的值为代表1900 年后的年数。如果凭想当然，很容易引发“千年虫”问题。

千年虫

比如如果是1998年，$year的值是 98，所以如果你想输出 1998， 写成 "19$year" 就可以了。1999呢？ 也没问题。2000年呢？问题来了， "19$year"的输出将是 19100。这就是公元 19100 的由来，千年虫问题也是这样造成的。

正确的写法是：

1900 + $year

gmtime

函数 gmtime() 与 localtime() 类似，只不过返回的时间是格林威致时间。

时间函数的原理？

通常，你电脑的硬件时钟设置为格林威致时间。gmtime() 利用这一设置。 你的操作系统设置了你所处的时区，是否是夏时制。localtime() 利用硬件时钟以及这些设置。

精确时间

time()的最小单位是秒，如果你想得到更精确的时间，请参考 Time::HiRes 模块。

DateTime

以上介绍的函数，可以用来完成基本的时间和日期操作，由于此问题的复杂性，更多请参考 DateTime 模块。

上下文

你觉察到了 localtime() 的诡异之处了么？ 把它赋值给一个标量和一个数组，结果完全不同！

这是Perl 5 中的一个特性，也就是说，很多时候，Perl 函数根据上下文的不同，返回不同的值。以后会有更多关于此的讨论。