本文和大家重點討論一下Perl線程的生命周期，主要包括創(chuàng)建Perl線程，join方法和detach方法兩大部分內(nèi)容，希望通過本文的介紹你對Perl線程的生命周期有一定的認識。

Perl線程的生命周期

創(chuàng)建Perl線程

Perl線程作為Perl中的一種實體，其一生可以粗略的分為創(chuàng)建，運行與退出這三個階段。創(chuàng)建使得Perl線程從無到有，運行則是Perl線程完成其主要工作的階段，退出自然就是指Perl線程的消亡。Perl線程的運行和普通函數(shù)的執(zhí)行非常類似，有其入口參數(shù)，一段特定的代碼流程以及執(zhí)行完畢后返回的一個或一組結(jié)果，唯一與普通函數(shù)調(diào)用的不同之處就在于新建Perl線程的執(zhí)行與當前Perl線程的執(zhí)行是并行的。

Perl里創(chuàng)建一個新的Perl線程非常簡單，主要有兩種方法，他們分別是：

使用threads包的create()方法，例如

清單3.通過create()方法創(chuàng)建Perl線程    
 

usethreads;  
 
subsay_hello  
{  
printf("Hellothread!@_.\n");  
return(rand(10));  
}  
 
my$t1=threads->create(\&say_hello,"param1","param2");  
my$t2=threads->create("say_hello","param3","param4");  
my$t3=threads->create(  
sub{  
printf("Hellothread!@_\n");  
return(rand(10));  
},  
"param5",  
"param6");  
 

 使用async{}塊創(chuàng)建Perl線程，例如

清單4.通過async{}塊創(chuàng)建Perl線程    
 

#!/usr/bin/perl  
#  
usethreads;  
 
my$t4=async{  
printf("Hellothread!\n");  
};  
 

#p# 

join方法和detach方法

Perl線程一旦被成功創(chuàng)建，它就立刻開始運行了，這個時候你面臨兩種選擇，分別是join或者detach這個新建Perl線程。當然你也可以什么都不做，不過這可不是一個好習慣，后面我們會解釋這是為什么。

我們先來看看join方法，這也許是大多數(shù)情況下你想要的。從字面上來理解，join就是把新創(chuàng)建的Perl線程結(jié)合到當前的主Perl線程中來，把它當成是主Perl線程的一部分，使他們合二為一。join會觸發(fā)兩個動作，首先，主Perl線程會索取新建Perl線程執(zhí)行結(jié)束以后的返回值；其次，新建Perl線程在執(zhí)行完畢并返回結(jié)果以后會自動釋放它自己所占用的系統(tǒng)資源。例如

清單5.使用join()方法收割新建Perl線程    
 

#!/usr/bin/perl  
#  
usethreads;  
 
subfunc{  
sleep(1);  
return(rand(10));  
}  
 
my$t1=threads->create(\&func);  
my$t2=threads->create(\&func);  
 
printf("dosomethinginthemainthread\n");  
 
my$t1_res=$t1->join();  
my$t2_res=$t2->join();  
 
printf("t1_res=$t1_res\nt2_res=$t2_res\n");  
 

  由此我們不難發(fā)現(xiàn)，調(diào)用join的時機是一個十分有趣的問題。如果調(diào)用join方法太早，新建Perl線程尚未執(zhí)行完畢，自然就無法返回任何結(jié)果，那么這個時候，主Perl線程就不得不被阻塞，直到新建Perl線程執(zhí)行完畢之后，才能獲得返回值，然后資源會被釋放，join才能結(jié)束，這在很大程度上破話了Perl線程之間的并行性。相反，如果調(diào)用join方法太晚，新建Perl線程早已執(zhí)行完畢，由于一直沒有機會返回結(jié)果，它所占用的資源就一直無法得到釋放，直到被join為止，這在很大程度上浪費了寶貴的系統(tǒng)資源。因此，join新建Perl線程的最好時機應(yīng)該是在它剛剛執(zhí)行完畢的時候，這樣既不會阻塞當前Perl線程的執(zhí)行，又可以及時釋放新建Perl線程所占用的系統(tǒng)資源。

我們再來看看detach方法，這也許是最省心省力的處理方法了。從字面上來理解，detach就是把新創(chuàng)建的Perl線程與當前的主Perl線程剝離開來，讓它從此和主Perl線程無關(guān)。當你使用detach方法的時候，表明主Perl線程并不關(guān)心新建Perl線程執(zhí)行以后返回的結(jié)果，新建Perl線程執(zhí)行完畢后Perl會自動釋放它所占用的資源。

一個新建Perl線程一旦被detach以后，就無法再join了。當你使用detach方法剝離Perl線程的時候，有一點需要特別注意，那就是你需要保證被創(chuàng)建的Perl線程先于主Perl線程結(jié)束，否則你創(chuàng)建的Perl線程會被迫結(jié)束，除非這種結(jié)果正是你想要的，否則這也許會造成異常情況的出現(xiàn)，并增加程序調(diào)試的難度。

本節(jié)的開始我們提到，新Perl線程被創(chuàng)建以后，如果既不join，也不detach不是一個好習慣，這是因為除非明確地調(diào)用detach方法剝離Perl線程，Perl會認為你也許要在將來的某一個時間點調(diào)用join，所以新建Perl線程的返回值會一直被保存在內(nèi)存中以備不時之需，它所占用的系統(tǒng)資源也一直不會得到釋放。然而實際上，你打算什么也不做，因此寶貴的系統(tǒng)資源直到整個Perl應(yīng)用結(jié)束時才被釋放。同時，由于你即沒有調(diào)用join有沒有調(diào)用detach，應(yīng)用結(jié)束時Perl還會返回給你一個Perl線程非正常結(jié)束的警告。

Perl線程的消亡

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

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

清單7.為某個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();  
 

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

【編輯推薦】

1. 追溯Perl線程的歷史
2. 解析Perl正則表達式中的模式
3. Perl二維數(shù)組用法全程剖析
4. 淺析Perl面向?qū)ο缶幊逃梅?/a>
5. Perl正則表達式語法解析