Perl有一个方便的内置函数，用于在脚本中查找当前日期和时间。然而，当我们谈论查找时间时，我们谈论的是运行脚本的机器上当前设置的时间。例如，如果您在本地机器上运行Perl脚本，localtime将返回您设置的当前时间，并且可能设置为当前时区。

当您在web服务器上运行相同的脚本时，您可能会发现​当地时间从​桌面系统上的本地时间。服务器可能位于不同的时区或设置不正确。每台机器对localtime的定义可能完全不同，可能需要在脚本内部或服务器本身上进行一些调整，以使其符合您的期望。

localtime函数返回一个关于当前时间的完整数据列表，其中一些数据需要调整。运行下面的程序，您将看到列表中的每个元素打印在行上，并用空格分隔。

#!/usr/local/bin/perl @timeData = localtime(time); print join(' ', @timeData);

您应该会看到类似的情况，尽管数字可能会非常不同。

20 36 8 27 11 105 2 360 0

当前时间的这些要素依次为：

• 分秒必争
• 一点多钟
• 午夜后数小时
• 月日
• 年初后的几个月
• 自1900年以来的年数
• 本周开始后的天数（星期日）
• 自年初以来的天数
• 夏令时是否处于活动状态

因此，如果我们回到示例并尝试阅读它，您将看到它是2005年12月27日上午8:36:20，这是星期日（星期二）后的两天，距离年初已经360天了。夏令时未处于活动状态。

使perl本地时间可读

localtime返回的数组中的一些元素读起来有点笨拙。从1900年过去的年数来看，谁会想到今年呢？让我们来看一个让我们的日期和时间更清晰的例子。

#!/usr/local/bin/perl @months = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec); @weekDays = qw(Sun Mon Tue Wed Thu Fri Sat Sun); ($second, $minute, $hour, $dayOfMonth, $month, $yearOffset, $dayOfWeek, $dayOfYear, $daylightSavings) = localtime(); $year = 1900 + $yearOffset; $theTime = "$hour:$minute:$second, $weekDays[$dayOfWeek] $months[$month] $dayOfMonth, $year"; print $theTime;

运行程序时，您应该会看到一个更可读的日期和时间，如下所示：

9:14:42, Wed Dec 28, 2005

那么我们做了什么来创建这个更具可读性的版本呢？首先，我们准备两个数组，其中包含月份和星期几的名称。

@months = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec); @weekDays = qw(Sun Mon Tue Wed Thu Fri Sat Sun);

由于localtime函数分别以0-11和0-6的值返回这些元素，因此它们是数组的最佳候选元素。localtime返回的值可用作访问数组中正确元素的数字地址。

$months[$month] $weekDays[$dayOfWeek]

下一步是从localtime函数获取所有值。在本例中，我们使用Perl快捷方式自动将localtime数组中的每个元素放入自己的变量中。我们选择了名称，这样很容易记住哪个元素是哪个。

($second, $minute, $hour, $dayOfMonth, $month, $yearOffset, $dayOfWeek, $dayOfYear, $daylightSavings) = localtime();

我们还需要调整年度价值。请记住，localtime返回自1900年以来的年份数，因此为了查找当前年份，我们需要在给定的值上加上1900。

$year = 1900 + $yearOffset;

如何用perl告诉当前gm时间

假设您希望避免所有可能的时区混淆，并自己控制偏移量。在localtime中获取当前时间将始终返回一个基于机器时区设置的值-美国的服务器将返回一次，而澳大利亚的服务器将返回一次，由于时区不同，几乎全天都会返回一次。

Perl还有第二个方便的计时功能，其工作方式与localtime完全相同，但它不是返回机器时区的固定时间，而是返回协调世界时（缩写为UTC，也称为格林威治标准时间或GMT）。很简单，这个函数叫做gmtime。

#!/usr/local/bin/perl @timeData = gmtime(time); print join(' ', @timeData);

除了返回的时间在每台机器上都是相同的，并且以GMT为单位，gmtime和localtime函数之间没有区别。所有数据和转换都以相同的方式完成。

#!/usr/local/bin/perl @months = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec); @weekDays = qw(Sun Mon Tue Wed Thu Fri Sat Sun); ($second, $minute, $hour, $dayOfMonth, $month, $yearOffset, $dayOfWeek, $dayOfYear, $daylightSavings) = gmtime(); $year = 1900 + $yearOffset; $theGMTime = "$hour:$minute:$second, $weekDays[$dayOfWeek] $months[$month] $dayOfMonth, $year"; print $theGMTime;

1. localtime将返回运行脚本的计算机上的当前本地时间。
2. gmtime将返回格林威治标准时间，或GMT（或UTC）。
3. 返回值可能与您期望的不完全相同，因此请确保根据需要对其进行转换。