tablewalk.pl
上传用户:wxp200602
上传日期:2007-10-30
资源大小:4028k
文件大小:1k
- # 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";
- }