用Perl表示当前时间的方法 - 行业资讯 - 肥雀云

　　介绍

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

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

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

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

# !/usr/地方/bin/Perl 　　@timeData=https://www.yisu.com/zixun/localtime(时间); 　　打印加入(“@timeData);

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

20 36 8 27 11 105 2 360 0

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

——过了一分钟

——过了几分钟

——午夜时分

——每月的某一天

——从年初开始的几个月

-自1900年以来的年数

,自本周开始以来的天数(星期日)

——自年初以来的天数

——夏时制是否有效

使Perl本地时间可读

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

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

9:14:42,结婚12月28日,2018年

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

@months=qw(1月2月3月4月5月6月7月8月9月10月11月12月); 　　@weekDays=qw(太阳星期一星期二结婚星期四星期五坐阳光);

由于localtime函数以划分和0胜之间的值返回这些元素,因此它们是数组的最佳候选元素.localtime返回的值可以作为数字地址来访问数组中的正确元素。

月(月美元)工作日美元(美元dayOfWeek)

下一步是从localtime函数获取所有的值。在本例中,我们使用Perl快捷方式自动将本地时间数组中的每个元素放到它自己的变量中。我们选择名称是为了便于记住哪个元素是哪个元素。

(第二,美元一分钟,小时,美元dayOfMonth美元,美元的月,yearOffset美元,美元dayOfWeek, dayOfYear美元,美元daylightSavings)=本地时间();

我们还需要调整这一年的价值。记住,作用是返回自1900年以来的年数,因此为了找到当前的年份,我们需要在给定的值上加上1900。

=1900 + yearOffset美元;

如何用Perl表示当前通用时间

假设您希望避免所有可能的时区混淆,并控制自己的时差。获取作用中的当前时间将始终返回一个基于机器的时区设置的值——美国的服务器将返回一个时间,而澳大利亚的服务器将返回一个由于时区差异而几乎全天不同的时间。

Perl还有第二个方便的时间指示函数,它的工作方式与本地时间完全相同,但是它返回的不是机器所在时区的固定时间,而是协调世界时(UTC,也称为格林尼治标准时间或GMT)。很简单,这个函数被称为gmtime

# !/usr/bin/Perl 　　@timeData=https://www.yisu.com/zixun/gmtime(时间); 　　打印加入(“@timeData);

除了在每台机器上和GMT中返回的时间相同之外,gmtime和localtime函数之间没有区别。所有数据和转换都以相同的方式完成。

# !/usr/地方/bin/perl 　　@months=qw(1月2月3月4月5月6月7月8月9月10月11月12月); 　　@weekDays=qw(太阳星期一星期二结婚星期四星期五坐在太阳); 　　(第二,美元一分钟,小时,美元dayOfMonth美元,美元的月,yearOffset美元,美元dayOfWeek, dayOfYear美元,美元daylightSavings)=gmtime (); 　　年=1900 + yearOffset美元; 　　theGMTime=懊涝∈?分钟:美元美元第二,工作日美元($ dayOfWeek]月[月美元]dayOfMonth美元,美元year"; 　　打印theGMTime美元;