Perl的time、localtime和gmtime函數

• time用於返回當前時間點，但返回結果是以從1970年1月1日(紀元由操做系統決定，但unix系統通常都是1970年1月1日)距離如今的秒數表示的
• localtime用於返回給定時間的秒、分、時、日、月、周、年等9個部分的時間屬性
• gmtime和localtime相似，可是返回的UTC時間

print time,"\n";

localtime在列表上下文返回的是各個時間部分，在標量上下文返回的是一個本地格式的時間值。

[root@xuexi perlapp]# perl -e '$a=localtime;print $a,"\n";' 
Sat Sep  8 09:03:56 2018

如下是localtime在列表上下文返回的各個時間部分：

#  0    1    2     3     4    5     6     7     8
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);

其中:

• sec：秒
• min：分
• hour：時
• mday：日，即當月的第幾天
• mon：月份，值爲0-11，0表示1月，11表示12月，如此表示的好處後面解釋
• year：年，返回從1900年開始的整數值，若是要返回4位數的年份，將其加上1900便可
• wday：周幾，值爲0-6，0是週日，1是週一，6是週六
• yday：一年的第幾天，值爲0-364或0-365
• isdst：是不是夏令時

例如：

use 5.010;

@time=localtime;

say qq(second  : $time[0]);
say qq(minute  : $time[1]);
say qq(hour    : $time[2]);
say qq(mon_day : $time[3]);
say qq(month   : $time[4]);
say qq(year    : $time[5]);
say qq(week_day: $time[6]);
say qq(year_day: $time[7]);
say qq(isdst   : $time[8]);

輸出結果爲：

second  : 42
minute  : 10
hour    : 9
mon_day : 8
month   : 8
year    : 118
week_day: 6
year_day: 250
isdst   : 0

之因此用0表示1月份，11表示12月份，是爲了讓月份數值和偏移對應。例如，偏移0位表示1月。

my @month = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
print "$month[$mon]"