my ($hex,$expect,$desc) = @_;
my $bytes = hex2bytes( $hex );
warn "# $desc\n";
+retry:
warn ">> ",as_hex( $bytes );
$port->write( $bytes );
my $data = $port->read(1);
warn "<< len: ",ord($data);
+
+ goto retry if ord($data) == 0;
+
$data .= $port->read(ord($data) - 1);
warn "<< ",as_hex($data);
warn "?? $expect\n" if $expect;
}
-#v '07 02 00 00 00 04 C4', "hardware version";
+v '07 02 00 00 00 04 C4', "hardware version";
-#v '07 0A 00 00 00 04 44', 'software version';
+v '07 0A 00 00 00 04 44', 'software version';
v '07 00 01 00 06 0E EA', 'temperatures';