Исходное сообщение
"Скрипт для ориентации антенны,показывает RSSI и CellID" Отправлено WatchCat, 17-Фев-13 15:22
В связи с тем,что программы mdma,hsl,wlanexpert почему-то не видят порт модема из-под Wine,пришлось написать простой скрипт,показывающий уровень сигнала и номер базовой станции на которой зарегистрирован модем. Проверил на своем Huawei E150, работает,номер БС показывает в hex,после перевода в десятичный вид совпадает с номерами на карте сайта нетмонитор.ру Переменной $modem надо присвоить имя порта через который ваш модем отвечает на команды. В случае huawei портов аж три штуки,причем можно через один порт установить ppp соединение,а через другой отдавать команды прямо во время сеанса. Почему-то из модема периодически читается "мусор" вместо ответов на команды,увидеть его можно раскомментировав строчку со словом Debug. Стабильность работы скрипта зависит от числа секунд в команде sleep(),похоже связано с быстродействием компьютера и самого модема,возможно придется подбирать. Слишком короткий интервал делать нет смысла так как в самом модеме значение RSSI обновляется в течении 3-5 секунд. Соответственно и подключенную к модему антенну надо поворачивать медленно чтобы модем успевал отслеживать изменение уровня сигнала. Сам я использую антенну из спутниковой тарелки и специального облучателя на частоту 2100мгц. ========================== #!/usr/bin/env perl use strict; use warnings; my $modem = "/dev/ttyUSB2"; $SIG{ALRM} = sub {         close(MODEM);                 die("timeout: no response from modem $modem\n");                 };                 open(MODEM, "+<", $modem) or die("can't open modem $modem");                 print(MODEM "AT+CREG=2\n\r");                 while (<MODEM>) { #                       print("Debug: $_\n");                         if (m/^\+CSQ:/)                         {                             my ($x, $s) = split(' ', $_);                             my ($signal, $err) = split(',', $s);                             print("RSSI: $signal \n");                         }                         if (m/^\+CREG:/)                         {                             my ($s1, $s2, $s3, $s4) = split(',', $_);                             print("CellID: $s4 \n");                         }                         if (m/ERROR/)                         {                             print(MODEM "AT\n\r");                         }                         if (m/OK/)                         {                             alarm(15);                             sleep(3);                             print(MODEM "AT+CSQ;+CREG?\n\r");                         }                 } ==========================

Ваше сообщение
Имя*:
EMail:	Для отправки ответов на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:
	Введите код, изображенный на картинке: