|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : V.Maslikhov 2:5020/400 21 Jan 2002 13:15:04
To : Andrey Sapozhnikov
Subject : Re: Как передать данные меж ду двумяCOM портами
--------------------------------------------------------------------------------
Спасибо !!!
Слава.
Andrey Sapozhnikov <sapa@icb.chel.su> wrote in message
news:3C3DB5E8.4090103@icb.chel.su...
> Slava wrote:
>
> > Есть PC под Linux'ом, у которого два COM порта соединены nul-modem'ным
> > кабелем между собой.
> >
> > Если я первый порт открываю cat /dev/ttyS0 и жду данные (имеется ввиду
> > текст), то
> > как может выглядеть перловая прога, умеющая передавать через второй
порт -
> > ttyS1 данные ???
>
>
> use POSIX qw(:fcntl_h);
>
>
> # Открываем с NDELAY во избежание ожидания DCD
> sysopen TTY, '/dev/ttyS0', O_RDWR|O_NDELAY or die "Cannot open tty: $!";
> my $tty_fd = fileno TTY;
> my $termios = POSIX::Termios->new;
>
> $termios->setcc( &POSIX::VMIN, 1 );
> $termios->setcflag( &POSIX::CLOCAL | &POSIX::CREAD | &POSIX::CS8 ); #
Локальная линия, 8N1
> $termios->setiflag( 0 );
> $termios->setlflag( 0 );
> $termios->setoflag( 0 );
> $termios->setispeed( &POSIX::B9600 ); # 9600 baud
> $termios->setospeed( &POSIX::B9600 ); # в обе стороны
> $termios->setattr($tty_fd, &POSIX::TCSANOW );
>
> fcntl(TTY, F_SETFL, 0); # Снимаем NDELAY
>
> print TTY "Hello, world\r\n";
>
>
> Андрей
>
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
