本文和大家重點(diǎn)討論一下Perl線程的消亡的概念，如果想讓Perl線程正常退出，這就意味著Perl線程所對(duì)應(yīng)的函數(shù)體在執(zhí)行完畢后返回并釋放資源。

Perl線程的消亡

大多數(shù)情況下，你希望你創(chuàng)建的Perl線程正常退出，這就意味著Perl線程所對(duì)應(yīng)的函數(shù)體在執(zhí)行完畢后返回并釋放資源。例如在清單5的示例中，新建Perl線程被join以后的退出過(guò)程?？墒?，如果由于detach不當(dāng)或者由于主線因某些意外的異常提前結(jié)束了，盡管它所創(chuàng)建的Perl線程可能尚未執(zhí)行完畢，但是他們還是會(huì)被強(qiáng)制中止，正所謂皮之不存，毛將焉附。這時(shí)你也許會(huì)得到一個(gè)類似于“Perlexitedwithactivethreads”的警告。

當(dāng)然，你也可以顯示地調(diào)用exit()方法來(lái)結(jié)束一個(gè)Perl線程，不過(guò)值得注意的是，默認(rèn)情況下，如果你在一個(gè)Perl線程中調(diào)用了exit()方法，其他Perl線程都會(huì)隨之一起結(jié)束，在很多情況下，這也許不是你想要的，如果你希望exit()方法只在調(diào)用它的Perl線程內(nèi)生效，那么你在創(chuàng)建該P(yáng)erl線程的時(shí)候就需要設(shè)置’exit’=>’thread_only’。例如

清單7.為某個(gè)Perl線程設(shè)置’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();  
 

 如果你希望每個(gè)Perl線程的exit方法都只對(duì)自己有效，那么在每次創(chuàng)建一個(gè)新Perl線程的時(shí)候都去要顯式設(shè)置’exit’=>’thread_only’屬性顯然有些麻煩，你也可以在引入threads包的時(shí)候設(shè)置這個(gè)屬性在全局范圍內(nèi)有效，例如

清單8.設(shè)置’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();  

【編輯推薦】

1. 技術(shù)分享 如何創(chuàng)建Perl線程
2. Perl文件句柄概念詳解
3. 揭秘Perl線程歷史
4. Perl線程的生命周期
5. 學(xué)習(xí)筆記 Perl數(shù)字與字符串間的自動(dòng)轉(zhuǎn)換