|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Igor Belokopytov 2:5020/400 21 Nov 2001 09:23:08 To : All Subject : SNMP, getnext -------------------------------------------------------------------------------- Hi2All ! Приведите, плиз, кто-нибудь пример кода, распечатывающего при помощи getnext (класс SNMP) какую-нибудь ветку МИБа, ну например ".1.3.6.1.2.1.interfaces.ifTable.ifEntry.ifDescr" У меня на вот таком коде use SNMP; my $host = "localhost"; my $community = "public"; my $mib_path = ".1.3.6.1.2.1.interfaces.ifTable.ifEntry.ifDescr"; my $session = new SNMP::Session(DestHost => $host, UseLongNames => 1, Community => $community); my $vars = new SNMP::Varbind([$mib_path]); for(my @vals = $session->getnext($vars); $vars->[0]->tag =~ /ifDescr/ and not $session->{ErrorStr}; @vals = $session->getnext($vars)) { print $vars->[0]->tag, "\n"; } или даже если вместо for(...) {...} просто "@vals = $session->getnext($vars);" вываливается в "сегментайшн фолт". Просто get работает, а getnext ... Linux, Debian 2.2 , snmpd (4.2.1-6 NET SNMP) Regards, Igor Belokopytov --- ifmail v.2.15dev5 * Origin: MTU-Intel ISP (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/9104c4db6ec8.html, оценка из 5, голосов 10
|