请哥哥姐姐帮忙看看一段小程序！（已解决）

ykredrum

找到出错的地方了
问题出在模块 win32::serialport，就是baudrate不能设置
用了个下面一段代码检查

use Win32::SerialPort;
my $Serial = new Win32::SerialPort('COM4') or die "Serial port died";
$Serial->baudrate(19200);
$Serial->parity('none');
$Serial->databits(;
$Serial->stopbits(1);
$Serial->handshake('none');
$Serial->buffers(4096, 4096);
$Serial->error_msg(1);
$Serial->user_msg(1);
print "baud rate: ", join(" ", $Serial->baudrate), "\n";
$Serial->write_settings || die "Failed to write settings";

程序结果出现上面同样的错误提示，显示baudrate是1200，$Serial->baudrate(19200);这句似乎没有效果。
解决办法，代码如下：

use Win32::SerialPort;
my $Serial = new Win32::SerialPort('COM4') or die "Serial port died";
$Serial->{"_L_BAUD"}{19200} = 19200;
$Serial->baudrate(19200);
$Serial->parity('none');
$Serial->databits(;
$Serial->stopbits(1);
$Serial->handshake('none');
$Serial->buffers(4096, 4096);
$Serial->error_msg(1);
$Serial->user_msg(1);
$Serial->write_settings || die "Failed to write settings";
添加红色的代码，就能成功运行

问题：
为什么模块的这个方法不能正确设置属性呢？原因是什么啊？
请大哥大姐们帮忙！谢谢

beyondfly

LZ用什么接口连接手机的

ykredrum

用蓝牙连接的

郁闷啊，好不容易把模块里面改了一下可以用了
但是只能发短信，很多at命令不支持，返回error，看来更多功能不能用了，
换了个三星的手机，大部分命令都支持，可惜是别人的手机，自己的不支持。

随便说一句，可以发中文的短信，坛子里有人改过的模块，好像现在那个链接不能用了
需要的说声，我可以把那个强人改过的模块传上来

ykredrum

最终解决办法，修改模块CommPort.pm，
将第791行的  $self->{"_L_BAUD"}= {};
改成
$self->{"_L_BAUD"}= {19200 => 19200};
就可以了!

Pro_sky

恩，不错，下次自己写类似程序的时候，可能也会碰到类似问题哦