Re: 答复: [PerlChina] PERL与串口编程

以前的简单测试。。不知道对你有用没？
win32没试过

#!/usr/bin/perl5.10.0
use strict;
use IO::Handle;
use DBI();

#初始化串口
system("stty -echo raw 19200 </dev/ttyS0");

# Connect to the database.
my $dbh = DBI->connect();
#打开串口
open my $ser,'+>','/dev/ttyS0' or die '';


#------------------------------------------------------------
print $ser chr(3);
$ser->autoflush(1);

while(1){
   #得到串口数据
   my $info = getinfo($ser);

   #数据库操作
   print %$info;
   my $is = find_user($dbh,$info);
   print $is."\n";
   #向串口发送数据
   print $ser chr($is);
}

#------------------------------------------------------------


sub getinfo{

 。。。。
#读取串口数据
     if(read($com,$c,1)){
     。。。。
          $c = ord($c);
         
         。。。。
     }
   。。。。

}

#      $sth->finish();
# Disconnect from the database.
  $dbh->disconnect();