| # snmpwalk of entire MIB | |
| # stop on error at end of MIB | |
| use SNMP 1.8; | |
| $SNMP::use_sprint_value = 1; | |
| my $host = shift || localhost; | |
| my $comm = shift || public; | |
| $sess = new SNMP::Session(DestHost => $host, Community => $comm); | |
| $var = new SNMP::Varbind([]); | |
| do { | |
| $val = $sess->getnext($var); | |
| print SNMP::Varbind::tag($var).".".SNMP::Varbind::iid($var)." = ". | |
| SNMP::Varbind::val($var)."\n"; | |
| } until ($sess->{ErrorStr}); |