1，perl 取当前时间的简单方法
use POSIX qw(strftime); print strftime("%Y-%m-%d %H:%M:%S\n",localtime(time));
未完待续... ...
