Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Re^2: Using the SNMP module from the Net-SNMP library

by Anonymous Monk
on Feb 27, 2008 at 13:45 UTC ( [id://670631] : note . print w/replies, xml ) Need Help??


in reply to Re: Using the SNMP module from the Net-SNMP library
in thread Using the SNMP module from the Net-SNMP library

hello, I am try to use asynchronous mode with the callback function. I don't know why but I can't access the returned values within the callback function. Do you know why ? Here's the code:
my $res = $session->get("sysDescr.0",[\&call]); die $session->{ErrorStr} if ($session->{ErrorStr}); SNMP::MainLoop(); sub call { my $vlist = shift; print "ok\t0:'$vlist->[0][0]'\t1:'$val->[0][1]'\t2:'$val->[0][2]'\ +t3:'$val->[0][3]'\n"; print Dumper($vlist); SNMP::finish(); }
It prints this:
ok 0:'sysDescr' 1:'' 2:'' 3:'' $VAR1 = bless( [ bless( [ 'sysDescr', '0', 'Cisco Systems WS-C6513 Cisco Catalyst Operating System Software, Version 8.4(6) Copyright (c) 1995-2006 by Cisco Systems ', 'OCTETSTR' ], 'SNMP::Varbind' ) ], 'SNMP::VarList' );
why only "sysDescr" is printed ? Thank you, I'm really stuck and I can't find any examples aon that anywhere ! kenwaz