|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Mikhail Kostousov 2:5020/400 13 Jul 2004 02:53:50
To : All
Subject : Работа с модемом
--------------------------------------------------------------------------------
Всем привет!
Уже совсем замаялся... 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=<F>)
{
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)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
