在Perl中向串口发送下划线

use Device::SerialPort;

# 串口配置
my $port = "/dev/ttyUSB0";  # 串口设备路径
my $baudrate = 9600;        # 波特率

# 打开串口
my $serial = Device::SerialPort->new($port) || die "无法打开串口";
$serial->baudrate($baudrate);
$serial->databits(8);
$serial->parity("none");
$serial->stopbits(1);

# 发送下划线
my $underscore = chr(95);  # ASCII码值为95的字符，即下划线
$serial->write($underscore);

# 关闭串口
$serial->close();