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

不管有用没用.先多谢了.

On 1月7日, 下午1时54分, 钟声 <gh00920...@gmail.com> wrote:
> 以前的简单测试。。不知道对你有用没？
> 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();