async1.pl

来自「Snmp（简单网管协议）软件包。」· PL 代码 · 共 18 行

use SNMP;

$SNMP::auto_init_mib = 0; 

$sess = new SNMP::Session(); 

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

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

SNMP::MainLoop();