- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #4071 [671]
От : Mikhail Kostousov 2:5020/400 13 июля 04, 02:53
Кому : All 14 июля 04, 22:52
Тема : Работа с модемом
-------------------------------------------------------------------------------
From: Mikhail Kostousov
Всем привет!
Уже совсем замаялся... Hезнаю, где что искать...
Простенькая программка:
----begin of test.pl
#!/usr/bin/perl
my $port = "/dev/rfcomm0";
use strict;
open F,"+<$port" or die $!;
printf F "ATZ\r";
while ($a=)
{
printf $a;
sleep 1;
}
-----end of test.pl-----------
Умудряется выводить во такой листинг:
---------------------------------
ATZ
OK
OK
---------------------------------
Это я немного изоблачил проблему. Hе могу понять, от куда берется так
много переводов строк и аж два "OK"?
Объясните, что не так? Причем изначально - все было хорошо - сначала
запрос к модему, ту же ответ... А сейчас вываливается второе OK....
Где проблема?
--
С уважением, Михаил Костоусов
--
--- ifmail v.2.15dev5.3
* Origin: Demos online service (2:5020/400)