4 use Device::SerialPort;
5 use Data::Dump qw(dump);
6 use Time::HiRes qw(time);
12 my $s = new Device::SerialPort( '/dev/ttyUSB0' ) || die $!;
17 $s->handshake('none');
18 $s->read_char_time(2);
19 $s->read_const_time(3);
26 my ($len, $string) = $s->read($read_len);
30 my $hex = unpack('H*',$string);
32 #printf "%s %2d %s\n", time(), $len, $hex;
33 printf "%8.4f %0.4f %2d %s\n", $ts, $ts - $t, $len, $hex;