Net::SNMP=HASH(0x246bdc)





##</code><code>##






ip.ipAddrTable.ipAddrEntry.ipAdEntIfIndex.192.1.1.1 : INTEGER: 1




ip.ipAddrTable.ipAddrEntry.ipAdEntIfIndex.192.1.1.2 : INTEGER: 42




ip.ipAddrTable.ipAddrEntry.ipAdEntIfIndex.192.1.1.3 : INTEGER: 0




ip.ipAddrTable.ipAddrEntry.ipAdEntIfIndex.192.1.1.4 : INTEGER: 47





##</code><code>##






#!/usr/local/bin/perl -w









use strict;




use Net::SNMP;




my @vars;




my $snmp;









$snmp = Net::SNMP->session(




                                -hostname               => '192.3.3.1',




                                -community              => 'public',




                                -port                           => '162',




);









@vars = $snmp->get_next_request(




                                -varbindlist => '.1.3.6.1.2.1.4.20.1.2',




);









$snmp->close;




print @vars;