Perl的时间函数localtime

http://perldoc.perl.org/functions/localtime.html

1. 一般使用：

@nowtime=localtime();

# ( $sec , $min , $hour , $mday , $mon , $year , $wday , $yday , $isdst ) = localtime();

注意$mon+1，$year+1900;

$now_string = localtime;  # e.g., "Thu Oct 13 04:54:34 1994"

2.
如果要把时间保存在数据库中，可以先将其保存为字符串，然后读出时对字符串再处理。

@nowtime=localtime();
$nowstring=join(',',@nowtime);
将$nowstring保存；

读取的时候
@nowtime=split(',',$nowstring);