gpt4 book ai didi

linux - 在 Perl 中写入串口

转载 作者:塔克拉玛干 更新时间:2023-11-02 23:18:41 25 4
gpt4 key购买 nike

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

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

我更喜欢使用 perl,但我不知道它是否简单且功能是否符合预期。

最佳答案

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

关于linux - 在 Perl 中写入串口,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/10312654/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com