概述
Perl(Practical Extraction and Report Language)叫做文字分析報告語言。它是一個高級程式語言，是由Larry Wall於1986年開發的，而且是免費的。隨著版本的改進，Perl的功能越來越強，現在的功能已經超乎原先設計時的想像，幾乎任何事都可以做到，這使Perl變成了每一部工作站必備的標準工具了。Perl融合了C、C++、Shell Script、Sed、Awk等許多語言的特性，由多種語言和工具演化而來。Perl對進程、檔案和文字有很強的處理、變換能力，但凡有關快速原型設計、系統工具、軟體工具、系統管理、資料庫連結、圖像程式設計、網路連線和wWw程式設計等之類的任務，都特別適合用Perl來做。這些特長不但使Perl成為系統維護管理者和CGI程式設計師的寵兒，就連數學家、遺傳學家、新聞工作者，甚至企業管理者也都使用Perl。
Perl自由開放的發行方式要歸功於Internet的傳統文化及其作者Larry Wall。現在Perl的核心、標準程式庫、選擇性安裝的模組和使用說明都出自於義務者之手。值得一提的是，核心發展小組(稱為Perl Porters)的成員是一群有著高度熱情和奉獻精神的人士。他們全心投入開發出比您用錢能買得到還要更好的免費軟體。如果您願意，可以購買商業性的Perl版本。但對大多數使用者來說，免費的版本通常已能滿足要求。所以您不需要花1分錢就可以獲得免費的Perl，只需要花一點時間學習就可以了。
Perl的版本
Perl比較流行的版本有4．0和5．0。1988年1月Perl的第一個正式版本發行，即Perl 1，1988年6月Perl 2發行，1989年10月Perl 3發行，1991年3月Perl 4發行，到了1994年10月，一個全新的版本發行，這就是Perl 5。目前選用Perl當然該選用第五版了。它最後一次的修正(4．036)是在1992年。Perl最新的發行版本是5．6。在Perl 5．0以上版本中還增加了面向對象的用法、增強了對字元串的處理能力，可以把整個檔案當成一個字元串來處理，不受任何數據的大小限制，而只受存儲器的大小的限制。既能處理DBM資料庫格式的數據，也能處理二進制的數據等等，更重要的是Perl還可以在Unix、WindowsNT、Windows95、Dos、Linux、FreeBSD、OS2、Macitosh等作業系統中使用。目前還可以用Perl來和一些資料庫軟體溝通，Perl是最有效地開發Web程式的工具之一。無數的www網站上功能強大的CGI應用程式中幾乎都是用Perl語言來編寫的。
Perl是一種解釋性語言，與C或C++不同，Perl需要一個專門的解釋器。用Perl寫的程式，由於它被解釋器讀取並運行，所以人們常稱之為Perl Scripts(Perl腳本檔案)。Perl與C等高級語言相比，其最大的優勢在於程式設計師能夠非常輕鬆地處理和控制文本。同時Perl自由輕鬆的語法體系使程式更加靈活方便。
Perl語言基礎
Perl語言中的變數Perl語言的變數有3種：純變數(scalar variable)、數組(array)和關聯數組(associative array)。
純變數
純變數又稱標量變數，是Perl語言處理的最簡單的數據類型。標量可以是數字(如2、3、2．5e6)，也可以是字元串(如“hello”、“生物信息”)。
Perl語言中的標量變數以$和一個字母開始，以後可以是字母、數字和下劃線，大小寫有區別，而且所有字母、數字和下劃線都有效。如：$a和$A是不同的變數。
Perl語言中的變數可以通過操作符(如+或．等)來產生新的變數。可以從檔案和設備中讀取變數，也可以將其輸出。使用純量變數時要在前面加上$符號。
標量數據可分為數字和字元串兩種，數字又可分為整型變數和浮點變數。
整型變數，如2、-200、3 568等。
Perl語言支持8進制和16進制變數，8進制以0開頭(如0255，表示8進制的255)，16進制以0x或OX開頭(如一oxlA，代表負的1A)。浮點變數，如2．5、一6．3e5、一2．3e一6等。
最短的字元串可以沒字元，稱為空字元，最長可以把記憶體填滿，這與Perl語言的“無內置限制”的原則一致。
字元串有兩種格式：單引字元串和雙引字元串。
單引字元串(single-quoted string)就是用單引號括起來的一串字元。
雙引字元串(double-quoted string)就是用雙引號括起來的一串字元。
數組
數組是標量數據的有序列表。數組可以含任意多個元素，最小的數組可以不含元素，而最大的數組可以占滿全部可用記憶體。數組實量(array literal)是位於括弧內用逗號分開的一系列值。如：(1，2，3，4，5)表示有5個數值的數組。
數組變數具有單獨的數組值，要以@打頭。如：@zmd。
數組的賦值和標量賦值一樣，也用等號表示。Perl語言根據賦值對象是標量還是數組變數來確定賦值操作是標量賦值還是數組賦值。
若數組實量中只含有變數引用(不是表達式)，則此數組實量也可作為變數使用。它可以用在賦值運算符的左邊。例如：($a，$b，$c)=(1，2，3)表示將1賦給$a，2賦給$b，3賦給$C。
關聯數組
關聯數組和前面說的數組類似，它包含標量數據，可用索引值來單獨選擇這些數據；和數組不同的是，關聯數組的索引值不是非負的整數而是任意的標量。這些標量稱為關鍵字(key)，可以在以後用於檢索數組中的數值(value)。關聯數組的元素沒有特定的順序，可以把它們想像為一組卡片。每張卡片上半部分是索引而下半部分是數值。
關聯數組是Perl語言中特有的，關聯數組是一個功能強大的數組。使用關聯數組時要在前面加上%號，關聯數組的格式如：%ARRAY=(keyl，value1，key2，Value2，key3，value3)，其中每一個關鍵字都有一個相對應的值。
Perl語言的控制結構
條件判斷
if(<條件表達式1>){
<語句塊_1>
}
elseif(<條件表達式2>){
<語句塊_2>
}
else {
<語句塊_3>
}
循環
(1)while循環
while(<條件表達式>){
<語句塊>
}
(2)until循環
until(<條件表達式>){
<語句塊>
}
(3)for循環
for($count=1；$count<=5；$count++){
#statements inside the loop go here
}
(4)針對列表(數組)每個元素的循環foreach，語法為：
foreach localvar(1istexpr){
statement_block；
}
(5)do循環
do{
statement_block
}while_or_until(condexpr)；
do循環至少執行一次循環。
(6)循環控制退出循環為last，執行下一個循環為next；Perl語言特有的一個命令是redo，其含義是重複此次循環，即循環變數不變，回到循環起始點，但要注意，redo命令在do循環中不起作用。
單行條件
語法為statement keyword eondexpr。其中keyword可為if、unless、while或until，如：
print(“This is zero．\n”)if($var==0)；
print(“This is zero．\n”)unless($vat!=0)；
print(“Not zero yet．\n”)while($var一一>0)；
print(“Not zero yet．\n”)until($var一一==0)；
雖然條件判斷寫在後面，但卻是先執行的。
