Perl 時間日期
本章節我們為大家介紹Perl 語言對時間日期的處理。
Perl中處理時間的函數有如下幾種:
- 1、time()函數:返回從1970年1月1日起累計的秒數
- 2、localtime()函數:獲取本地時區時間
- 3、gmtime()函數:獲取格林威治時間
當前時間和日期
接下來讓我們看下localtime()函數,該函數在沒有參數的情況下返回當前的時間和日期。
以下9 個符號代表不同的時間日期參數:
sec, # 秒, 0 到 61 min, # 分钟, 0 到 59 hour, # 小时, 0 到 24 mday, # 天, 1 到 31 mon, # 月, 0 到 11 year, # 年,从 1900 开始 wday, # 星期几,0-6,0表示周日 yday, # 一年中的第几天,0-364,365 isdst # 如果夏令时有效,则为真
實例演示如下:
#!/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 2016 GMT 时间日期为: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:SS 11: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+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";
以上實例執行輸出結果為:
当期时间和日期:2106-6-12 11:49:28 昨天时间和日期:2106-6-11 11:49:28
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