本章節(jié)我們?yōu)榇蠹医榻B Perl 語(yǔ)言對(duì)時(shí)間日期的處理。

Perl中處理時(shí)間的函數(shù)有如下幾種：

• 1、time() 函數(shù)：返回從1970年1月1日起累計(jì)的秒數(shù)

• 2、localtime() 函數(shù)：獲取本地時(shí)區(qū)時(shí)間

• 3、gmtime() 函數(shù)： 獲取格林威治時(shí)間

當(dāng)前時(shí)間和日期

接下來(lái)讓我們看下  localtime() 函數(shù)，該函數(shù)在沒(méi)有參數(shù)的情況下返回當(dāng)前的時(shí)間和日期。

以下 9 個(gè)符號(hào)代表不同的時(shí)間日期參數(shù)：

sec,     # 秒， 0 到 61
min,     # 分鐘， 0 到 59
hour,    # 小時(shí)， 0 到 24
mday,    # 天， 1 到 31
mon,     # 月， 0 到 11
year,    # 年，從 1900 開(kāi)始
wday,    # 星期幾，0-6,0表示周日
yday,    # 一年中的第幾天,0-364,365
isdst    # 如果夏令時(shí)有效，則為真

實(shí)例演示如下：

#!/usr/bin/perl
 
@months = qw( 一月 二月 三月 四月 五月 六月 七月 八月 九月 十月 十一月 十二月 );
@days = qw(星期天 星期一 星期二 星期三 星期四 星期五 星期六);

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
print "$mday $months[$mon] $days[$wday]\n";

以上實(shí)例執(zhí)行輸出結(jié)果為：

12 六月 星期天

如果直接調(diào)用 localtime() ，它返回系統(tǒng)當(dāng)期設(shè)置時(shí)區(qū)的時(shí)間，實(shí)例如下：

#!/usr/bin/perl
 
$datestring = localtime();
print "時(shí)間日期為：$datestring\n";

以上實(shí)例執(zhí)行輸出結(jié)果為：

時(shí)間日期為：Sun Jun 12 11:27:31 2016

格林威治時(shí)間 (GMT)

函數(shù) gmtime() 與 localtime() 類似，但它返回標(biāo)準(zhǔn)格林威治時(shí)間。

#!/usr/bin/perl

$local_datestring = localtime();
print "本地時(shí)間日期為：$local_datestring\n";

$gmt_datestring = gmtime();
print "GMT 時(shí)間日期為：$gmt_datestring\n";

以上實(shí)例執(zhí)行輸出結(jié)果為：

本地時(shí)間日期為：Sun Jun 12 11:32:14 2016
GMT 時(shí)間日期為：Sun Jun 12 03:32:14 2016

從實(shí)例中我們可以看出，中國(guó)的時(shí)間和格林威治時(shí)間相差了8小時(shí)。

格式化日期和時(shí)間

我們可以使用 localtime() 函數(shù)的 9 個(gè)時(shí)間元素來(lái)輸出需要制定的格式時(shí)間。格式化輸出使用 printf() 函數(shù)：

#!/usr/bin/perl
 
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();

printf("格式化時(shí)間：HH:MM:SS\n");
printf("%02d:%02d:%02d", $hour, $min, $sec);

以上實(shí)例執(zhí)行輸出結(jié)果為：

格式化時(shí)間：HH:MM:SS
11:35:23

新紀(jì)元時(shí)間(Epoch Time)

我們可以使用  time() 函數(shù)來(lái)獲取新紀(jì)元時(shí)間，該函數(shù)返回從1970年1月1日起累計(jì)的秒數(shù)。實(shí)例如下：

#!/usr/bin/perl
 
$epoc = time();

print "從1970年1月1日起累計(jì)的秒數(shù)為：$epoc\n";

以上實(shí)例執(zhí)行輸出結(jié)果為：

從1970年1月1日起累計(jì)的秒數(shù)為：1465702883

我們可以輸出一個(gè)我們想要的時(shí)間格式：

#!/usr/bin/perl

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
print "當(dāng)期時(shí)間和日期：";
printf("%d-%d-%d %d:%d:%d",$year+1990,$mon+1,$mday,$hour,$min,$sec);

print "\n";

$epoc = time();
$epoc = $epoc - 24 * 60 * 60;   # 一天前的時(shí)間秒數(shù)
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($epoc);
print "昨天時(shí)間和日期：";
printf("%d-%d-%d %d:%d:%d",$year+1990,$mon+1,$mday,$hour,$min,$sec);

print "\n";

以上實(shí)例執(zhí)行輸出結(jié)果為：

當(dāng)期時(shí)間和日期：2106-6-12 11:49:28
昨天時(shí)間和日期：2106-6-11 11:49:28

POSIX 函數(shù) strftime()

函數(shù) strftime() 可以將時(shí)間格式化為我們想要的格式。

下表列出了一些格式化的符號(hào)，* 號(hào)表示想要依賴本地時(shí)間：

實(shí)例如下：

#!/usr/bin/perl
use POSIX qw(strftime);

$datestring = strftime "%Y-%m-%d %H:%M:%S", localtime;
printf("時(shí)間日期 - $datestring\n");

#  GMT 格式化時(shí)間日期
$datestring = strftime "%Y-%m-%d %H:%M:%S", gmtime;
printf("時(shí)間日期 - $datestring\n");

以上實(shí)例執(zhí)行輸出結(jié)果為：

時(shí)間日期 - 2016-06-12 12:15:13
時(shí)間日期 - 2016-06-12 04:15:13