Net::SNMP

© Michael Kalinka, 2002

Ein Host - Mehrere OIDs
Beispiel für den Get-Request auf mehrere OIDs

      1 #!/usr/bin/perl
      2 use Net::SNMP;
      3
      4 ($session,$error) = Net::SNMP->session(
      5      -hostname   =>  '192.168.0.100',
      6      -community  =>  'public',
      7 );
      8
      9 my $sysDescr = '.1.3.6.1.2.1.1.1.0';
     10 my $sysUpTime = '.1.3.6.1.2.1.1.3.0';
     11
     12 my @oids = ($sysDescr,$sysUpTime);
     13
     14 $response = $session->get_request(@oids);
     15 $session->close ();
     16
     17 foreach (keys %$response) {
     18     print "OID   = $_\n";
     19     print "Value = ",$response->{$_},"\n";
     20 }

Der Get-Request ( Zeile 14 ) erfolgt jetzt mit einem Array.
Der anonyme Hash ( mit der Referenz $response ) wird mit mehreren Werten belegt.
Der Zugriff auf die Werte erfolgt wieder mit $response->{$OID}.

Fehler abfangen