Perl语言编程特殊技巧

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语言可以使用更简单更短的方法实现。