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

SNMP编程

开发平台:

Unix_Linux

  1. use SNMP;
  2. $SNMP::save_descriptions = 1; # must be set prior to mib initialization
  3. SNMP::initMib(); # parses default list of Mib modules from default dirs
  4. # read dotted decimal oid or symbolic name to look up
  5. # partial name will be searched and all matches returned
  6. $val = shift || die "supply partial or complete object name or identifiern";
  7. if ($node = $SNMP::MIB{$val}) {
  8.     print "$node:$node->{label} [$node->{objectID}]n";
  9.     while (($k,$v) = each %$node) {
  10. print "t$k => $vn";
  11.     }
  12. } else {
  13.     while (($k,$v) = each %SNMP::MIB) {
  14. print "$v->{label} [$v->{obj}]n" #accepts unique partial key(objectID)
  15.     if $k =~ /$val/ or $v->{label} =~ /$val/;
  16.     }
  17. }