/usr/share/doc/libsnmp-perl/examples/tablewalk.pl is in libsnmp-perl 5.7.2~dfsg-8.1ubuntu3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | # snmpwalk of a single table
# getnext of 3 columns from ipAddrEntry table
# stop after last row in table
use SNMP 1.8;
my $host = shift || localhost;
my $comm = shift || public;
my $sess = new SNMP::Session ( DestHost => $host, Community => $comm );
my $vars = new SNMP::VarList([ipAdEntAddr],[ipAdEntIfIndex],[ipAdEntNetMask]);
for (@vals = $sess->getnext($vars);
$vars->[0]->tag =~ /ipAdEntAddr/ # still in table
and not $sess->{ErrorStr}; # and not end of mib or other error
@vals = $sess->getnext($vars)) {
print " ($vals[1]) $vals[0]/$vals[2]\n";
}
|