Perl 中的 time函数

描述

此函数返回自纪元以来的秒数(对于大多数系统,是1970年1月1日UTC,00:00:00；对于Mac OS,是1904年1月1日,00:00:00)。适用于gmtime和本地时间。

语法

以下是此函数的简单语法-

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