Синхронизация dateTime в perl, правильная для микро/nano секунд

Question

Im ищет модуль perl, который берет строку с датой как это «23 ноября 10: 42: 31.808381» и ее формат что-то вроде «% b% d ....» это и получить мне объект dateTime/или распечатать его в другом формате, указанном таким же образом. Time :: Piece не имеет разрешения до nano секунд. Есть ли какой-нибудь модуль, который мне поможет? Im Использование Perl 5.8 (это оленья кожа назвали обратные_связи)

Answer 1

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; 

Answer 2

"23 ноября 10: 42: 31,808381" - это микросекунды, а не наносекунд

Если вам нужно микросекунд, необходимо использовать Time :: HiRes; модуль и метод gettimeofday.