用Perl表示当前时间的方法-创新互联

这篇文章将为大家详细讲解有关用Perl表示当前时间的方法，小编觉得挺实用的，因此分享给大家做个参考，希望大家阅读完这篇文章后可以有所收获。

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

在Web服务器上运行相同的脚本时，您可能会发现桌面系统上的本地时间已关闭本地时间。服务器可能位于不同的时区，或者设置不正确。每台机器可能对本地时间有一个完全不同的想法，它可能需要在脚本内或服务器本身上进行一些调整，以使其与您期望的相匹配。

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

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

你应该看到类似的东西，虽然数字可能会有很大不同。

20 36 8 27 11 105 2 360 0

当前时间的这些元素按顺序排列：

-过了一分钟

-过了几分钟

-午夜时分

-每月的某一天

-从年初开始的几个月

-自1900年以来的年数

-自本周开始以来的天数（星期日）

-自年初以来的天数

-夏时制是否有效

使Perl本地时间可读

localtime返回的数组中的一些元素读起来有点别扭。谁会用1900年以后的年份来考虑这一年呢?让我们看一个例子，让我们的日期和时间更清楚。

当你运行这个程序时，你会看到一个更容易阅读的日期和时间，像这样:

 9:14:42, Wed Dec 28, 2018

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

@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表示当前通用时间

假设您希望避免所有可能的时区混淆，并控制自己的时差。获取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.返回值可能不是您所期望的，因此请确保在必要时进行转换。

关于用Perl表示当前时间的方法就分享到这里了，希望以上内容可以对大家有一定的帮助，可以学到更多知识。如果觉得文章不错，可以把它分享出去让更多的人看到。

另外有需要云服务器可以了解下创新互联scvps.cn，海内外云服务器15元起步，三天无理由+7*72小时售后在线，公司持有idc许可证，提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案，具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势，专为企业上云打造定制，能够满足用户丰富、多元化的应用场景需求。