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