Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Команда snmpset в perl 
:(
    Опции темы
Guran
Дата 23.10.2011, 05:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 4.10.2011

Репутация: нет
Всего: нет



Добрый день. Появилась такая задача: по snmp запустить тест Cable Tester'а, он проходит и после этого можно считывать данные.
В консоли это делается командами

snmpset -v2c -c private 172.16.34.3 1.3.6.1.4.1.171.12.58.1.1.1.12.21 i 1
snmpget -v2c -c private 172.16.34.3 1.3.6.1.4.1.171.12.58.1.1.1.8.21

Если первой командой тест не запустить будут приходить заведомо ложные ответы (типа длины кабеля -1)

Я делаю это командами 
Код

push my @list, ('1.3.6.1.4.1.171.12.58.1.1.1.12', ' i ', '1');

$snmp->set_request( -varbindlist => [@list]);

my $res = $snmp->get_request("1.3.6.1.4.1.171.12.58.1.1.1.3.".$port);

Но если get_request отрабатывает, то set_request, судя по возвращающимся данным, не просыпается. Может быть я использую не ту команду?
PM MAIL   Вверх
ginnie
Дата 23.10.2011, 09:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

Репутация: 38
Всего: 49



Guran, попробуйте правильно указать тип данных в запросе:

Код

$snmp->set_request( -varbindlist => ['1.3.6.1.4.1.171.12.58.1.1.1.12', INTEGER, 1]);



--------------------
Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг)
PM MAIL Skype Jabber   Вверх
Guran
Дата 24.10.2011, 01:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 4.10.2011

Репутация: нет
Всего: нет



Не помогло

Добавлено через 9 минут и 29 секунд
Заработало после помещения oid'a и придаваемого значения в двойные кавычки


push my @list, ("1.3.6.1.4.1.171.12.58.1.1.1.12.".$port,INTEGER,"1");
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.1620 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.