perl 時間戳轉換爲日期

經常碰到日誌文件記錄的時間戳爲格林威治時間對應的秒數，所以用這腳本轉爲地球人可以看懂的。

use POSIX qw(strftime);

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

 

time函數：返回從1970年1月1日起累計的秒數

             使用：my $t=time();