Perl 時間日期

本章節我們為大家介紹Perl 語言對時間日期的處理。

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

1、time() 函數：傳回1970年1月1日起累計的秒數

2、localtime() 函數：取得本地時區時間

3、gmtime() 函數：取得格林威治時間

目前時間和日期

接下來讓我們看下localtime()函數，該函數在沒有參數的情況下傳回目前的時間和日期。

以下9 個符號代表不同的時間日期參數：

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

實例示範如下：

實例

#!/usr/bin/perl @months = qw(一月二月三月五月六月七月八月九月十月十一月十二月) ; @days = qw(星期日星期一星期二星期三星期四星期五星期六) ; ( $ sec , $min , $hour , $mday , $mon , $year , $wday , $yday , $isdst ) = localtime ( ) ; print " $mday $months [ $mon ] $days [ $wday ] n " ;

以上實例執行輸出結果為：

 12 六月星期天

如果直接呼叫localtime() ，它會傳回系統當期設定時區的時間，實例如下：

實例

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

以上實例執行輸出結果為：

時間日期為：Sun Jun 12 11:27:31 2016

格林威治時間(GMT)

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

實例

#!/usr/bin/perl $local_datestring = localtime ( ) ; print "本地時間日期為： $local_datestring n " ; $gmt_datestring = gmtime ( ) ; print " GMT 時間日期為： $gmt_datestring n " ;

以上實例執行輸出結果為：

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

從實例中我們可以看出，中國的時間和格林威治時間相差了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 " , $hour , $min , $sec ) ;

以上實例執行輸出結果為：

格式化時間：HH:MM:SS11:35:23

新紀元時間(Epoch Time)

我們可以使用time() 函數來取得新紀元時間，該函數傳回從1970年1月1日起累積的秒數。實例如下：

實例

#!/usr/bin/perl $epoc = time ( ) ; print " 1970年1月1日起累積的秒數為： $epoc n " ;

以上實例執行輸出結果為：

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

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

實例

#!/usr/bin/perl ( $sec , $min , $hour , $mday , $mon , $year , $wday , $yday , $isdst ) = localtime ( ) ; print "當期時間與日期： " ; printf ( " %d-%d-%d %d:%d:%d " , $year + 1900 , $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 + 1900 , $mon + 1 , $mday , $hour , $min , $sec ) ; print " n " ;

以上實例執行輸出結果為：

當期時間和日期：2017-3-15 12:47:54昨天時間和日期：2017-3-14 12:47:54

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	年	2001
%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 )	01
%Y	年	2001
%z	ISO 8601與UTC的時區偏移(1 minute=1, 1 hour=100)	+100
%Z	目前時區的名稱,如"中國標準時間" *	CDT
%%	%符號	%

實例

#!/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 " ) ;

以上實例執行輸出結果為：

時間日期- 2016-06-12 12:15:13時間日期- 2016-06-12 04:15:13