Time::LocalPerl のエポック以降、または標準の Perl ディストリビューションに含まれている別のパッケージを使用して timi milis を変換することは可能ppmですか? 問題は、私は非常に制限されたネットワーク環境で作業しており、私が書いているスクリプトは、DateTimeまたはTime::HiRes.
たとえば、私は milis のようなものを持っていて、1354996539それをフォーマットしたいと思います2012-12-11 13:45:34
ありがとう
Time::Localtimelocalは、あなたが望むこととは反対のことをします (1354996539 は入力ではなく出力です)。後に名前が付けられた関数localtimeは、実際に必要なものです。
use POSIX qw( strftime );
say strftime('%Y-%m-%d %H:%M:%S', localtime(1354996539));
出力 (アメリカ/トロントの誰か):
2012-12-08 14:55:39
なしでも実行できますstrftime：
my @ts = localtime(1354996539);
$ts[4] += 1;
$ts[5] += 1900;
say sprintf('%d-%02d-%02d %02d:%02d:%02d', @ts[5,4,3,2,1,0]);