add a simple tool for formatting a timestamp in ns

This commit is contained in:
Moritz Bunkus 2017-01-02 23:00:30 +01:00
parent 7176a2bfa3
commit 0d122b247b

13
tools/development/timestamp.pl Executable file
View File

@ -0,0 +1,13 @@
#!/usr/bin/perl
use strict;
use warnings;
my $timestamp = shift(@ARGV);
$timestamp *= shift(@ARGV) if @ARGV;
printf "%02d:%02d:%02d.%09d\n",
int($timestamp / 60 / 60 / 1000000000),
int($timestamp / 60 / 1000000000) % 60,
int($timestamp / 1000000000) % 60,
$timestamp % 1000000000;