anyevent::snmp(2) 扫描地址段

最新推荐文章于 2024-06-10 13:08:37 发布

laputa73

最新推荐文章于 2024-06-10 13:08:37 发布

阅读量850

点赞数

分类专栏： perl 脚本学习文章标签： anyevent snmp Perl

本文链接：https://blog.youkuaiyun.com/laputa73/article/details/9765243

版权

perl 同时被 2 个专栏收录

29 篇文章

订阅专栏

脚本学习

14 篇文章

订阅专栏

前面实现了单个ip的anyevent,现在可以实现地址段的扫描.这个和ping很类似.

#/usr/bin/env perl
#测试anyevent::snmp 并发

use AnyEvent;
use AnyEvent::SNMP;
use Net::SNMP;



my $cocurrent = 100;    # 并发数
#my @todoList = map { "192.168.6." . $_ } (1 .. 254); #
my @todoList = ("192.168.6.87","192.168.6.25","192.168.6.45"); #

my $oid=".1.3.6.1.2.1.1.1.0";  #sysDescr


my $cv = AnyEvent->condvar;


doit() foreach 1..$cocurrent;

sub doit{
    my $ip = shift @todoList;
    return if not defined $ip;

    $cv->begin;
   # my $oid=".1.3.6.1.2.1.1.7.0";
   # my @oids=($oid);
   print "$ip.\n";
    my $sess=Net::SNMP->session (-hostname => $ip,
                     -community => "public",
                     -timeout => 1,
                     -nonblocking => 1,
                     -translate   => [-timeticks => 0x0]
                     )
          ->get_request (
           -varbindlist => [ $oid ],
           #-varbindlist      => \@oids, 
           -callback => sub { done(@_,$ip) }
          );

}

sub done {  
    my ($session,$ip) = @_;
    my $result = $session->var_bind_list();

      if (!defined $result) {
         printf "ERROR: Get request failed for host '%s': %s.\n",
                $session->hostname(), $session->error();
                
      }
      else{
          printf "The sysDescr for host '%s' is %s.\n",
          $session->hostname(), $result->{$oid};
      }    
      $cv->end();      
      &doit();              
}


$cv->recv();