use strict;
use Data::Dump qw(dump);
-use Device::SerialPort qw(:STAT);
-
my $debug = $ENV{DEBUG} || 0;
+=for serial_port
+
+use Device::SerialPort qw(:STAT);
+
my $port = Device::SerialPort->new('/dev/ttyUSB0');
die "can't open serial port" unless $port;
$port->baudrate(9600);
return $port->write( $bytes );
}
+=cut
+
# TODO: implement remote serial port
# remserial -x 2 -p 23000 -s "9600 raw" /dev/ttyUSB0
+use IO::Socket::INET;
+
+my $sock = IO::Socket::INET->new(
+ PeerAddr => '192.168.1.148',
+ PeerPort => '23000',
+ Proto => 'tcp'
+);
+
+sub read_serial {
+ my $len = shift;
+ my $buffer;
+ $sock->read( $buffer, $len );
+ warn "## read $len ",as_hex($buffer) if $debug;
+ return $buffer;
+}
+
+sub write_serial {
+ my $bytes = shift;
+ return $sock->print( $bytes );
+}
+
+
sub as_hex {
my @out;
foreach my $str ( @_ ) {