perl pool ping

 

#!/usr/bin/perl -w

use Thread::Pool::Simple;

use Net::Ping;

 

my $pool=Thread::Pool::Simple->new(

 min=>19,

 max=>20,

 load=>10,

 do=>[\&check],

 passid=>0,

 lifespan=>10000

);

my $i=1;

for($i=100;$i<200;$i++)

 {

   $pool->add($i);

 }

 

$pool->join();

sub check()

 {

  my $num=shift;

  my $host="192.168.3.".$num;

   my $p=Net::Ping->new();

  if($p->ping($host,2))

   {

      print "$host is ok!\n";

   }

  else{

     print "$host not ok!\n";

  }

  $p->close();

 }