bonjour,

Je voudrais effectuer mes requetes snmp en mode asynchrone.

Seulement je ne parviens pas à extraire les données vouluues à partir de la foncttion callback.

Voici le code:

use SNMP;
use Data::Dumper;

$session = new SNMP::Session(DestHost => "$ip", Community => "$com", UseSprintValue => 1, Version => 1);

my $res = $session->get("sysDescr.0",[\&call]);
die $session->{ErrorStr} if ($session->{ErrorStr});
SNMP::MainLoop();

Et la fonction callback:

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();


Le resultat affiché a lecran est :

(…)