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

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

while ($line = <STDIN>) {

print $line;

}

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

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

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

Perl有很多特殊變量，它們?cè)诔绦蜻\(yùn)行過程中被自動(dòng)分配，可用于訪問程序本身的一些信息，諸如程序名或者進(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之前這可能聽起來令人費(fèi)解，但是它的功能的確很強(qiáng)大。我們可以用變量$_來取消程序中的$line變量：

while (<STDIN>) {

print $_;

}

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

while (<STDIN>) {

print;

}

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

print <STDIN>;

這個(gè)程序的工作過程有點(diǎn)復(fù)雜。當(dāng)采用$_實(shí)現(xiàn)打印時(shí)，我們是將一個(gè)變量放在另一個(gè)稱為標(biāo)量變量的情況下。簡單地說就是它將這一變量看作一個(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編程技巧，可以將我們的程序長度減少一半。

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

特殊的文件句柄：<>

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

print <>;

當(dāng)你考慮到perl可以僅用8條語句寫一個(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變量來記錄行號(hào)，每輸入一行，我們將其加一，然后將行號(hào)和輸入內(nèi)容一起輸出。當(dāng)我們?cè)谧址惺褂糜呻p引號(hào)括起的變量時(shí)，這一變量名將會(huì)用它的內(nèi)容來代替，這使得perl中的格式化輸出變得輕而易舉。

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

更多信息請(qǐng)查看IT技術(shù)專欄