如何用perl转换UTC时间，格式为yyyymmddhhmmss

liuxh_198308

如下有一个数据文件，需要对VDATE时间戳（UTC时间，从1970/1/1 00:00:00开始到当前的毫秒数）时间字段转换，请问如何通过perl程序将这个时间转换成北京时间？

id|vdate
09|1433256552369

liuxh_198308

大侠，没人知道吗？求帮助

MMMIX

回复 1# liuxh_198308


    时间日期相关,当然用 DateTime 系列模块了:

#!/usr/bin/env perl

use strict;
use warnings;

use v5.14;

use DateTime;
use DateTime::Format::Strptime;

my $time = '1433256552369';

my $dt = DateTime->new(
    year        => 1970,
    month       => 1,
    day         => 1,
    hour        => 0,
    minute      => 0,
    second      => 0,
    nanosecond  => $time * (10 ** 6),
    time_zone   => 'UTC',
    formatter   => DateTime::Format::Strptime->new(
        pattern => '%Y-%m-%d %H:%M:%S.%3N %z',
    ),
    );

say $dt;

$dt->set_time_zone('Asia/Shanghai');
say $dt;

liuxh_198308

谢谢 ，我转了一下好像不行哦   ，还有更简单的办法吗？

MMMIX

回复 4# liuxh_198308


    $ ./p.pl
2015-06-02 14:49:12.369 +0000
2015-06-02 22:49:12.369 +0800

zhlong8

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); # 以秒为单位的时间戳，详情见 perldoc -f localtime

sunbeat