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