以毫秒爲單位解析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;