linux - 使用 Device::SerialPorts 在 Linux 中编程串口

Question

我正在尝试使用通信端口 COM0(在 Linux 中为 ttyS0)与嵌入式系统通信。我在Windows上试了另外一个软件，好像可以和端口正常通信。我尝试使用此代码，但就在第一行出现错误。

use strict;
use warnings;
use Device::SerialPort;


die "Cannot Open Serial Port\n" unless my $PortObj = new Device::SerialPort ("/dev/ttyS0");

还有其他更简单的串口通讯方式吗

Answer 1

看起来您需要如下代码:

use strict;
use warnings;
use Device::SerialPort;

die "Cannot Open Serial Port\n"
   unless my $PortObj = Device::SerialPort->new(
      $^O eq "MSWin32" ? "com1" : "/dev/ttyS0"
   );

请注意，我不知道 com1 是否适合您的代码，但我认为您需要类似的东西。如果您有更多平台，您需要处理哈希可能是更好的选择:

use strict;
use warnings;
use Device::SerialPort;

my %port_name = (
    MSWin32 => "com1",
    linux   => "/dev/ttyS0",
);

die "I don't know what serial port to use on $^O\n"
    unless exists $port_name{$^O};    

die "Cannot Open Serial Port\n"
   unless my $PortObj = Device::SerialPort->new($port_name{$^O});