perl语言的（关于循环）

　　我们将从一个最简单的小程序开始，它的功能是从键盘输入字符，然后将其送到控制台。采用perl语言实现，你可以会这样写： 　　while ($line = ) { 　　print $line;　　}　　一开始这一程序已十分简洁，但是它的每条语句是什么意思呢?简单地说，是一个专用的文件句柄，在本例中它属于标准输入缓存(称为STDIN)，通常是连接到键盘。每次我们将的值赋给变量$line时，即为将STDIN缓存中的首行取出，然后放入$line。当到达缓存最后一行时，就会取出while语句判断条件为假的(EOF)文件结束标识符。程序的其它部分很简单可以这样解释。现在我们已经将输入信息放入$line变量，接着我们就可以用print函数将其打印到屏幕。或者更准确地说，打印到通常连接显示器的标准输入缓存。标准输入和输出缓存都可以重定向，例如可重定向到保存程序结果的某个文件中，如果是在处理文本，那么通常可以认为这与键盘及显示器是等价的。 　　你可能会认为这一程序已经是最短的了，但是通过使用perl的特殊变量，它还可以更短。 　　默认数据变量：$_ 　　Perl有很多特殊变量，它们在程序运行过程中被自动分配，可用于访问程序本身的一些信息，诸如程序名或者进程ID号、命令行参数、或最后一个表达式的运算结果。这些变量中最经常使用也可能是最有用的是$_这一默认变量。如果你在程序中未指明，默认变量作为某个未分配的功能变量，用于保存一些perl结构体和函数的运算结果。在你熟悉perl之前这可能听起来令人费解，但是它的功能的确很强大。我们可以用变量$_来取消程序中的$line变量： 　　while () { 　　print $_;　　}　　这一程序和前一个是等价的，即使在测试条件while语句中我们仅使用到一个文件句柄。程序将输入存入到默认变量，所以当我们要输出时就可以用变量$_访问输入的信息。但是我们还可以把程序变得更短，记住我说过，$_是一个用于未定义的实现某个功能的默认变量，这样打印是它其中的一个功能，所以我们现在可以把程序这样来写： 　　while () {　　print;　　}　　现在我们得到实现同样功能的程序，但是该程序消除了所有外部变量。因为我们仅仅是将STDIN和STDOUT连在一起。如果我们能够去掉while循环则会更好，这一循环无非是在重复的将数据从一个缓存移到另一个。这一过程也可以用下面的语句实现： 　　print ; 　　这个程序的工作过程有点复杂。当采用$_实现打印时，我们是将一个变量放在另一个称为标量变量的情况下。简单地说就是它将这一变量看作一个对象，比如可以是一个数或者一个字符，但并不是一个集合。打印函数也可以采用在一组标量的方式，即将变量看作一系列对象，当我们使用打印函数时，它将轮流打印每一个。当我们使用句柄进行打印时，它将把标准输入看作一个字符序列，依次打印。这和while循环实现一样的功能。 　　这可能是一个极端的例子，但是使用一些perl编程技巧，可以将我们的程序长度减少一半。