- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #4073 [671]
От : Valentin Nechayev 2:5020/400 13 июля 04, 11:38
Кому : Mikhail Kostousov 14 июля 04, 22:52
Тема : Re: Работа с модемом
-------------------------------------------------------------------------------
From: Valentin Nechayev
>>> Mikhail Kostousov wrote:
MK>Уже совсем замаялся... Hезнаю, где что искать...
MK>Простенькая программка:
MK>----begin of test.pl
MK>#!/usr/bin/perl
MK>my $port = "/dev/rfcomm0";
Это что за ОС?
MK>use strict;
MK>open F,"+<$port" or die $!;
MK>printf F "ATZ\r";
MK>while ($a=)
MK>{
MK> printf $a;
MK> sleep 1;
MK>}
MK>-----end of test.pl-----------
MK>
MK>Умудряется выводить во такой листинг:
Сходи вот сюда:
http://www.freebsd.org/cgi/man.cgi?query=termios
(на версию системы не смотри, 99% этой информации приемлемы для любого юникса)
и почитай про input processing, output processing и прочее.
У тебя порт стоит несколько не в том режиме, в котором должен быть
для нормальных переговоров с модемом. Скорее всего должен быть raw mode
(он же non-canonical mode). Режим ты обязательно должен выставить сам
какой нужен, нельзя полагаться на текущий.
MK>Это я немного изоблачил проблему. Hе могу понять, от куда берется так
MK>много переводов строк и аж два "OK"?
Первое - скорее всего ICRNL или что-то похожее.
Второе - какой-то другой артефакт текущего режима порта.
-netch-
--- ifmail v.2.15dev5.3
* Origin: Dark side of coredump (2:5020/400)