|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Aleksey Barabanov 2:5020/400 24 Jul 2000 03:27:47
To : All
Subject : Re: COM port
--------------------------------------------------------------------------------
Murad Askerzadeh wrote:
>
> Дело в том. что у модема загорается TR, но звонить или делать что либо он
> отказывается, с чем это может быть связано?
> (А при запуске этого отрезка я не вижу на экране ОК, только команда -
> посылаемая....)
>
> >open(T,"+>/dev/cuaa0");
> >print T "ATZ\n";
> >while(<T>){ print; if($_ =~ /OK/){last;}}
> >print T "ATDP100\n";
> >while(<T>){ ... ну и т.д.
Вот клянусь свалявшейся шерстью той самой ламы, я набрал и проверил
перед постингом этот кусок. И сейчас сделала это еще раз. Hо у меня
устройство /dev/modem. Я так понял вы именно им желаете управлять. То
что вы видите посылаемую команду это ваш модем возвращает эхо. Команды я
взял от балды. Вот точное изображение моего скрипта:
----------------------------------------
#!/usr/bin/perl -w
open(T,"+>/dev/modem");
print T "ATZ\n";
while(<T>){ print; if($_ =~ /OK/){last;}}
print T "ATDP100\n";
while(<T>){ print; if($_ =~ /OK/){last;}}
----------------------------------------
Киньте это к себе. И проверьте для /dev/как-там-нужно. Замечу, если
убрать цикл ожидания, будет именно так как вы описываете: момед
помигает-помигает, да и утухнет ;) А в моем варианте нудным голосом вам
прочтут рекламу и время скажут заодно.
Bye.
PS:Правда я ничего не знаю о ваших stty на /dev/cuaa0 ;) Может их стоит
подправить.
--
Aleksey Barabanov <alekseybb@mtu-net.ru>
--- ifmail v.2.15dev5
* Origin: Small Office, Russia (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
