perl語(yǔ)言因其能夠用較少的空間表達(dá)復(fù)雜的命令而出名，本文將探討perl語(yǔ)言是如何實(shí)現(xiàn)這些功能。

我們將從一個(gè)最簡(jiǎn)單的小程序開始，它的功能是從鍵盤輸入字符，然后將其送到控制臺(tái)。采用perl語(yǔ)言實(shí)現(xiàn)，你可以會(huì)這樣寫：

while ($line = <stdin>) {

print $line;

}

一開始這一程序已十分簡(jiǎn)潔，但是它的每條語(yǔ)句是什么意思呢？簡(jiǎn)單地說(shuō)，<stdin>是一個(gè)專用的文件句柄，在本例中它屬于標(biāo)準(zhǔn)輸入緩存（稱為stdin），通常是連接到鍵盤。每次我們將<stdin>的值賦給變量$line時(shí)，即為將stdin緩存中的首行取出，然后放入$line。當(dāng)?shù)竭_(dá)緩存最后一行時(shí)，就會(huì)取出while語(yǔ)句判斷條件為假的（eof）文件結(jié)束標(biāo)識(shí)符。程序的其它部分很簡(jiǎn)單可以這樣解釋?，F(xiàn)在我們已經(jīng)將輸入信息放入$line變量，接著我們就可以用print函數(shù)將其打印到屏幕?；蛘吒鼫?zhǔn)確地說(shuō)，打印到通常連接顯示器的標(biāo)準(zhǔn)輸入緩存。標(biāo)準(zhǔn)輸入和輸出緩存都可以重定向，例如可重定向到保存程序結(jié)果的某個(gè)文件中，如果是在處理文本，那么通?？梢哉J(rèn)為這與鍵盤及顯示器是等價(jià)的。

你可能會(huì)認(rèn)為這一程序已經(jīng)是最短的了，但是通過(guò)使用perl的特殊變量，它還可以更短。

默認(rèn)數(shù)據(jù)變量：$_

perl有很多特殊變量，它們?cè)诔绦蜻\(yùn)行過(guò)程中被自動(dòng)分配，可用于訪問(wèn)程序本身的一些信息，諸如程序名或者進(jìn)程id號(hào)、命令行參數(shù)、或最后一個(gè)表達(dá)式的運(yùn)算結(jié)果。這些變量中最經(jīng)常使用也可能是最有用的是$_這一默認(rèn)變量。如果你在程序中未指明，默認(rèn)變量作為某個(gè)未分配的功能變量，用于保存一些perl結(jié)構(gòu)體和函數(shù)的運(yùn)算結(jié)果。在你熟悉perl之前這可能聽起來(lái)令人費(fèi)解，但是它的功能的確很強(qiáng)大。我們可以用變量$_來(lái)取消程序中的$line變量：

while (<stdin>) {

print $_;

}

這一程序和前一個(gè)是等價(jià)的，即使在測(cè)試條件while語(yǔ)句中我們僅使用到一個(gè)文件句柄。程序?qū)⑤斎氪嫒氲侥J(rèn)變量，所以當(dāng)我們要輸出時(shí)就可以用變量$_訪問(wèn)輸入的信息。但是我們還可以把程序變得更短，記住我說(shuō)過(guò)，$_是一個(gè)用于未定義的實(shí)現(xiàn)某個(gè)功能的默認(rèn)變量，這樣打印是它其中的一個(gè)功能，所以我們現(xiàn)在可以把程序這樣來(lái)寫：

while (<stdin>) {

print;

}

現(xiàn)在我們得到實(shí)現(xiàn)同樣功能的程序，但是該程序消除了所有外部變量。因?yàn)槲覀儍H僅是將stdin和stdout連在一起。如果我們能夠去掉while循環(huán)則會(huì)更好，這一循環(huán)無(wú)非是在重復(fù)的將數(shù)據(jù)從一個(gè)緩存移到另一個(gè)。這一過(guò)程也可以用下面的語(yǔ)句實(shí)現(xiàn)：

print <stdin>;

這個(gè)程序的工作過(guò)程有點(diǎn)復(fù)雜。當(dāng)采用$_實(shí)現(xiàn)打印時(shí)，我們是將一個(gè)變量放在另一個(gè)稱為標(biāo)量變量的情況下。簡(jiǎn)單地說(shuō)就是它將這一變量看作一個(gè)對(duì)象，比如可以是一個(gè)數(shù)或者一個(gè)字符，但并不是一個(gè)集合。打印函數(shù)也可以采用在一組標(biāo)量的方式，即將變量看作一系列對(duì)象，當(dāng)我們使用打印函數(shù)時(shí)，它將輪流打印每一個(gè)。當(dāng)我們使用句柄<stdin>進(jìn)行打印時(shí)，它將把標(biāo)準(zhǔn)輸入看作一個(gè)字符序列，依次打印。這和while循環(huán)實(shí)現(xiàn)一樣的功能。

這可能是一個(gè)極端的例子，但是使用一些perl編程技巧，可以將我們的程序長(zhǎng)度減少一半。

如果我們僅僅想把stdin影射到stnout，這樣做很好。但是如果我們想使我們的程序像unix中的可以打開和打印文件的cat一樣時(shí)，應(yīng)該怎么做？我們可能要檢查命令行參數(shù)，以確定它們是不是有效文件，然后依次打開和打印它們。但是這么一個(gè)很平常的事情，perl語(yǔ)言可以使用更簡(jiǎn)單更短的方法實(shí)現(xiàn)。

特殊的文件句柄：<>

像其它的默認(rèn)變量一樣，perl語(yǔ)言的這一寫為<>的特殊句柄可以使程序編寫更容易。這個(gè)文件句柄將所有命令行參數(shù)都看作文件名，依次打開它們。如果沒(méi)有命令行參數(shù)，那么就從stdin讀入。像unix中的習(xí)慣用法per一樣，如果將“-”用作命令行參數(shù)，它將會(huì)打開stdin代替一個(gè)文件。因此如果我們想編寫一個(gè)像上面提到的可以支持命令行中的文件的程序，這很簡(jiǎn)單，可以這樣寫：

print <>;

當(dāng)你考慮到perl可以僅用8條語(yǔ)句寫一個(gè)實(shí)現(xiàn)cat功能的程序時(shí)，你就會(huì)明白為什么perl被認(rèn)為功能強(qiáng)大。但是如果我們想在輸入上面實(shí)現(xiàn)一些更重要的功能而不是僅僅將其寫回顯示器上，這該怎樣實(shí)現(xiàn)？

記錄行數(shù)

如果我們想單個(gè)處理每一行輸入，這時(shí)僅將文件句柄連到打印是不夠的。讓我們看一個(gè)在每行輸入上加上行號(hào)的一個(gè)小程序。

$num = 0;

while (<>) {

$num = $num + 1;

print "$numt$_";

}

在這一例子中我們使用$num變量來(lái)記錄行號(hào)，每輸入一行，我們將其加一，然后將行號(hào)和輸入內(nèi)容一起輸出。當(dāng)我們?cè)谧址惺褂糜呻p引號(hào)括起的變量時(shí)，這一變量名將會(huì)用它的內(nèi)容來(lái)代替，這使得perl中的格式化輸出變得輕而易舉。

僅這幾個(gè)簡(jiǎn)單的程序，我們就可以看出使用特殊變量可讓你編寫更小更快的程序。如果你感興趣，perl所有特殊變量的用法可以在perl手冊(cè)的變量部分得到。