Question

I need to communicate with a serial port inside a Perl script. I need to send characters and read the input and search for strings.

What is the simplest way to achieve this? By using “expect” or by opening the /dev/ttys0 device in Perl itself ? Or some other method ?

I prefer to use perl but I don’t know if it is simple and featured as expect.

Answer 1

my $port = new Device::SerialPort("/dev/ttyS0"); 
$port->user_msg(ON); 
$port->baudrate(9600); 
$port->parity("none"); 
$port->databits(8); 
$port->stopbits(1); 
$port->handshake("xoff"); 
$port->write_settings;

$port->lookclear; 
$port->write("some command to com-port");

my $answer = $port->lookfor;
# or my $answer=$port->read(255);