日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關咨詢
選擇下列產品馬上在線溝通
服務時間：8:30-17:00
你可能遇到了下面的問題
關閉右側工具欄

新聞中心

這里有您想知道的互聯網營銷解決方案
Perl線程的生命周期

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

10年積累的成都網站設計、成都網站建設經驗，可以快速應對客戶對網站的新想法和需求。提供各種問題對應的解決方案。讓選擇我們的客戶得到更好、更有力的網絡服務。我雖然不認識你，你也不認識我。但先網站設計后付款的網站建設流程，更有玉龍免費網站建設讓你可以放心的選擇與我們合作。

Perl線程的生命周期

創(chuàng)建Perl線程

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

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

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

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

 
 
 
    
  
  
  
  1. usethreads;  
    2.   
  
  
  2.  
    3.   
  
  
  3. subsay_hello  
    4.   
  
  
  4. {  
    5.   
  
  
  5. printf("Hellothread!@_.\n");  
    6.   
  
  
  6. return(rand(10));  
    7.   
  
  
  7. }  
    8.   
  
  
  8.  
    9.   
  
  
  9. my$t1=threads->create(\&say_hello,"param1","param2");  
    10.   
  
  
  10. my$t2=threads->create("say_hello","param3","param4");  
    11.   
  
  
  11. my$t3=threads->create(  
    12.   
  
  
  12. sub{  
    13.   
  
  
  13. printf("Hellothread!@_\n");  
    14.   
  
  
  14. return(rand(10));  
    15.   
  
  
  15. },  
    16.   
  
  
  16. "param5",  
    17.   
  
  
  17. "param6");  
    18.   
  
  
  18.  
    19.

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

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

 
 
 
    
  
  
  
  1. #!/usr/bin/perl  
    2.   
  
  
  2. #  
    3.   
  
  
  3. usethreads;  
    4.   
  
  
  4.  
    5.   
  
  
  5. my$t4=async{  
    6.   
  
  
  6. printf("Hellothread!\n");  
    7.   
  
  
  7. };  
    8.   
  
  
  8.  
    9.

#p#

join方法和detach方法

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

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

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

 
 
 
    
  
  
  
  1. #!/usr/bin/perl  
    2.   
  
  
  2. #  
    3.   
  
  
  3. usethreads;  
    4.   
  
  
  4.  
    5.   
  
  
  5. subfunc{  
    6.   
  
  
  6. sleep(1);  
    7.   
  
  
  7. return(rand(10));  
    8.   
  
  
  8. }  
    9.   
  
  
  9.  
    10.   
  
  
  10. my$t1=threads->create(\&func);  
    11.   
  
  
  11. my$t2=threads->create(\&func);  
    12.   
  
  
  12.  
    13.   
  
  
  13. printf("dosomethinginthemainthread\n");  
    14.   
  
  
  14.  
    15.   
  
  
  15. my$t1_res=$t1->join();  
    16.   
  
  
  16. my$t2_res=$t2->join();  
    17.   
  
  
  17.  
    18.   
  
  
  18. printf("t1_res=$t1_res\nt2_res=$t2_res\n");  
    19.   
  
  
  19.  
    20.

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

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

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

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

Perl線程的消亡

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

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

清單7.為某個Perl線程設置’exit’=>’thread_only’屬性    

 
 
 
    
  
  
  
  1. #!/usr/bin/perl  
    2.   
  
  
  2. #  
    3.   
  
  
  3. usethreads;  
    4.   
  
  
  4.  
    5.   
  
  
  5. subsay_hello{  
    6.   
  
  
  6. printf("Hellothread!@_.\n");  
    7.   
  
  
  7. sleep(10);  
    8.   
  
  
  8. printf("Bye\n");  
    9.   
  
  
  9. }  
    10.   
  
  
  10.  
    11.   
  
  
  11. subquick_exit{  
    12.   
  
  
  12. printf("Iwillbeexitinnotime\n");  
    13.   
  
  
  13. exit(1);  
    14.   
  
  
  14. }  
    15.   
  
  
  15.  
    16.   
  
  
  16. my$t1=threads->create(\&say_hello,"param1","param2");  
    17.   
  
  
  17. my$t2=threads->create({'exit'=>'thread_only'},\&quick_exit);  
    18.   
  
  
  18.  
    19.   
  
  
  19. $t1->join();  
    20.   
  
  
  20. $t2->join();  
    21.   
  
  
  21.  
    22.

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


當前題目：Perl線程的生命周期
標題鏈接：http://m.5511xx.com/article/djhhgjg.html