tachekent has asked for the wisdom of the Perl Monks concerning the following question:
first I tried:
which worked once or twice.use Win32::SerialPort qw( :STAT 0.19 ); my $PortObj = new Win32::SerialPort ("COM1") || die "Can't open COM1: +$^E\n"; $PortObj->baudrate(9600); $PortObj->parity("none"); $PortObj->databits(8); $PortObj->stopbits(1); $PortObj->write ("feed me"); $PortObj->close || die; undef $PortObj;
then I omitted setting any params which worked fine for a whole evening, now nothing works.
SerialPort seems to pick up the settings on its own with little trouble, and a light comes on on the device whenever I try and talk to it, it's just failing to write.