|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : V.Maslikhov 2:5020/400 20 Apr 2001 10:31:42
To : All
Subject : Re: Как работать с открытым модемом или портом ?
--------------------------------------------------------------------------------
Эхо терминала отключал :
sysopen(MODEM, "/dev/ttyS1", O_NONBLOCK|O_RDWR);
$term = POSIX::Termios->new;
$term->getattr(fileno(MODEM));
$o = $term->getlflag();
$echo = ECHO | ECHOK | ICANON;
$noecho = $o & ~$e;
$term->setlflag($noecho);
$term->setcc(VTIME, 1);
$term->setattr(MODEM, TCSANOW);
эно у модема выключено изначально,
но это мало помогает, после первой записи в модем идет постоянный поток,
может я не правильно эхо терминала выключил ?
А т.к. этот поток идет и на модем, что ему (модему) очень не нравиться, то
добиться от модема чего-то нормального не возможно.
Слава.
"Andrey Sapozhnikov" <sapa@icb.chel.su> wrote in message
news:9bnt39$10ng$1@ddt.demos.su...
>
> Artem Chuprina пишет в сообщении ...
> >Здравствуй, V.Maslikhov.
> >VM> то при считывании с дескриптора MODEM идет огромый поток данных,
> состоящий
> >VM> из ^G, ^M, ^A, среди которых проскакивает ответ самого модема "OK".
> >
> >VM> Как можно избавиться от этого потока?
> >
> >Проигнорировать.
>
>
> Шутим... нужно выключить эхо у терминала /dev/ttyS1. А то эхо есть
> по умолчанию и у модема и у порта. В итоге мусор гоняет по кругу.
>
> perldoc POSIX
>
> и читаем про POSIX::Termios. Более подробно в man termios.
>
> Sapa
>
>
>
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
