Perl - 第十一章 | Perl 日期和時間

Perl中處理時間的函數有如下幾種：

time()：返回從1970年1月1日起累計的秒數。
localtime()：獲取本地時區時間。
gmtime()：獲取格林威治時間。

當前日期和時間

讓我們從localtime()開始，如果沒有給出參數，該函數將返回當前日期和時間的值。
以下是在列表上下文中使用時localtime()返回的9元素列表：

sec,     # seconds of minutes from 0 to 61
min,     # minutes of hour from 0 to 59
hour,    # hours of day from 0 to 24
mday,    # day of month from 1 to 31
mon,     # month of year from 0 to 11
year,    # year since 1900
wday,    # days since sunday
yday,    # days since January 1st
isdst    # hours of daylight savings time

嘗試以下範例來打印由localtime()返回的不同元素：

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

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

這將產生以下結果：

13 三月 星期六

如果直接調用localtime()，它返回系統當期設置時區的時間，範例如下：

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

這將產生以下結果：

1	時間日期為：Fri Mar 13 11:35:18 2021

格林威治時間 (GMT)

gmtime()與localtime()類似，但它返回標準格林威治時間。

#!/usr/bin/perl

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

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

這將產生以下結果：

1 2	本地時間日期為：Fri Mar 13 11:36:53 2021 GMT 時間日期為：Fri Mar 13 03:36:53 2021

從範例中我們可以看出，台灣的時間和格林威治時間相差了8小時。

格式化日期和時間

我們可以使用localtime()的9個時間元素來輸出需要製定的格式時間。格式化輸出使用printf()：

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

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

這將產生以下結果：

1 2	格式化時間：HH:MM:SS 11:39:15

UNIX時間 (Epoch Time)

我們可以使用time()來獲取UNIX時間，該函數返回從1970年1月1日起累計的秒數。

註：UNIX時間，或稱POSIX時間是UNIX或類UNIX系統使用的時間表示方式：從UTC1970年1月1日0時0分0秒起至現在的總秒數，不考慮閏秒。在多數Unix系統上Unix時間可以透過date +%s指令來檢查。

範例如下：

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

print "從1970年1月1日起累計的秒數為：$epoc\n";

這將產生以下結果：

1	從1970年1月1日起累計的秒數為：1615635600

我們可以輸出一個我們想要的時間格式：

#!/usr/bin/perl

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

print "\n";

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

print "\n";

這將產生以下結果：

1 2	當期時間和日期：2111-3-13 11:46:29 昨天時間和日期：2111-3-12 11:46:29

POSIX 函數 strftime()

strftime()可以將時間格式化為我們想要的格式。

下表列出了一些格式化的符號，* 號表示想要依賴本地時間：

符號	描述	範例
%a	星期幾的簡稱（ Sun..Sat） *	Thu
%A	星期幾的全稱（ Sunday..Saturday） *	Thursday
%b	月的簡稱（Jan..Dec） *	Aug
%B	月的全稱（January..December） *	August
%c	日期和時間 *	Thu Aug 23 14:55:02 2001
%C	年份除於100，並取整(00-99)	20
%d	一個月的第幾天 (01-31)	23
%D	日期，MM/DD/YY 相等於%m/%d/%y	08/23/01
%e	一個月的第幾天，使用空格填充個位數 ( 1-31)	23
%F	YYYY-MM-DD 的簡寫類似於 %Y-%m-%d	2001-08-23
%g	年份的最後兩位數 (00-99)	01
%g	年	2021
%h	月的簡稱 * (和%b選項相同)	Aug
%H	24 小時制 (00-23)	14
%I	12 小時制 (01-12)	02
%j	一年的第幾天 (001-366)	235
%m	月 (01-12)	08
%M	分鐘 (00-59)	55
%n	新行 (‘\n’)
%p	顯示出AM或PM	PM
%r	時間（hh：mm：ss AM或PM），12小時 *	02:55:02 pm
%R	24 小時 HH:MM 時間格式,相等於 %H:%M	14:55
%S	秒數 (00-61)	02
%t	水平製表符 (‘\t’)
%T	時間（24小時制）（hh:mm:ss），相等於%H:%M:%S	14:55
%u	ISO 8601 的星期幾格式，星期一為1 (1-7)	4
%U	一年中的第幾週，星期天為第一天(00-53)	33
%V	ISO 8601 第幾週 (00-53)	34
%w	一個星期的第幾天（0代表星期天） (0-6)	4
%W	一年的第幾個星期，星期一為第一天 (00-53)	34
%x	顯示日期的格式（mm/dd/yy） *	08/23/01
%X	顯示時間格式 *	14:55:02
%y	年，兩位數 (00-99)	21
%Y	年	2021
%z	ISO 8601與UTC的時區偏移(1 minute=1, 1 hour=100)	+100
%Z	當前時區的名稱,如”台灣台北標準時間” *	CST
%%	% 符號	%

範例：

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

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

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