PERL COM口编程的问题.

tmfc865

各位大大,PERL新手,有个关于串口的问题.使用Hardware:ortScanner模块
问题是这样的,现在我需要写一个脚本,需要把数据以16进制形式发送到串口设备上.但是我在使用Hardware:ortScanner模块时.发现了往串口发送的数据都不是我所指定的HEX代码.请问有什么办法解决么?
还有,能不能提供一下关于WIN32::SERIALPORT或者是DEVICE::SERIALPORT的例子或者是教程.多谢各位了.

1. 
   
2. use Hardware::PortScanner();
   
3. my $com_port = Hardware::PortScanner->new(); #新建对象
   
4. 
   
5. $com_port->scan_ports(       
   
6.         COM=>1,BAUD=>9600,SETTING=>'8N1',
   
7.         TEST_STRING=>0x10.0x04.0x01."\n",         #需要发送的测试代码
   
8.         VALID_REPLY_RE=>'^12',);
   
9. 
   
10. foreach ($com_port->scan_log)
    
11. {
    
12.         print "$_\n";
    
13. }

复制代码

tmfc865

自己顶自己...自己坐沙发.

tmfc865

自己继续顶....

mwm5

不了解com口编程这块

  

     TEST_STRING=>0x10.0x04.0x01."\n",         #需要发送的测试代码

这行确定没问题？能简单解释下嘛？.表示字符串连接

TEST_STRING - A string that will produce a response from the device that can be matched against a regular expression (VALID_REPLY_RE below) to confirm the device in desired has been found. This string must include any command terminators (newlines, carriage returns, etc) that are necessary to get the device to recognize the command. Often, a version request command works well as this string.

[ 本帖最后由 mwm5 于 2010-1-7 11:25 编辑 ]

mwm5

我想这肯定不是你想要的~

#!/usr/bin/perl
use warnings;
use strict;

my $TEST_STRIN=0x10.0x04.0x01."\n";
print $TEST_STRIN,"\n";

1641

mwm5

PerlFAQ

How do I convert from decimal to hexadecimal

Using sprintf:
$hex = sprintf("%X", 3735928559); # upper case A-F
$hex = sprintf("%x", 3735928559); # lower case a-f

Using unpack:
$hex = unpack("H*", pack("N", 3735928559));

Using Bit::Vector:
use Bit::Vector;
$vec = Bit::Vector->new_Dec(32, -559038737);
$hex = $vec->to_Hex();

And Bit::Vector supports odd bit counts:
use Bit::Vector;
$vec = Bit::Vector->new_Dec(33, 3735928559);
$vec->Resize(32); # suppress leading 0 if unwanted
$hex = $vec->to_Hex();

[ 本帖最后由 mwm5 于 2010-1-7 11:32 编辑 ]

mwm5

如果你是说要发一个0x100x040x01\n
这样的串的话，应该就很简单了。。
直接用"0x100x040x01\n"就好了！

mwm5

perldoc其实都是很好的教程了。。不了解你那块。。。
但是大概看了你提到的几个模块

SYNOPSIS或者EXAMPLE部分都有很好的模板或者例子啊~

http://search.cpan.org/dist/Devi ... rialPort.pm#EXAMPLE

tmfc865

刚刚有思路了.等我写好就发发代码上来,给大家研究研究.刚试过了

1. 
   
2. sysopen (FH,"COM1",066) || die "CANNOT OPEN THE COM PORT"; #打开串口.
   
3. 
   
4. print FH 0x10.0x40.0x01; #写入数据
   
5. close (FH); #关闭
   

复制代码

这句打开的话就可以直接使用COM串口,但是,串口配置是根据系统默认值来进行数据通信.
看了两天CPAN文档和PERLDOC,发现PERL对硬件(特别是COM口)的描述文档很少,但是对于功能来说..控制串口硬件这块有很多方法可以实现,就如果以最简单就是sysopen和fcntl,其次就是Device::SerialPort模块,但是这个模块的功能实在太多,而且文档比较难理解(因为我E文差).
正在研究还有一个问题就是,我所发送的数据使用16进制的,但是用捕捉串口数据,发现我发送的数据都会被狠狠的分开.也就是说我发送0x10,捕捉程序会变成31 34这样的数据.设备是不认这个命令的.现在有个解决方法,不知道能否解决,cpan上的Device::SerialPort里面有个方法.

1. 
   
2. use strict;
   
3. use Device::SerialPort;
   
4. my $port = Device::SerialPort->new("COM1");
   
5. $port->baudrate(9600);
   
6. $port->parity('none');
   
7. $port->databits(8);
   
8. $port->stopbits(1);
   
9. $port->datatype('raw'); #就是这个,数据变成RAW方式发送到COM口上.
   

复制代码

就是上面这段代码是典型的Device::SerialPort模块的引用.各位高人能够一起研究研究.

[ 本帖最后由 tmfc865 于 2010-1-7 15:25 编辑 ]

tmfc865

贴一下COM口数据发送代码.总算研究出来了.接下来就是读取COM口返回数据了.

1. 
   
2. sysopen (FH,"COM1",066) || die "CANNOT OPEN COM PORT"; #打开串口
   
3. FH->autoflush(1);
   
4. print FH chr(16).chr(04).chr(01); #数据发送.使用chr函数进行转换.转换出来的数据是原始的RAW方式.串口抓数据是一样的.不会打散.
   
5. close FH;

复制代码