Like Share Discussion Bookmark Smile

J.J. Huang   2021-03-14   Perl   瀏覽次數:

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

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

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

當前日期和時間

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

1
2
3
4
5
6
7
8
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()返回的不同元素:

1
2
3
4
5
6
7
#!/usr/bin/perl

@months = qw( 一月 二月 三月 四月 五月 六月 七月 八月 九月 十月 十一月 十二月 );
@days = qw(星期天 星期一 星期二 星期三 星期四 星期五 星期六);

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

這將產生以下結果:

1
13 三月 星期六

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

1
2
3
4
#!/usr/bin/perl

$datestring = localtime();
print "時間日期為:$datestring\n";

這將產生以下結果:

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

格林威治時間 (GMT)

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

1
2
3
4
5
6
7
#!/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():

1
2
3
4
5
6
#!/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指令來檢查。

範例如下:

1
2
3
4
5
#!/usr/bin/perl

$epoc = time();

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

這將產生以下結果:

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

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#!/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
%% % 符號 %

範例:

1
2
3
4
5
6
7
8
9
#!/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");

這將產生以下結果:

1
2
時間日期 - 2021-03-13 11:53:54
時間日期 - 2021-03-13 03:53:54

註:以上參考了
Tutorialspoint, Perl - Date and Time