in reply to Use perl to communicate With a windows application
Finally, if all you are trying to do is to send a few bytes here and there without any serial protocol, you can even open up the Port with this code
and use these commands to write and read to the portsysopen(COM,COM1,O_RDWR) || die "Can't open COM1 $^E";
#code to send data to port syswrite(COM,$string); #sends $string to COM1 #code to read data from port sysread(COM,$buf,$length); #read $length bytes $received = unpack("C*",$buf); #unpack them
Hope this helps.
|
|---|