use SNMP::MIB::Compiler;
my $mib = new SNMP::MIB::Compiler;
$mib->add_path('./mibs', '/usr/share/snmp/mibs');
$mib->add_extension('', '.mib', '.my', '.txt');
$mib->repository('./out');
# only accept SMIv2 MIBs
$mib->{'accept_smiv1'} = 0;
$mib->{'accept_smiv2'} = 1;
# no debug
$mib->{'debug_lexer'} = 0;
$mib->{'debug_recursive'} = 0;
# store compiled MIBs into files
$mib->{'make_dump'} = 1;
# read compiled MIBs
$mib->{'use_dump'} = 1;
# follow IMPORTS clause while compiling
$mib->{'do_imports'} = 1;
# load a precompiled MIB
$mib->load('SNMPv2-MIB');
print $mib->resolve_oid('sysDescr'), ".0\n";
UPDATE: show sysDescr.
-- gam3
A picture is worth a thousand words, but takes 200K.
|