LINUX.ORG.RU
ФорумAdmin

Net::SNMP PERL


0

0

Как сделать чтоб проходил запрос?
use Net::SNMP;
$request="1.3.6.1.4.1.171.12.9.2.2.1.3.1 i 3
        1.3.6.1.4.1.171.12.9.2.2.1.4.1 a 255.255.255.255
        1.3.6.1.4.1.171.12.9.2.2.1.18.1 i 4";
($session,$error)=Net::SNMP->session(Hostname=>$switch,Community=>$community,Ve
rsion=>'snmpv2c');
    die "Ошибка сеанса: $error" unless ($session);
$result = $session->set_request($request);
    die "Ошибка запроса: ".$session->error unless (defined $result);
$session->close;
Ошибка запроса: 
Expected [OBJECT IDENTIFIER, ASN.1 type, object value] combination at ./1.cgi line 47.
★★
Ответ на: комментарий от gibbon

my( @list);
    
push( @list, ($oid1, $type1, $value1));
push( @list, ($oid2, $type2, $value2));
push( @list, ($oid3, $type3, $value3));
push( @list, ($oid4, $type4, $value4));

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

lioncub ★★
() автор топика
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.