perl 串口 linux,Perl的串口操作Win32::SerialPort

use Win32::SerialPort ;    //引用SeriallPort模块

$PORTNAME = "COM7";  //设置串口号，大于9时候必须要加 "COM17"

my $ob = Win32::SerialPort->new($PORTNAME) || die "open com failed";

print "open com success\n";

eval  {

$ob -> baudrate( 115200 );    #如果使用超过115200的波特率，执行脚本前先用串口通信工具用对应波特率打开串口，发个AT。

$ob -> parity( 'none' );

$ob -> databits( 8 );

$ob -> stopbits( 1 );

$ob -> handshake( 'rts' );  #硬件流控

#$ob -> handshake( 'none' );  #无流控

#$ob->buffers(4096, 4096);

};

if  ($@) { die   ' set $PORTNAME properties failed ' ;}

$ob -> write_settings ||  die   " CANNOT WRITE $PORTNAME DRIVER " ;

$ob->write ("ATI\r\n");   //写到串口

sleep(1);

my($count, $string) = $ob->read(100);  //从串口读100字节数据，读到的数据长度$count, 数据赋值给$string

if(defined($string))   //读到了数据

{

print $string;

}

$ob->close;   //关闭串口

undef   $ob ;

exit(0);

#操作dtr引脚的方法

$ob->dtr_active(T);   #true: 拉低；

$ob->dtr_active(F);   #false：拉高

$ob->pulse_dtr_on($milliseconds);    #avtive拉低$milliseconds毫秒，再拉高$milliseconds毫秒

$ob->pulse_dtr_off($milliseconds);   #inavtive拉高$milliseconds毫秒，再拉低$milliseconds毫秒

#发送十六进制数

$ob->transmit_char(0x1A);

#transmit_char的方法在使用USB虚拟的串口发送时会失效，改用下面的方式：

$str=pack(h6,"e70bA1");  # h  十六进制字符串(低位在前)，实际发送数据为7E B0 1A

$ob->write($str);

#或者

$ob->write(pack(H6,"7EB01A"));   # H  十六进制字符串(高位在前)

http://blog.csdn.net/jqzw/article/details/7176259