Select Code to Download

use SNMP;       # This is Net-SNMP.
use Net::SNMP;  # This is NOT.  DO NOT USE WITH THIS TUTORIAL!

#!/usr/bin/perl
use warnings;
...
}

exit;

&SNMP::addMibFiles("/path/to/some/file.mib");
&SNMP::initMib();

# Where $destdir is /usr/share/snmp/mibs in most cases...
system 
  "mkdir -p $destdir/JScan/everything ;
   cd $destdir/JScan/everything ;
   find .. -type f -exec ln -sf {} \\;";

# Add the search directory.
&SNMP::addMibDirs("/usr/share/snmp/mibs/JScan/everything");
...

# Wonder-Twin powers, ACTIVATE!
&SNMP::initMib();

Cannot find module (THIS-AND-THAT): At line 1 in (none)

my $comm = 'ihavepower'; # Use read/write community.
my $dest = '10.1.1.1';  # IP or DNS will work.
...
if ( $sess->{ErrorNum} ) {
  print "Got $sess->{ErrorStr} setting $mib on $host.\n";
}

my $comm = 'ihavepower'; # Use read/write community.
my $dest = '10.1.1.1';  # IP or DNS will work.
...
if ( $sess2->{ErrorNum} ) {
  print "Got $sess2->{ErrorStr} setting $mib on $host.\n";
}

$MIB[0] = 'sysName';
$MIB[1] = 'sysDescr';
...
                        [$MIB[1], 0],
                        [$MIB[2], 0]);
@ANSWERS = $sess->get($vl);

@MIBS = ('sysName', 'sysDescr', 'sysLocation');
foreach $mib ( @MIBS ) {
...
# Now the magic!
$vl = new SNMP::VarList(@bunchovbs);
@ANSWERS = $sess->get($vl);

@MIBS = ('ifAdminStatus', 'ifOperStatus', 'ifSpeed');
$vl = new SNMP::VarList([$MIBS[0]], [$MIBS[1]], [$MIBS[2]]);
...
  else next;
  print "  Link status is $STATUS[1].  Speed is $STATUS[2].\n";
}

$sess->getbulk(<non-repeaters>, <max-repeaters>, <vars>)
  do an SNMP GETBULK, from the list of Varbinds, the single next lex-
...
  <non-repeaters>. For remaining Varbinds, the m lexico instances are
  retrieved each of the remaining Varbinds, where m is
  <max-repeaters>.

use SNMP;
use Socket;
...
for ( my $x = 0 ; $x <= $#INDEXES ; $x++ ) {
  print "  INDEX: $INDEXES[$x]  STATUS:  $STATUS[$x]\n";
}