本文和大家重點(diǎn)討論一下Perl語(yǔ)言的相關(guān)內(nèi)容，用Perl語(yǔ)言寫(xiě)的程序叫腳本（Perlscripts），而perl程序（perlprogram）通常是指名字叫做perl的程序，它是用來(lái)執(zhí)行腳本的。

Perl語(yǔ)言簡(jiǎn)介

什么是Perl?

Perl是一個(gè)能用來(lái)完成大量不同任務(wù)的編程語(yǔ)言。可以用來(lái)解開(kāi)一個(gè)文件并打印一份報(bào)告，或者將一個(gè)文本文件轉(zhuǎn)換成另一種格式。Perl為相當(dāng)復(fù)雜的問(wèn)題提供了一系列的工具，包括系統(tǒng)編程。
用Perl寫(xiě)的程序叫腳本（Perlscripts），而perl程序（perlprogram）通常是指名字叫做perl的程序，它是用來(lái)執(zhí)行腳本的。

Perl是解釋型（不是編譯型）語(yǔ)言。這樣，運(yùn)行一個(gè)腳本，和運(yùn)行一個(gè)相應(yīng)的C程序來(lái)講，要花費(fèi)相當(dāng)多的CPU時(shí)間。但是，現(xiàn)在的計(jì)算機(jī)速度越來(lái)越快，寫(xiě)一個(gè)C程序花的時(shí)間比寫(xiě)一個(gè)Perl腳本多，從而總的來(lái)講，反而節(jié)省了你的時(shí)間。
Helloworld!
我們還是來(lái)寫(xiě)一個(gè)Helloworld腳本。通過(guò)它來(lái)介紹Perl腳本的編寫(xiě)和運(yùn)行的一些最基本的東西。

現(xiàn)在開(kāi)始：

［Jobs/］cat>;hello  
#!/usr/bin/perl  
print"Helloworld!\n";  
［Jobs/］chmoda+xhello  
［Jobs/］./hello  
Helloworld!  
［Jobs/］  
 

注解：

1.用cat命令創(chuàng)建一個(gè)叫hello的文件，它包含一個(gè)很簡(jiǎn)單的Perl腳本。通常可以用別的編輯器來(lái)創(chuàng)建腳本。
2.***行腳本是，#!/usr/bin/perl。它表示腳本是由perl程序來(lái)運(yùn)行的。它是一個(gè)必須的前綴。/usr/bin/perl部分是perl程序的路徑名。不同的安裝，路徑名是不同的。
3.隨后是相應(yīng)的Perl腳本，這里僅有一行。這一行是很好理解的，其中\(zhòng)n代表newline（換行）。在Perl的字符串，控制字符通常使用這種與C語(yǔ)言類(lèi)似的表達(dá)法，\后跟一個(gè)字符。
4.程序?qū)懲曛螅胏hmod命令讓這個(gè)包含腳本的程序可以執(zhí)行。在Linux里，文件創(chuàng)建是通常是不可執(zhí)行的，必須明確的改變文件的屬性。在這個(gè)命令中all用戶能execute（執(zhí)行）這個(gè)文件。
5.***，鍵入腳本文件名就能運(yùn)行這個(gè)腳本了。./表示是在Jobs目錄下的那個(gè)文件。

注意，在Perl中，和C語(yǔ)言一樣，一個(gè)語(yǔ)句是一個(gè)分號(hào)結(jié)尾的。#p#

數(shù)據(jù)結(jié)構(gòu)和變量

在Perl語(yǔ)言中一個(gè)變量的值可以是一個(gè)數(shù)字或字符串或其它別的東西。變量是沒(méi)有類(lèi)型的。你可以將一個(gè)字符串賦給一個(gè)變量，以后，你可以將一個(gè)數(shù)字賦給同一個(gè)變量。
變量在使用前不需要申明。

試圖使用一個(gè)沒(méi)有初始化的變量，你用的實(shí)際上是0或者一個(gè)空的字符串或真假值中的false（假），具體是哪個(gè)值，由上下文決定。在使用命令行開(kāi)關(guān)時(shí)，表示要求Perl解釋器能給出告警信息，比如，-w報(bào)告使用了沒(méi)有定義的值。
Perlhasthreedatastructures:
Perl有三種數(shù)據(jù)結(jié)構(gòu)：scalars，scalars數(shù)組，scalars聯(lián)合數(shù)組，就是"hashes"。
Scalar變量名通常以$符號(hào)開(kāi)始，如$myvar。
數(shù)組通常以@符號(hào)開(kāi)始，如@myarray。
Hashes的名字通常以%開(kāi)始，如%myhash。

另外，子程序的名字以&開(kāi)始，通常這個(gè)&可以省略。

上面的符號(hào)可以和英語(yǔ)中的單詞相對(duì)應(yīng)：
$和the，
@和theseorthose，
%和theseorthose，
&和do。

名字是區(qū)分字母的大小寫(xiě)的。比如$foo和$Foo是兩個(gè)不同的變量。
如果有個(gè)數(shù)組，如@myarr，你可以用方括號(hào)來(lái)索引它的某個(gè)成員。但此時(shí)@要變成$，如$myarr[5]。因?yàn)檫@個(gè)成員是一個(gè)scalar變量。
也可以組成一個(gè)數(shù)組，如@myvar[5..10]，它是一個(gè)數(shù)組，是由@myvar組成的，它們的索引分別在5和10之間。
數(shù)組的索引是整數(shù)，從0開(kāi)始，和C語(yǔ)言一樣。

Hashes，能用字符串來(lái)索引它的成員，因此，索引方法不同。對(duì)于hashes，索引用大括號(hào)表示，如$myhash{'foobar'}。同樣，被索引的成員是scalar，必須用$開(kāi)始。
每種變量都有他們自己的名字空間。因此$foo和@foo是不同的變量名。同樣$foo[1]是@foo的一部分，而不是$foo的一部分。另外，有兩個(gè)預(yù)定義的變量，$_和@_。必須知道$_[2]是@_中的一個(gè)成員。

一個(gè)數(shù)組事實(shí)上是一個(gè)值的列表。在Perl中，可以用以下方法來(lái)生成一個(gè)列表，(2,3,7,42)一個(gè)列表可以賦給一個(gè)數(shù)組變量，如@foo=(2,3,7,42);
列表在Perl中是很重要的，因?yàn)樵S多操作的結(jié)果是列表。

例子：顯示的行帶行號(hào)
下面的例子顯示scalar變量的使用。同時(shí)也介紹了Perl的幾個(gè)基本特征。

這個(gè)腳本打印出它的輸入，但輸出的每行有一個(gè)行號(hào)開(kāi)始：

#!/usr/bin/perl
$line=1;
while(<>;){
print$line,"",$_;
$line=$line+1;}

Scalar變量$line是行記數(shù)。在一開(kāi)始，它被初始化為1，在每次處理一行的循環(huán)中它的值加上一個(gè)1。

循環(huán)結(jié)構(gòu)的形式如下：
while(<>;){
處理一行輸入}

盡管看上去有點(diǎn)神秘，它確實(shí)非常便于使用。你不必關(guān)心真正的輸入操作；就用上面的結(jié)構(gòu)就可以了，用預(yù)定義的變量$_來(lái)引用輸入行。
print語(yǔ)句包含三個(gè)參數(shù)，一個(gè)是打印行號(hào)，一個(gè)是打印一個(gè)空格，另一個(gè)是打印整個(gè)的輸入行。沒(méi)有打印換行，因?yàn)樽兞?_中已經(jīng)包含了換行符了。

實(shí)際上，可以將代碼寫(xiě)的更加簡(jiǎn)潔：
#!/usr/bin/perl
$line=1;
while(<>;){
print$line++,"",$_;}
這里，語(yǔ)句中包含了$line++而不僅僅是$line,因?yàn)樵赑erl中，和C語(yǔ)言類(lèi)似，你可以通過(guò)給變量加一個(gè)運(yùn)算符來(lái)表示對(duì)一個(gè)變量加1操作。

如果希望行號(hào)是右對(duì)齊的，比如行號(hào)顯示在固定的5個(gè)字符這樣的區(qū)域內(nèi)，左邊的用空格來(lái)填充。這相當(dāng)簡(jiǎn)單，只需用下面這條語(yǔ)句代替print語(yǔ)句：
printf"%5d%s",$line++,$_;#p#

Perl語(yǔ)言腳本的輸入

Perl腳本從那里得到輸入值？默認(rèn)的，即在輸入沒(méi)有任何參數(shù)的情況下，輸入來(lái)自Linux中所謂的輸入流。通常是用戶的鍵盤(pán)。
通常希望腳本從文件中輸入。簡(jiǎn)單的將文件名作為命令行參數(shù)，也就是，腳本文件的名字是命令的時(shí)候。這樣，舉個(gè)例子，如果你已經(jīng)寫(xiě)好了這個(gè)簡(jiǎn)單的腳本，并命名為lines，你可以用下面的方法來(lái)測(cè)試：

［Jobs/］./lineslines
1#!/usr/bin/perl
2$line=1;
3while(<>;){
4print$line++,"",$_;}
［Jobs/］

你可能寫(xiě)了幾個(gè)文件名字作為命令行參數(shù)，比如：linesfoobarzap
這意味著腳本lines將文件foo,bar,和zap作為一個(gè)已經(jīng)合并的單個(gè)文件來(lái)處理。

例子：拆分輸入行
在Perl中，你可以不用詳細(xì)地寫(xiě)代碼就能將數(shù)據(jù)分成幾個(gè)域。只需指定你想做什么。

比如，語(yǔ)句：
split;
首先將當(dāng)前輸入行分解成有空格分隔的域，然后將這些域分別賦值給預(yù)定義數(shù)組@_。隨后，就可以使用索引來(lái)存取這些域。變量$#_包含域的數(shù)目：它的值是域的數(shù)目減1。
假設(shè)，舉個(gè)例子，有一些數(shù)據(jù)，每行包括幾個(gè)由空格分隔的項(xiàng)，如果寫(xiě)一個(gè)Perl腳本，將每行的第二項(xiàng)挑選出來(lái)。可以寫(xiě)下面這樣的一個(gè)腳本來(lái)實(shí)現(xiàn)。

#!/usr/bin/perl
while(<>;){
split;
print$_[1],"\n";}
要注意的是由于在Perl中索引值從0開(kāi)始，因此用一個(gè)值為1的索引是引用第二個(gè)域。

Perl語(yǔ)言的控制結(jié)構(gòu)

Perl有豐富的控制結(jié)構(gòu)。理論上，通常也很實(shí)際，可以用if語(yǔ)句來(lái)實(shí)現(xiàn)分支結(jié)構(gòu)，while語(yǔ)句來(lái)實(shí)現(xiàn)循環(huán)結(jié)構(gòu)。
在控制結(jié)構(gòu)中，實(shí)現(xiàn)有條件執(zhí)行的動(dòng)作，或循環(huán)執(zhí)行的動(dòng)作做為blocks。一個(gè)塊是一個(gè)有大括號(hào)圍起來(lái)的一系列語(yǔ)句。注意，括號(hào)是必須的，這和C語(yǔ)言略有不同。

最簡(jiǎn)單的if語(yǔ)句的格式是：if(expression)block
它表示，先計(jì)算表達(dá)式的值，如果表達(dá)式的結(jié)果為真的話，就執(zhí)行塊語(yǔ)句。
比如，語(yǔ)句if($i<10){$j=100;}，如果$i的值小于10的話，$j的值就設(shè)為100。

一個(gè)有兩個(gè)分支的語(yǔ)句的格式如下：
if(expression)block1elseblock2

首先計(jì)算表達(dá)式的值，如果為真，執(zhí)行block1，否則執(zhí)行block2。
while語(yǔ)句的格式如下：
while(expression)block

先計(jì)算表達(dá)式的值，如果為真，執(zhí)行塊里面的語(yǔ)句，然后，再計(jì)算表達(dá)式的值，直到表達(dá)式的值為假，否則，還要執(zhí)行塊里的語(yǔ)句。
下面的腳本是一個(gè)使用while語(yǔ)句的簡(jiǎn)單例子，它將輸入行進(jìn)行分解，按相反的方向把各個(gè)域打印出來(lái)。

#!/usr/bin/perl
while(<>;){
split;
$i=$#_;
while($i>;=0){
print$_[$i--],"";}
print"\n";
}

在內(nèi)部的while循環(huán)，控制是建立在使用一個(gè)輔助的變量$i上的。它的值初始化成對(duì)***一個(gè)域的引用，并且不斷遞減，直到為0，此時(shí)，所有的域都處理完畢。運(yùn)算符>;=的意思是大于或等于。

字符串處理

Perl語(yǔ)言有強(qiáng)大的字符串處理工具。比如，通常希望將輸入數(shù)據(jù)轉(zhuǎn)換成小寫(xiě)，很簡(jiǎn)單：
tr/A-Z/a-z/;
這可以理解成：將范圍是A到Z的所有字符轉(zhuǎn)換（translate）成范圍是a到z的字符。
這個(gè)操作是在變量$_上，也就是當(dāng)前輸入行上進(jìn)行的。如果你想將它用到變量$foo上，你必須這樣寫(xiě)：
$foo=~tr/A-Z/a-z/;

有可能這樣的表達(dá)式很怪，但一旦熟悉之后，Perl的字符串工具很容易使用。
例子：文件重命名
Linux用戶需要將以后綴，比如.for結(jié)尾的文件的名字都重新命名成另一個(gè)后綴，比如.f。通常沒(méi)有直接的命令來(lái)完成這一個(gè)任務(wù)。如果你想要用mv*.for*.f，通常這樣并不能解決問(wèn)題。
但可以用Perl來(lái)寫(xiě)一個(gè)簡(jiǎn)單的腳本來(lái)實(shí)現(xiàn)：

#!/usr/bin/perl
while(<*.for>;){
$oldname=$_;
s/\.for$/\.f/;
rename$oldname,$_;
}

while語(yǔ)句表示它只對(duì)*.for的名字進(jìn)行處理。首先將找到的要處理的文件名，把匹配的文件名賦給$_變量。

在循環(huán)體內(nèi)，首先將$_變量所指的文件名保存到變量$oldname里。隨后，對(duì)它進(jìn)行替換。
***，用替換好的名字來(lái)重命名文件。rename是Perl的一個(gè)內(nèi)建函數(shù)，他有兩個(gè)參數(shù)。我們可以用另一條語(yǔ)句來(lái)代替它：
system"mv$oldname$_";
它是通過(guò)調(diào)用操作系統(tǒng)命令來(lái)實(shí)現(xiàn)的。

另外，需要注意的是語(yǔ)句s/\.for$/\.f/;中的兩個(gè)\。如果該語(yǔ)句中沒(méi)有\(zhòng)，則成為：
s/.for$/.f/;
這個(gè)語(yǔ)句就不對(duì)了。如果遇到zapfor.for，就會(huì)產(chǎn)生如下替換：za.f.for。因?yàn)榉?hào).代表任意字符。所以.for的意思是只要在字符串中包含for，就做替換。因此會(huì)產(chǎn)生上述結(jié)果。為了表示.，就必須用到換碼序列，用\.來(lái)表示符號(hào).。這與C語(yǔ)言中的概念類(lèi)似。

小結(jié)

Perl語(yǔ)言的語(yǔ)法和C語(yǔ)言有些相同之處，比如控制結(jié)構(gòu)，語(yǔ)句的；結(jié)尾，換碼序列等等。但它們也有明顯差別。C語(yǔ)言是編譯型的，C程序的運(yùn)行效率高。Perl語(yǔ)言是解釋型的，腳本的運(yùn)行效率比較低。但是Perl語(yǔ)言的綜合性較高，編寫(xiě)一些功能較復(fù)雜的程序所化的時(shí)間比較短。另外，Perl的變量是沒(méi)有數(shù)據(jù)類(lèi)型。

【編輯推薦】

1. Perl語(yǔ)言中的“指針”用法解析
2. 術(shù)語(yǔ)匯編 Perl語(yǔ)言概述
3. Perl語(yǔ)言中的五大變量類(lèi)型
4. 揭秘Perl變量中Perl純變量用法
5. Perl語(yǔ)言的文字處理模式