Perl time用法及代碼示例

描述

此函數返回自紀元以來的秒數(對於大多數係統，UTC 時間為 1970 年 1 月 1 日 00:00:00；對於 Mac OS，為 1904 年 1 月 1 日 00:00:00)。適用於 gmtime 和 localtime。

用法

以下是此函數的簡單語法 -

time

返回值

此函數返回整數，自紀元以來的秒數。

示例

以下是顯示其基本用法的示例代碼 -

#!/usr/bin/perl -w

@weekday = ("Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat");

$retval = time();

print "Return time is $retval\n";
$local_time = gmtime( $retval);

print "Local time = $local_time\n";
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime(time);
$year = $year + 1900;
$mon += 1;
print "Formated time = $mday/$mon/$year $hour:$min:$sec $weekday[$wday]\n";

執行上述代碼時，會產生以下結果 -

Return time is 1176831539
Local time = Tue Apr 17 17:38:59 2007
Formated time = 17/4/2007 17:38:59 Tue