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]
";

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

12 六月 星期天

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

實例

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

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

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

格林威治時間 (GMT)

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

實例

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

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

本地時間日期為：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
");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
";

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

從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"
";
$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"
";

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

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

POSIX 函數 strftime()

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

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

實例

#!/usr/bin/perluse POSIXqw(strftime);
$datestring = strftime"%Y-%m-%d %H:%M:%S", localtime;printf("時間日期 - $datestring
");
# GMT 格式化時間日期$datestring = strftime"%Y-%m-%d %H:%M:%S", gmtime;printf("時間日期 - $datestring
");

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

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

喜歡這篇文章嗎？立刻分享出去讓更多人知道吧！