Perl语言编程特殊技巧

Perl语言因其能够用较少的空间表达复杂的命令而出名，本文将探讨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;

}