Пересылка информации между компьютерами через com-порт

@Aleksandr Mamzikov · Регистрация: 10.10.2011

Author24 — интернет-сервис помощи студентам

Кто-нибудь работал с com-портами на perl?
Я соединил два com порта у компьютера и пытаюсь переслать из одного в другой
данные.
Текст программы-передатчика:

Код

#!/usr/bin/perl -w
use strict;
my $port = "/dev/ttyid1";
open(DEV,  $port")
    || die "Cannot open $port: $_";
system("stty -f $port clocal cs8 -hupcl -cstopb
cread -parmrk -inpck -istrip -inlcr -igncr -icrnl -ixon -ixoff -ixoff -onlcr
 -ocrnl -oxtabs");
system("stty -f $port 19200");
print DEV "Hellow Word!
";
close DEV;

Текст програмы-приемника:

Код

#!/usr/bin/perl -w
use strict;
my $port = "/dev/ttyid0";
my $s;
open(DEV, "<$port")
    || die "Cannot open $port: $_";
system("stty -f $port clocal cs8 -hupcl -cstopb
cread -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
";
 };
};
close DEV;

Работаю в FreeBSD.
Никаких ошибок не выдается, но и не работает.
Что я делаю не так?

@Aleksandr Mamzikov · 11.10.2011, 13:17 **[ТС]**

Уже сам разобрался.

@Aleksandr Mamzikov 0 / 0 / 0 Регистрация: 10.10.2011 Сообщений: 3
		1
	Пересылка информации между компьютерами через com-порт 10.10.2011, 11:42. Показов 2785. Ответов 1 Метки нет (Все метки) Кто-нибудь работал с com-портами на perl? Я соединил два com порта у компьютера и пытаюсь переслать из одного в другой данные. Текст программы-передатчика: Код #!/usr/bin/perl -w use strict; my $port = "/dev/ttyid1"; open(DEV, $port") \|\| die "Cannot open $port: $_"; system("stty -f $port clocal cs8 -hupcl -cstopb cread -parmrk -inpck -istrip -inlcr -igncr -icrnl -ixon -ixoff -ixoff -onlcr -ocrnl -oxtabs"); system("stty -f $port 19200"); print DEV "Hellow Word! "; close DEV; Текст програмы-приемника: Код #!/usr/bin/perl -w use strict; my $port = "/dev/ttyid0"; my $s; open(DEV, "<$port") \|\| die "Cannot open $port: $_"; system("stty -f $port clocal cs8 -hupcl -cstopb cread -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 "; }; }; close DEV; Работаю в FreeBSD. Никаких ошибок не выдается, но и не работает. Что я делаю не так? 0

@Aleksandr Mamzikov 0 / 0 / 0 Регистрация: 10.10.2011 Сообщений: 3
	11.10.2011, 13:17 [ТС]	2
	Уже сам разобрался. 0