经常用到Unix时间戳，这里暂记一下，以后改改就可以直接调用
# ts_trans(unix-timestamp) will return GMT datetime # ts_trans(unix-timestamp,1) will return local datetime sub ts_trans{ ($ts,$is_local)=@_; if ($is_local eq ""){ ($sec,$min,$hr,$day,$mon,$year,$wday,$yday,$isdest)=(gmtime($ts)); }else{ ($sec,$min,$hr,$day,$mon,$year,$wday,$yday,$isdest)=(localtime($ts)); } $mon +=1; $year += 1900; $mon = "0".$mon if ($mon<10); $day = "0".$day if ($day <10); $hr ="0".$hr if $hr <10; $min ="0".$min if $min <10; $sec = "0".$sec if $sec <10; if ($is_local eq ""){ return "$year/$mon/$day $hr:$min:$sec GMT"; }else{ return "$year/$mon/$day $hr:$min:$sec"; } }
