perl – 如何从十六进制时间获得纳秒二次粒度？
发布时间：2020-12-15 21:44:34 所属栏目：大数据 来源：网络整理
导读：我试图将十六进制时间(从内核模块获得第一个输出)转换为纳秒粒度, 580a9272.0a9ce167 我正在尝试使用perl将其转换为人类可读格式： while () {s/^([a-fA-F0-9]+)(.)([a-fA-F0-9]+)(s+.*)/sprintf("%s%s%s%s",$converter(hex($1)),$2,hex($3),$4)/oe;} cont
|
我试图将十六进制时间(从内核模块获得第一个输出)转换为纳秒粒度,
580a9272.0a9ce167 我正在尝试使用perl将其转换为人类可读格式： 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;
}
输出：10月21日星期五18:10:58 2016.178053479 Converter直接使用localtime()和gmtime() 解决方法
POSIX :: strftime不支持小数秒,因此您需要以部分方式构建输出.
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具有纳秒的原生支持,因此提供了另一种选择. use DateTime qw( );
my $opt_gmt = 1;
my $hex = '580a9272.0a9ce167';
my ($s,$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
（编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |