Perl線程入門指南
本文首先概述了Perl線程的概念和意義，接著回顧了Perl語言中對Perl線程支持的演化歷史，然后通過一系列示例重點介紹了Perl中Perl線程的實現，數據的共享以及Perl線程間的同步，最后歸納并總結了全文主要內容。
Perl線程概述
Perl線程是一個單一的執行流程，它是所有程序執行過程中最小的控制單位，即能被CPU所調度的最小任務單元。Perl線程與進程之間既有聯系，又完全不同。簡單地說，一個Perl線程必然屬于某一個進程，而一個進程包含至少一個或者多個Perl線程。早期的計算機系統一次只能運行一個程序，因此，當有多個程序需要執行的時候，唯一的辦法就是讓它們排成隊，按順序串行執行。進程的出現打破了這種格局，CPU資源按時間片被分割開來，分配給不同的進程使用。這樣一來，從微觀上看進程的執行雖然仍是串行的，但是從宏觀上看，不同的程序已經是在并行執行了。如果我們把同樣的思想運用到進程上，很自然地就會把進程再細分成更小的執行單位，即Perl線程。由于一個進程又往往需要同時執行多個類似的任務，因此這些被細分的Perl線程之間可以共享相同的代碼段，數據段和文件句柄等資源。有了進程，我們可以在一臺單CPU計算機系統上同時運行Firefox和MicrosoftOfficeWord等多個程序；有了Perl線程，我們可以使Firefox在不同的標簽里同時加載多個不同的頁面，在OfficeWord里編輯文檔的同時進行語法錯誤檢查。因此，Perl線程給我們帶來了更高的CPU利用率、更快速的程序響應、更經濟地資源使用方式和對多CPU的體系結構更良好的適應性。
Perl線程的歷史
5005threadsPerl線程模型
Perl對Perl線程的支持最早可以追溯到1998年7月發布的Perlv5.005。其發布申明指出，Perlv5.005中加入了對操作系統級Perl線程的支持，這個新特性是一個實驗性的產品，這也就是我們現在所稱的5005threadsPerl線程模型。對于5005threadsPerl線程模型來說，默認情況下，所有數據結構都是共享的，所以用戶必須負責這些共享數據結構的同步訪問。如今5005threads已經不再被推薦實用，Perlv5.10以后的版本里，也將不會再支持5005threadsPerl線程模型。
ithreadsPerl線程模型
2000年5月發布的Perlv5.6.0中開始引入了一個全新的Perl線程模型，即interpreterthreads，或稱為ithreads，也正是在這個版本的發布申明中第一次提出了5005threadsPerl線程模型將來可能會被禁用的問題。盡管如此，ithreads在那個時候還是一個新的實驗性的Perl線程模型，用戶并不能直接使用它，唯一的辦法是通過fork函數模擬。經過兩年時間的發展，到2002年7月，Perlv5.8.0正式發布，這時ithreads已經是一個相對成熟的Perl線程模型，發布申明中也鼓勵用戶從老的5005threadsPerl線程模型轉換到新的ithreadsPerl線程模型，并明確指出5005threadsPerl線程模型最終將被淘汰。本文后面所討論的所有內容也都是基于新的ithreadsPerl線程模型。在ithreadsPerl線程模型中，最與眾不同的特點就在于默認情況一下一切數據結構都不是共享的，這一點我們會在后面內容中有更深刻的體會。
現有環境支持哪種Perl線程模型
既然Perl中有可能存在兩種不同的Perl線程模型，我們很自然地就需要判斷現有Perl環境到底支持的是哪一種Perl線程實現方式。歸納起來，我們有兩種方法：
在shell里，我們可以通過執行perl–V|grepusethreads命令來獲取當前Perl線程模型的相關信息，例如
清單1.shell中查詢Perl當前Perl線程模型
- >perl-V|grepuse.*threads
- config_args='-des-Doptimize=-O2-g-pipe-m32-march=i386-mtune=pentium4-Dversion=5.8.5
- -Dmyhostname=localhost-Dperladmin=root@localhost-Dcc=gcc-Dcf_by=RedHat,Inc.
- -Dinstallprefix=/usr-Dprefix=/usr-Darchname=i386-linux-Dvendorprefix=/usr
- -Dsiteprefix=/usr-Duseshrplib-Dusethreads-Duseithreads-Duselargefiles-Dd_dosuid
- -Dd_semctl_semun-Di_db-Ui_ndbm-Di_gdbm-Di_shadow-Di_syslog-Dman3ext=3pm-Duseperlio
- -Dinstallusrbinperl-Ubincompat5005-Uversiononly-Dpager=/usr/bin/less-isr
- -Dinc_version_list=5.8.45.8.35.8.25.8.15.8.0'
- usethreads=defineuse5005threads=undefuseithreads=defineusemultiplicity=define
從結果中不難看出，在當前的Perl環境中提供了對ithreadsPerl線程模型的支持。
在Perl程序中，我們也可以通過使用Config模塊來動態獲取Perl線程模型的相關信息，例如
清單2.Perl程序中動態獲取當前Perl線程模型
- #!/usr/bin/perl
- #
- useConfig;
- if($Config{useithreads}){
- printf("Helloithreads\n")
- }
- elsif($Config{use5005threads}){
- printf("Hello5005threads\n");
- }
- else{
- printf("Cannotsupportthreadinyourperlenvironment\n");
- exit(1);
- }
值得一提的是，對于5005threads和ithreadsPerl線程模型，Perl同時只能支持其中的一種。你不可能在某一個Perl環境中同時使用這兩種Perl線程模型。本文后面討論的所有內容都是基于ithreadsPerl線程模型的。
【編輯推薦】
