在 Perl 中解析时间戳与毫秒

假设我有一堆时间戳，如“11/05/2010 16:27:26.003”，如何在 Perl 中用毫秒解析它们。

本质上，我想比较时间戳以查看它们是在特定时间之前还是之后。

我尝试使用 Time::Local，但似乎 Time::Local 只能解析第二个。另一方面，Time::HiRes 并不是真正为解析文本而设计的。

谢谢， 德里克

use DateTime::Format::Strptime;

my $Strp = new DateTime::Format::Strptime(
    pattern => '%m/%d/%Y %H:%M:%S.%3N',
    time_zone   => '-0800',
);

my $now = DateTime->now;
my $dt  = $Strp->parse_datetime('11/05/2010 23:16:42.003');
my $delta = $now - $dt;

print DateTime->compare( $now, $dt );
print $delta->millisecond;