以毫秒为单位解析Perl的时间戳

Question

假设我有一堆像“11/05/2010 16：27：26.003”这样的时间戳，怎么在毫秒中用Perl解析它们。

本质上，我想比较时间戳，看他们是否在特定时间之前或之后。

我试过使用Time :: Local，但似乎Time :: Local只能解析第二个。另一方面，Time :: HiRes并非真正用于解析文本。

感谢， 德里克

Answer 1

您可以使用Time::Local，只是添加.003它：

#!/usr/bin/perl 

use strict; 
use warnings; 

use Time::Local; 

my $timestring = "11/05/2010 16:27:26.003"; 
my ($mon, $d, $y, $h, $min, $s, $fraction) = 
    $timestring =~ m{(..)/(..)/(....) (..):(..):(..)([.]...)}; 
$y -= 1900; 
$mon--; 

my $seconds = timelocal($s, $min, $h, $d, $mon, $y) + $fraction; 

print "seconds: $seconds\n"; 
print "milliseconds: ", $seconds * 1_000, "\n"; 

Answer 2

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;