mibtree.pl
上传用户:wxp200602
上传日期:2007-10-30
资源大小:4028k
文件大小:1k
- use SNMP;
- $SNMP::save_descriptions = 1; # must be set prior to mib initialization
- SNMP::initMib(); # parses default list of Mib modules from default dirs
- # read dotted decimal oid or symbolic name to look up
- # partial name will be searched and all matches returned
- $val = shift || die "supply partial or complete object name or identifiern";
- if ($node = $SNMP::MIB{$val}) {
- print "$node:$node->{label} [$node->{objectID}]n";
- while (($k,$v) = each %$node) {
- print "t$k => $vn";
- }
- } else {
- while (($k,$v) = each %SNMP::MIB) {
- print "$v->{label} [$v->{obj}]n" #accepts unique partial key(objectID)
- if $k =~ /$val/ or $v->{label} =~ /$val/;
- }
- }