SNMP :: INFO Een objectgeoriënteerde perl-interface naar netwerkapparaten en MIBS via SNMP
Download nu

SNMP :: INFO Rangschikking & Samenvatting

SNMP :: INFO Tags

netwerk Perl-module perl apparaten Perl-interface Netwerkapparaten

SNMP :: INFO Beschrijving

Een objectgeoriënteerde PERL-interface naar netwerkapparaten en MIBS via SNMP SNMP :: Info is een objectgeoriënteerde Perl-interface naar netwerkapparaten en MIBS via SNMP.SYNOPSIS Gebruik SNMP :: INFO; Mijn $ Info = NIEUWE SNMP :: INFO (# Auto Ontdek meer Specifieke Apparaat Klasse AutoSpecify => 1, Debug => 1, # De rest wordt doorgegeven aan SNMP :: Sessie Desthost => 'Router', Gemeenschap => 'Public' , Versie => 2) of sterven "kan geen verbinding maken met apparaat.n"; mijn $ err = $ info-> fout (); Die "SNMP-gemeenschap of -versie waarschijnlijk verkeerd verbinden met het apparaat. $ errn" indien gedefinieerd $ ERR; $ NAAM = $ INFO-> NAAM (); $ klas = $ info-> klasse (); Print "SNMP :: Info gebruikt deze apparaatklasse: $ Classn"; # Ontdek de duplexstatus voor de poorten My $ Interfaces = $ info-> interfaces (); mijn $ i_duplex = $ info-> i_duplex (); # Krijg CDP buurinformatie Mijn $ C_IF = $ Info-> C_IF (); mijn $ C_IP = $ info-> C_IP (); mijn $ C_PORT = $ INFO-> C_PORT (); # Print gegevens per poort Foreach mijn $ iID (sleutels% $ interfaces) {mijn $ duplex = $ i_duplex -> {$ iid}; # Afdrukken Fysieke poortnaam, niet SNMP IID My $ poort = $ interfaces -> {$ iid}; Print "$ poort:"; Print "$ duplex duplex" indien gedefinieerde $ duplex; # De CDP-tabel heeft tabelvermeldingen anders dan de interfacetabellen. # We gebruiken C_IF om de kaart van CDP-tabel naar de interfacetabel te krijgen. mijn% C_MAP = omgekeerde% $ C_IF; mijn $ C_KEY = $ C_MAP {$ iID}; Tenzij (gedefinieerde $ C_Key) {print "NN"; De volgende; } My $ Neoute_IP = $ C_IP -> {$ C_KEY}; mijn $ Neoute_port = $ C_port -> {$ c_key}; Print "verbonden met $ Neighbor_IP / $ NEEIGHT_PORTN" Indien gedefinieerd $ Buurt_IP; print "n"; } Vereisten: · Perl

SNMP :: INFO Gerelateerde software