Perl线程研究 thread

概述我就直接贴代码了。没做什么注释，因为还在修改，目前还有点不太理解，跑去看了下云舒的代码，感觉那个应该有点启发。 回头好好修改下。这些多线程模块还有点不太熟悉，主要跟进程弄乱了。 得好好琢磨下，如果可以改成别的就更爽了。不过他们都说perl多线程不靠谱。。汗。。 #!/usr/bin/perluse Net::Ping;use threads;use threads::shared;

我就直接贴代码了。没做什么注释，因为还在修改，目前还有点不太理解，跑去看了下云舒的代码，感觉那个应该有点启发。

回头好好修改下。这些多线程模块还有点不太熟悉，主要跟进程弄乱了。

得好好琢磨下，如果可以改成别的就更爽了。不过他们都说perl多线程不靠谱。。汗。。

#!/usr/bin/perluse Net::Ping;use threads;use threads::shared;system('clear');print "please set the IP(C):";chomp($ip=<STDIN>);print "StartIP:";chomp($ip_start=<STDIN>);print "EndIP:";chomp($ip_end=<STDIN>);$p=Net::Ping->new();my @ip_group;my $min_thread:shared=0;my $max_thread=100;sub ip_count{  while($ip_start != $ip_end){    push @ip_group,("$ip."."$ip_start");    $ip_start++;  }  return @ip_group;}while( 1 ){   &ip_count;   if( $min_thread <= $max_thread )   {    my $thread=threads->new(\&slep_Ping,shift(@ip_group));        $min_thread++;   }   else   {    while( $min_thread > $max_thread ){           sleep(0.5);        }   }   foreach $thread ( threads->List( threads::all ) )   {     if( $thread->is_joinable() )        {            $thread->join;        }   }}foreach $thread ( threads->List(threads::all) ){    $thread->join();}sub slep_Ping{  local($host_ip)=shift;  if($p->Ping($host_ip))  {     print "$host_ip is access\n";  }  $min_thread--;  $p->close();}

总结

以上是内存溢出为你收集整理的Perl线程研究 thread全部内容，希望文章能够帮你解决Perl线程研究 thread所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。