perl time 时间函数

1 把当前时间转换以秒计数。

# $hours, $minutes, and $seconds represent a time today,
# in the current time zone
use Time::Local;
$time = timelocal($seconds, $minutes, $hours, (localtime)[3,4,5]);

 

timelocal()是在Time::Local里面.