Help for this page

Select Code to Download


  1. or download this
    use Symbol qw(gensym);
use Device::SerialPort;
...
$port = tie(*$handle, "Device::SerialPort", "/dev/ttyUSB0");
$port->baudrate(57600);
(etc.)
  2. or download this
    $port->close;
undef $port;
untie *$handle;
  3. or download this
    <fh> select error: Bad file descriptor (hits=-1)