Perl time 函数
描述
此函数返回自纪元以来的秒数（对于大多数系统，1970 年 1 月 1 日 00:00:00 UTC；对于 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
