InstantForum.NET v4.1.4Релибhttp://www.relib.com/forums/robot@relib.comSat, 22 Nov 2008 19:14:18 GMT20http://www.relib.com/forums/Topic877207-18-1.aspxУже сам разобрался.Wed, 03 Aug 2005 12:40:00 GMTAleksandr Mamzikovhttp://www.relib.com/forums/Topic877207-18-1.aspxКто-нибудь работал с com-портами на perl?Я соединил два com порта у компьютера и пытаюсь переслать из одного в другойданные.Текст программы-передатчика:[code]#!/usr/bin/perl -wuse strict;my $port = "/dev/ttyid1";open(DEV, ">$port") || die "Cannot open $port: $_";system("stty -f $port clocal cs8 -hupcl -cstopbcread -parmrk -inpck -istrip -inlcr -igncr -icrnl -ixon -ixoff -ixoff -onlcr -ocrnl -oxtabs");system("stty -f $port 19200");print DEV "Hellow Word!<br>";close DEV;[/code]Текст програмы-приемника:[code]#!/usr/bin/perl -wuse strict;my $port = "/dev/ttyid0";my $s;open(DEV, "<$port") || die "Cannot open $port: $_";system("stty -f $port clocal cs8 -hupcl -cstopbcread -parmrk -inpck -istrip -inlcr -igncr -icrnl -ixon -ixoff -ixoff -onlcr -ocrnl -oxtabs");system("stty -f $port 19200");while(1){ while(defined($s = <DEV>)){ print "->$s<br>"; };};close DEV;[/code]Работаю в FreeBSD.Никаких ошибок не выдается, но и не работает.Что я делаю не так?Tue, 02 Aug 2005 11:05:00 GMTAleksandr Mamzikov