perl 写串口问题

log2002

我用perl写了个串口程序，但是对端收到的字符总是少，接收到的是"0123456012"，不知是什么原因？代码如下：

#!/usr/bin/perl -w

use strict;
require 5.003;
use Device::SerialPort qw( ARAM :STAT 0.07 );



my   $msg = "01234567890123456789";


    #打开串口
    my $sms_obj = new Device::SerialPort ("/dev/ttyUSB0" or die "cannot open ";
    #设置串口属性
    $sms_obj -> baudrate(115200);
    $sms_obj -> parity("NONE";
    $sms_obj -> databits(;
    $sms_obj -> stopbits(1);

    $sms_obj -> write_settings;


    $sms_obj -> lookclear;
   

    my $sent = $sms_obj -> write($msg);
    warn "write failed\n" unless ($sent);
    warn "write incomplete\n" if ($sent != length($msg));
    print $sent;