Làm thế nào để có được granularity thứ hai nano từ thời gian hex?

Question

Tôi cố gắng để chuyển đổi thời gian hex (nhận được đầu ra đầu tiên từ mô-đun hạt nhân) vào granularity nano giây,

580a9272.0a9ce167 

và tôi đang cố gắng để chuyển đổi nó sử dụng perl sang định dạng có thể đọc được con người:

while (<>) { 
s/^([a-fA-F0-9]+)(\.)([a-fA-F0-9]+)(\s+.*)/sprintf("%s%s%s%s",&$converter(hex($1)), $2, hex($3), $4)/oe; 
} continue { 
print; 
} 

đầu ra : Thứ Sáu Tháng Mười 21 18:10:58 2016.178053479

Bộ chuyển đổi sử dụng localtime() và gmtime() trực tiếp Tôi muốn có thời gian với độ chi tiết nano và sau đó năm.Bất kỳ trợ giúp nào được đánh giá cao.

Answer 1

POSIX::strftime không hỗ trợ số giây phân đoạn, vì vậy bạn cần phải tạo đầu ra theo các phần.

use POSIX qw(strftime); 

my $opt_gmt = 1; 
my $hex = '580a9272.0a9ce167'; 

my ($s, $ns) = map hex($_), split /\./, $hex; 
my $formatted_ns = sprintf("%09d", $ns); 
my $formatted = strftime("%a %b %d %H:%M:%S.$formatted_ns %Y", 
    defined($opt_gmt) ? gmtime($s) : localtime($s)); 

say $formatted; # Fri Oct 21 22:10:58.178053479 2016 

DateTime có hỗ trợ gốc cho nano giây, để trình bày giải pháp thay thế.

use DateTime qw(); 

my $opt_gmt = 1; 
my $hex = '580a9272.0a9ce167'; 

my ($s, $ns) = map hex($_), split /\./, $hex; 
my $dt = DateTime->from_epoch(epoch => $s); 
$dt->set_nanosecond($ns); 
$dt->set_time_zone(defined($opt_gmt) ? 'UTC' : 'local'); 

say $dt->strftime("%a %b %d %H:%M:%S.%N %Y"); # Fri Oct 21 22:10:58.178053479 2016