perl - 将日期字符串解析为毫秒，反之亦然

Question

我有以下字符串格式的日期，我需要使用 Perl 脚本将其转换为毫秒。我尝试使用 DateTime::Format::Strptime 转换它，转换为毫秒后它返回 0。

日期字符串:01-13-15:14.16

#!/usr/bin/perl
use DateTime::Format::Strptime;

my $strp = DateTime::Format::Strptime->new(
    pattern => '%m-%d-%y:%H.%M',
    on_error => 'croak',
);

my $dt = $strp->parse_datetime("01-13-15:14.16");

print $dt->millisecond."\n";

如何将日期时间转换为毫秒

Answer 1

我认为您想要的可能不是毫秒，而是 epoch，即自 1970 年 1 月 1 日以来的秒数。您的日期时间格式既没有秒也不是毫秒，所以这两个字段都将报告为零，如果您真的想要毫秒，那么您可以简单地将 epoch 乘以 1000。

看起来像这样

use strict;
use warnings;
use 5.010;

use DateTime::Format::Strptime;

my $strp = DateTime::Format::Strptime->new(
    pattern => '%m-%d-%y:%H.%M',
    on_error => 'croak',
);

my $dt = $strp->parse_datetime('01-13-15:14.16');
say $dt->epoch;

输出

1421158560

但是，DateTime模块庞大而缓慢，核心模块中有更好的解决方案Time::Piece ，看起来像这样

use strict;
use warnings;
use 5.010;

use Time::Piece;

my $dt = Time::Piece->strptime('01-13-15:14.16', '%m-%d-%y:%H.%M');
say $dt->epoch;

输出

1421158560