追踪调查看Perl线程如何消亡

本文和大家重点讨论一下Perl线程的消亡的概念，如果想让Perl线程正常退出，这就意味着Perl线程所对应的函数体在执行完毕后返回并释放资源。

创新互联是专业的桃城网站建设公司，桃城接单;提供成都网站制作、网站设计、外贸网站建设,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行桃城网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!

Perl线程的消亡

大多数情况下，你希望你创建的Perl线程正常退出，这就意味着Perl线程所对应的函数体在执行完毕后返回并释放资源。例如在清单5的示例中，新建Perl线程被join以后的退出过程。可是，如果由于detach不当或者由于主线因某些意外的异常提前结束了，尽管它所创建的Perl线程可能尚未执行完毕，但是他们还是会被强制中止，正所谓皮之不存，毛将焉附。这时你也许会得到一个类似于“Perlexitedwithactivethreads”的警告。

当然，你也可以显示地调用exit()方法来结束一个Perl线程，不过值得注意的是，默认情况下，如果你在一个Perl线程中调用了exit()方法，其他Perl线程都会随之一起结束，在很多情况下，这也许不是你想要的，如果你希望exit()方法只在调用它的Perl线程内生效，那么你在创建该Perl线程的时候就需要设置’exit’=>’thread_only’。例如

清单7.为某个Perl线程设置’exit’=>’thread_only’属性

 
 
 

  
  
  
#!/usr/bin/perl 
  
  
  
# 
  
  
  
usethreads; 
  
  
  

  
  
  
subsay_hello{ 
  
  
  
printf("Hellothread!@_.\n"); 
  
  
  
sleep(10); 
  
  
  
printf("Bye\n"); 
  
  
  
} 
  
  
  

  
  
  
subquick_exit{ 
  
  
  
printf("Iwillbeexitinnotime\n"); 
  
  
  
exit(1); 
  
  
  
} 
  
  
  

  
  
  
my$t1=threads->create(\&say_hello,"param1","param2"); 
  
  
  
my$t2=threads->create({'exit'=>'thread_only'},\&quick_exit); 
  
  
  

  
  
  
$t1->join(); 
  
  
  
$t2->join(); 
  
  
  

 
 
 

 如果你希望每个Perl线程的exit方法都只对自己有效，那么在每次创建一个新Perl线程的时候都去要显式设置’exit’=>’thread_only’属性显然有些麻烦，你也可以在引入threads包的时候设置这个属性在全局范围内有效，例如

清单8.设置’exit’=>’thread_only’为全局属性

 
 
 

  
  
  
usethreads('exit'=>'threads_only'); 
  
  
  

  
  
  
subfunc{ 
  
  
  
... 
  
  
  
if($condition){ 
  
  
  
exit(1); 
  
  
  
} 
  
  
  
} 
  
  
  

  
  
  
my$t1=threads->create(\&func); 
  
  
  
my$t2=threads->create(\&func); 
  
  
  

  
  
  
$t1->join(); 
  
  
  
$t2->join(); 
 
 
 

名称栏目：追踪调查看Perl线程如何消亡
URL分享：http://www.shufengxianlan.com/qtweb/news31/544031.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联