tablewalk.pl
上传用户:wxp200602
上传日期:2007-10-30
资源大小:4028k
文件大小:1k
源码类别:

SNMP编程

开发平台:

Unix_Linux

  1. # snmpwalk of a single table
  2. # getnext of 3 columns from ipAddrEntry table
  3. # stop after last row in table
  4. use SNMP 1.8;
  5. my $host = shift || localhost;
  6. my $comm = shift || public;
  7. my $sess = new SNMP::Session ( DestHost => $host, Community => $comm );
  8. my $vars = new SNMP::VarList([ipAdEntAddr],[ipAdEntIfIndex],[ipAdEntNetMask]);
  9. for (@vals = $sess->getnext($vars);
  10.      $vars->[0]->tag =~ /ipAdEntAddr/       # still in table
  11.      and not $sess->{ErrorStr};          # and not end of mib or other error
  12.      @vals = $sess->getnext($vars)) {
  13.      print "   ($vals[1]) $vals[0]/$vals[2]n";
  14. }