https://www.opennet.ru/openforum/vsluhforumID9/6702.html Добрый день.<br><br>потребовалось при пмощи net::snmp получить с устройства список интерфесов, но не как не получается, хотя при это обычным snmpwalk получается.<br><br>%%%<br>my ($session, $error) = Net::SNMP-&gt;session(<br> -hostname =&gt; shift &#124;&#124; 'ip',<br> -community =&gt; shift &#124;&#124; 'piblic',<br> -port =&gt; shift &#124;&#124; 161,<br> -version =&gt; shift &#124;&#124; 1<br>);<br><br>$int = ".1.3.6.1.2.1.2.2.1.2";<br><br>$result = $session-&gt;get_request(<br> -varbindlist =&gt; [$int]<br>);<br><br>printf("host\n",<br> $session-&gt;hostname, $result-&gt;{$int}<br> );<br>$session-&gt;close;<br>%%%<br>через snmpwalk выводится нормально:<br>IF-MIB::ifDescr.1 = STRING: FastEthernet0/0<br>IF-MIB::ifDescr.2 = STRING: Serial0/0<br>IF-MIB::ifDescr.3 = STRING: FastEthernet0/1<br>IF-MIB::ifDescr.4 = STRING: FastEthernet2/0<br>IF-MIB::ifDescr.5 = STRING: Null0<br>...<br><br>Если не сложно подскажите как решить проблему, было бы здорово если покажите пример.<br><br> https://www.opennet.ru/openforum/vsluhforumID9/6702.html#2 Thu, 08 May 2008 13:54:04 GMT &gt;Если не сложно подскажите как решить проблему, было бы здорово если покажите <br>&gt;пример. <br><br>my $int = ".1.3.6.1.2.1.2.2.1.2";<br><br>my $result = $session-&gt;get_table(<br> -baseoid =&gt; [$int]<br>);<br><br>foreach(keys %$result) {<br> print($_." = ".($result-&gt;{$_})."\n");<br>}<br> https://www.opennet.ru/openforum/vsluhforumID9/6702.html#1 Fri, 24 Aug 2007 19:08:33 GMT &gt; -community =&gt; shift &#124;&#124; 'piblic',<br><br>наверное, public, поэтому и не пускает...<br>