From 6823b6c5a9d0df3479960376916998a96d926bfe Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Fri, 14 Oct 2016 14:31:51 +0200
Subject: [PATCH] microsecond time resultion and delay from last transmission

---
 serial.pl | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/serial.pl b/serial.pl
index 6620593..63372d0 100755
--- a/serial.pl
+++ b/serial.pl
@@ -3,6 +3,9 @@ use warnings;
 use strict;
 use Device::SerialPort;
 use Data::Dump qw(dump);
+use Time::HiRes qw(time);
+
+my $read_len = 255;
 
 $|=1;
 
@@ -17,13 +20,18 @@ $s->read_const_time(3);
 
 #$s->write('o');
 
+my $t = time();
+
 while (1) {
-	my ($len, $string) = $s->read(255);
+	my ($len, $string) = $s->read($read_len);
+	my $ts = time();
 
 	if ( $len > 0 ) {
 		my $hex = unpack('H*',$string);
 		$hex =~ s/(..)/$1 /g;
-		printf "%s %2d  %s\n", time(), $len, $hex;
+		#printf "%s %2d  %s\n", time(), $len, $hex;
+		printf "%8.4f %0.4f %2d  %s\n", $ts, $ts - $t, $len, $hex;
+		$t = time();
 	}
 }
 
-- 
2.20.1