perl pool ping

发布时间：2020-12-15 20:58:17 所属栏目：大数据来源：网络整理

导读：? #!/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;$i200;$i++) ?{ ? ?$pool-add($i); ?} ? $pool-join

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!