perl/SNMP/examples/async2.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

use SNMP;

$SNMP::auto_init_mib = 0; 

$sess = new SNMP::Session(); 

sub poller_handler {  
   if (++$i>500) { die "completed 500 polls\n"; };
   # VarList is undefined if TIMEOUT occured
   if (!defined($_[1])) { 
       warn "request timed out[$_[0]->{ErrorStr}]\n";
       return;
   }
#   print "$i) ",$_[1][0]->tag, " = ", $_[1][0]->val, "\n";
} 

# $sess->get([[".1.3.6.1.2.1.1.3.0"]], [\&poller_handler, $sess]); 

SNMP::MainLoop(.1,sub {for (1..50) {$sess->get([['.1.3.6.1.2.1.1.3.0']], [\&poller_handler, $sess]);} });