如果向串口发送16进制编码

kingdisc666

用Device::SerialPort 模块向串口设备写文本，串口设备写数据要遵循一定的协议格式

比如（按照以下16进制格式写入，GB2312编码）：

5A 01 68 13 01 00 01 06 01 ...



代码如下，先将$string字符串转换为16进制GB2312编码（如46  51  43  54  c2  df  bc  ad  b1 ...），然后通过Device::SerialPort的$ob->write($strings)发送，

如何让$ob->write($strings)以16进制发送，捕捉后发现无法正常显示


#!/usr/bin/perl -w
require 5.003;
use Device::SerialPort qw( ARAM :STAT 0.07 );
use Encode qw(from_to);
$string="逻辑备库应用归档的情况;严重;notify-service-by-email;CRITICAL - --ldg ORA-01034: ORACLE not availabl";
from_to($string, "utf8", "GB2312";

sub print_hex {
    my ($str) = @_;
    my @arr = split //, $str;
    for my $c (@arr) {
        printf " %x ", ord($c);
    }
    printf "\n";
}


$string=print_hex("$string";


my $ob = new Device::SerialPort("/dev/ttyS0" or die "open com failed";



     $ob -> baudrate(115200);
     $ob -> parity("NONE";
     $ob -> databits(;
     $ob -> stopbits(1);

     $ob -> write_settings;

     $ob ->datatype('raw');
     $ob -> lookclear;
     $ob->write($strings);

104359176

这个可能需要用 pack 将字符流转换成字节流