中文字幕免费精品_亚洲视频自拍_亚洲综合国产激情另类一区_色综合咪咪久久

Perl語言因其能夠用較少的空間表達復雜的命令而出名，本文將探討perl語言是如何實現這些功能。

我們將從一個最簡單的小程序開始，它的功能是從鍵盤輸入字符，然后將其送到控制臺。采用perl語言實現，你可以會這樣寫：

while ($line = <STDIN>) {

print $line;

}

一開始這一程序已十分簡潔，但是它的每條語句是什么意思呢？簡單地說，<STDIN>是一個專用的文件句柄，在本例中它屬于標準輸入緩存（稱為STDIN），通常是連接到鍵盤。每次我們將<STDIN>的值賦給變量$line時，即為將STDIN緩存中的首行取出，然后放入$line。當到達緩存最后一行時，就會取出while語句判斷條件為假的（EOF）文件結束標識符。程序的其它部分很簡單可以這樣解釋。現在我們已經將輸入信息放入$line變量，接著我們就可以用print函數將其打印到屏幕。或者更準確地說，打印到通常連接顯示器的標準輸入緩存。標準輸入和輸出緩存都可以重定向，例如可重定向到保存程序結果的某個文件中，如果是在處理文本，那么通常可以認為這與鍵盤及顯示器是等價的。

你可能會認為這一程序已經是最短的了，但是通過使用perl的特殊變量，它還可以更短。

默認數據變量：$_

Perl有很多特殊變量，它們在程序運行過程中被自動分配，可用于訪問程序本身的一些信息，諸如程序名或者進程ID號、命令行參數、或最后一個表達式的運算結果。這些變量中最經常使用也可能是最有用的是$_這一默認變量。如果你在程序中未指明，默認變量作為某個未分配的功能變量，用于保存一些perl結構體和函數的運算結果。在你熟悉perl之前這可能聽起來令人費解，但是它的功能的確很強大。我們可以用變量$_來取消程序中的$line變量：

while (<STDIN>) {

print $_;

}

這一程序和前一個是等價的，即使在測試條件while語句中我們僅使用到一個文件句柄。程序將輸入存入到默認變量，所以當我們要輸出時就可以用變量$_訪問輸入的信息。但是我們還可以把程序變得更短，記住我說過，$_是一個用于未定義的實現某個功能的默認變量，這樣打印是它其中的一個功能，所以我們現在可以把程序這樣來寫：

while (<STDIN>) {

print;

}

現在我們得到實現同樣功能的程序，但是該程序消除了所有外部變量。因為我們僅僅是將STDIN和STDOUT連在一起。如果我們能夠去掉while循環則會更好，這一循環無非是在重復的將數據從一個緩存移到另一個。這一過程也可以用下面的語句實現：

print <STDIN>;

這個程序的工作過程有點復雜。當采用$_實現打印時，我們是將一個變量放在另一個稱為標量變量的情況下。簡單地說就是它將這一變量看作一個對象，比如可以是一個數或者一個字符，但并不是一個集合。打印函數也可以采用在一組標量的方式，即將變量看作一系列對象，當我們使用打印函數時，它將輪流打印每一個。當我們使用句柄<STDIN>進行打印時，它將把標準輸入看作一個字符序列，依次打印。這和while循環實現一樣的功能。

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

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

特殊的文件句柄：<>

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

print <>;

當你考慮到perl可以僅用8條語句寫一個實現cat功能的程序時，你就會明白為什么perl被認為功能強大。但是如果我們想在輸入上面實現一些更重要的功能而不是僅僅將其寫回顯示器上，這該怎樣實現？

記錄行數

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

$num = 0;

while (<>) {

$num = $num + 1;

print "$numt$_";

}

在這一例子中我們使用$num變量來記錄行號，每輸入一行，我們將其加一，然后將行號和輸入內容一起輸出。當我們在字符串中使用由雙引號括起的變量時，這一變量名將會用它的內容來代替，這使得perl中的格式化輸出變得輕而易舉。

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

更多信息請查看IT技術專欄