在Perl中写入串行端口

Question

我需要与Perl脚本中的串行端口进行通信。我需要发送字符并读取输入并搜索字符串。

实现此目的最简单的方法是什么？通过使用“expect”或通过在Perl本身打开/ dev/ttys0设备？或者其他一些方法？

我更喜欢使用perl，但我不知道它是否简单并按预期显示。

Answer 1

• IO::Termios
• Device::SerialPort

Answer 2

您可以尝试为Linux Win32::SerialPort为Win32和Device::SerialPort。

Answer 3

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);