用perl解析dateTime,精确到微/纳米秒

DateTime::Format::Strptime 支持微秒和纳秒。

你的格式有点奇怪,因为它不包括一年。我已经添加了一个你让这个演示代码工作。

#!/usr/bin/perl

use strict;
use warnings;

use DateTime::Format::Strptime;

my $strp = DateTime::Format::Strptime->new(
    pattern => '%b %d %Y %H:%M:%S.%6N',
    on_error => 'croak',
);

my $string = 'Nov 23 2010 10:42:31.808381';

my $dt = $strp->parse_datetime($string);

print $dt->microsecond;

“11月23日10:42:31.808381”--是微秒,不是纳秒

如果需要微秒,则必须在其中使用Time::HiRes;module和gettimeofday方法。