perl 信号 线程数

?

试了一下通过信号来控制并发线程数，测试发现还是不太稳定啊。。各种segment error。。。

?

?

?

#!/usr/bin/perl -w

use threads;

use Thread::Semaphore;

use Net::Ping;

my $semaphore = Thread::Semaphore->new(10);

?

my $i=1;

?

for($i=1;$i<50;$i++)

?{

???? $semaphore->down();

???? my $thread=threads->create(&;check,$i);

???? $thread->detach();

?}

?

&waitthread();

?

sub check()

?{

??? my $num=shift;

??? my $host="10.14.12.".$num;

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

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

???? {

??????????? print "$host is okn";

???? }

??? else{

?????????? print "$host is not okn";

??? }

?? $p->close();

??? $semaphore->up();

? }

?

sub waitthread()

?{

??? my $tmp=0;

??? while($tmp < 10)

???? {

??????? $semaphore->down();

??????? $tmp++;

???? }

}