perl 时间戳转换为日期

经常碰到日志文件记录的时间戳为格林威治时间对应的秒数，所以用这脚本转为地球人可以看懂的。

use POSIX qw(strftime);

my $a=strftime "%Y-%m-%d %H:%M:%S", localtime(123);

 

time函数：返回从1970年1月1日起累计的秒数

             使用：my $t=time();