Я раньше не связывался с FreeBSD, но работал с com портами под windows на delphi.
там все просто - открываешь файл Com1 и работашь с ним, почти как с обычным файлом.
Но в FreeBSD целых шесть виртуальных устройств для порта:
/dev/ttyd? for callin ports
/dev/ttyid?
/dev/ttyld? corresponding callin initial-state and lock-state devices

/dev/cuaa? for callout ports
/dev/cuaia?
/dev/cuala? corresponding callout initial-state and lock-state devices
И с которым из них спрашивается надо работать?

Я соединил два 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!\n"; 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\n";  }; }; close DEV;

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

Уже разобрался .
работает вот так:
Приемник:

Код

#!/usr/bin/perl -w use strict; my (     $port,             $params,         $speed,         );         my $s; $port = "/dev/cuaa1"; $speed=19200; $params = ""; $params .= "-parenb ";     $params .= "cs8 ";         $params .= "-hupcl ";     $params .= "-cstopb ";     $params .= "cread ";         $params .= "clocal ";     $params .= "crtscts ";     $params .= "igncr ";     system("stty -f cuaia1 $params"); system("stty -f cuaia1 $speed"); my $p=0; open(DEV, "+<$port")       || die "Cannot open $port: $_"; while(read DEV,$s,1){  print "$s"; }; close DEV; if($p){print ".\n";}; close DEV;

Передатчик:

Код

#!/usr/bin/perl -w use strict; my (     $params,         $speed,         );         $speed=19200; $params = ""; $params .= "-parenb ";     $params .= "cs8 ";         $params .= "-hupcl "; $params .= "-cstopb "; $params .= "cread "; $params .= "clocal "; $params .= "crtscts "; open(DEV, "+</dev/cuaa0")      || die "Cannot open $port: $_"; system("stty -f /dev/cuaia0 $params")==0 || die "Error"; system("stty -f /dev/cuaia0 $speed")==0 || die "$_"; print DEV "Hellow word\n"; close DEV;

Но для чего в FreeBSD 6 устройств на каждый порт я все-еще не понял.

Это сообщение отредактировал(а) Алексаандр - 3.8.2005, 11:53

А зачем в скрипт-приемник

Код

my $p=0;

, для чего она используется?

он там вообще не используетсЯ

я не пойму, почему передатчик открываем так вот:

Код

open(DEV, "+</dev/cuaa0")

это же вроде для чтения...

Цитата(study @ 15.8.2005, 11:07)

я не пойму, почему передатчик открываем так вот: Код open(DEV, "+</dev/cuaa0") это же вроде для чтения...

плохо что не знаешь
вот тебе
Filename Read Write Append Create Trunc O_flags Char
< file yes no no no no RDONLY "r"

> file no yes no yes yes WRONLY TRUNC CREAT "w"

>> file no yes yes yes no WRONLY APPEND CREAT "a"

+< file yes yes no no no RDWR "r+"

+> file yes yes no yes yes RDWR TRUNC CREAT "w+"

+>> file yes yes yes yes no RDWR APPEND CREAT "a+"

блин, лохонулся

Что-то у меня приемник не работает...
не может с порта считать информацию, зависает по-моему в этом цикле:

Код

while(read DEV,$s,1){  print "$s"; };

PS: тестирую по Linux

Народ помогите разобраться с ком портом, очень надо...
Этот пример у меня не работает под linux, подскажите что исправить