论坛 › Perl › perl pool ping-Biotech

xyzjr 发表于 2018-8-31 09:09:34

perl pool ping-Biotech

　　#!/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;$iadd($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(); }

查看完整版本: perl pool ping-Biotech