Perl 设备::串行端口

Question

在板子启动消息期间寻找正确的方法来检测一个关键字。 检测到关键字后，一秒后发送回车键。 内核是Linux。

# Serial port inisialisation is finished here.

# Read boot message
($count, $result) = $ob->read(300); # at least 300 chars coming till keyword appear

if ($result =~ m/Booting_up/) {
    print "send Enter ...\n";
    sleep 1;
    $ob->write("\r\n");
}

感谢提示

Answer 1

看来您正在使用Win32::SerialPort 模块，或者可能是Device::SerialPort

提供与 Win32::SerialPort 模块提供的基本相同的基于对象的用户界面。

它的方法read获取读取的字节数并返回读取的数字并将它们写入给定的字符串。

您可能是“missing”这个短语，因为它超过了 300 分，并且您的代码不再阅读。尝试循环，一次获取几个字节并将它们相加，从而在小读取中构建字符串。

my bytes_in = 10;    # length of pattern, but it does NOT ensure anything
my ($read, $result);

while (1) 
{
    my ($count, $read) = $ob->read( $bytes_in ); 

    $result = $result . $read;
    if ($result =~ m/Booting_up/) {  # is it "Booting_up" or "Booting up" ?
        print "send Enter ...\n";
        sleep 1;                     # is this needed?
        $ob->write("\r\n");
        # last;                      # in case this is all you need to do
    }

    last if $count != $bytes_in;     # done reading 
}

我没有将$ob->read 语句放在循环条件中，因为文档并不清楚该方法的工作原理。您也可以简单地使用

while ( my ($count, $read) = $ob->read( $bytes_in ) ) {
    $result = $result . $read;
    if ($result =~ m/Booting_up/s) { 
        # ...
    }
    last if $count != $bytes_in;
}

我们一次读取少量字节以防止 轮询 或 阻塞 读取出现问题，BenPen 在 cmets 中提出。见Configuration and capability methods。

您可以先一次性读取该模式之前的前 300 个字节，然后一次开始读取几个（或一个）字节，这也可以最快地识别短语。

这可以进一步调整，但让我们先看看它的作用（我无法测试）。

文档还提供了一些其他可能有用的方法，特别是readline 和streamline。由于这一切都相当低级，还有其他方法，但如果您完成所有其他工作，也许这足以完成它。

Answer 2

也许宁愿索引字符串？

($count, $result) = $ob->read(300); # at least 300 chars coming till keyword appear

$substring = 'Booting_up';
 if (index($result, $substring) != -1) {
   print "send Enter ..\n";
   sleep 1;
   $ob->write("\r\n");
}