Dotaz: perl net-snmp walk

[jessica]

Zdravim.Po delsi laboraci sem se rohodl pro cteni snmp pomoci perlu namisto pythonu.Knihovna net-snmp v pythonu pri dotazech vytezovala procesor na 100%(debian stable amd64).Mozna to byla chyba nekde mezi klavesnici a zidli ale v perlu tenhle problem zmizel.Co vsak v perlu NET::SNMP nemuzu najit je WALK.Coz mi dost chybi zblaste kdyz chci vypsat kolik je na cisco switchi interface a jak se jmenuji kdyz to predem nevim .Nevite nekdo jak udelat v perlu s NET::SNMP walk ? Predem diky za nejakou radu .

Odpovědi

[petr_p]

Net::SNMP::Util::walk()

[Ivan]

Oni existuji dva baliky NET::SNMP jeden je soucasti instalace Perlu a druhy se da najit na CPANu. Ten z CPANu toho umi vic.

[chochi]

NET::SNMP standartne walk neumi, ale neni problem dodelat (neco podobneho pouzivam, jen jsem to trochu upravil pro prezentaci):

sub SnmpWalk {
    my $base = shift;
    my $ses;
    my $e;
    my $err = undef;
    my $res;
    my $oid;
    my $val;
    my $tx;

    ($ses, $e) = Net::SNMP->session(
            -hostname => 'snmp.domain.com',
            -port => 161,
            -version => 'snmpv2c',
            -community => 'public';
    if($ses) {
        $oid = $base;
        while(substr($oid, 0, length($base)) eq $base) {
            $res = $ses->get_next_request(-varbindlist => [$oid]);
            if($res) {
                $oid = (keys(%$res))[0];
                $val = $res->{$oid};
                $tx = "$oid = $val";
                if(substr($oid, 0, length($base)) eq $base) {
                    do_something($tx);
                }
            } elsif($ses->error_status() == 2) {
                $oid = "";
            } else {
                $err = error("SnmpWalk - can not get snmp OIDs ($oid): '" . $ses->error() . "'");
                $oid = "";
            }
        }
    } else {
        $err = error("SnmpWalk - can not create SNMP session: '$e'");
    }
}

Nerikam, ze to nejde lip, ale funguje to.