Perl语言编程特殊技巧

2007-10-31 00:39:43  来源

WebjxCom提示:Perl 语言因其能够用较少的空间表达复杂的命令而出名, 本文将探讨perl 语言是如何实现这些功能。 我们将从一个最简单的小程序开始,它的功能是从键盘输入字符,然后将其送到控制台。采用perl语言实现,你可以会这样写: while ($line = STDIN) { print $line; } 一开

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手册的变量部分得到。

更多

推荐文章