我需要与 Perl 脚本中的串行端口通信。我需要发送字符并读取输入并搜索字符串。
实现这一目标的最简单方法是什么？通过使用“期望”或通过在 Perl 本身中打开 /dev/ttys0 设备？还是其他方法？
我更喜欢使用 perl，但我不知道它是否简单且功能符合预期。
问问题
16879 次
3 回答
6
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);
于 2012-04-25T10:27:56.613 回答
3
你可以试试Win32::SerialPortWin32 和Device::SerialPortlinux。
于 2012-04-25T09:18:57.677 回答
0
于 2012-04-25T09:18:53.940 回答