Anyevent::SNMP实例

  之前不知道为什么不成功.

 重新找了新环境.安装Net::SNMP和AnyevenSNMP

AnyEvent-SNMP-6.0
Net-SNMP-5.2.0
Net-SNMP-v6.0.1

Net-SNMP5.2的版本获取有问题,不过不影响使用.

use strict;

 use AnyEvent::SNMP;
 use Net::SNMP;
 use Data::Dumper;


 # just use Net::SNMP and AnyEvent as you like:

 # use a condvar to transfer results, this is
 # just an example, you can use a naked callback as well.
 my $cv = AnyEvent->condvar;
$oid=".1.3.6.1.2.1.1.1.0";
 # ... start non-blocking snmp request(s)...
 Net::SNMP->session (-hostname => "192.168.6.25",
                     -community => "public",
                     -nonblocking => 1)
                     
         ->get_request (
             -varbindlist => [ $oid ],
             -callback => sub { $cv->send (@_) }
          );

 # ... do something else until the result is required
 my @result = $cv->wait;
 
  my ($session) = @result;
 my $result = $session->var_bind_list();

      if (!defined $result) {
         printf "ERROR: Get request failed for host '%s': %s.\n",
                $session->hostname(), $session->error();
                
      }

      printf "The sysDescr for host '%s' is %s.\n",
              $session->hostname(), $result->{$oid};

#-bash-3.2$ perl aesnmp.pl
#The sysUpTime for host '192.168.6.25' is SunOS T51401OQ 5.10 Generic_138888-07 sun4v.
#-bash-3.2$