perl语言从标准输入设备输入

xiaoliu

从标准输入设备输入是容易的。使用<STDIN>，我们已经见过了◆。在标量context 中它将返回输入的下一行：
◆这里，我们称：<STDIN>为行输入操作，但其实际上是对一个文件句柄(filehandle)的行输入操作(有<>表示)。本章后面将更多的介绍文
件句柄(filehandle)。
$line = <STDIN>; #读入下一行；
chomp($line); #去掉结尾的换行符
chomp($line=<STDIN>) #同上，更常用的方法
由于，行输入操作在到达文件的结尾时将返回undef，这对于从循环退出时非常方便的：
while (defined($line = <STDIN>)) {
print “I saw $line”;
}
第一行代码值得仔细说明：我们将输入的字符串读入一个变量，检查其是否defined，如果是（意味着我们没有到达输入的
结尾），则执行while 的循环体。因此，在循环的内部，我们将看到每一行，一行接着一行◆。你可能经常进行此类操作，
因此Perl 提供了一种简写方式。如下：
◆你可能注意到我们没有对输入的字符串进行chomp 操作。在这种类型的循环中，你不能将chomp 操作插入条件表达式中，因此这通常是循
环体的第一条语句。我们将在下一节中见到此类例子。
while(<STDIN>){
print “I saw $_”;
}
为了得到这种简写，Larry 使用了一些无用的语法(useless syntax)。也就是说： “读入一行输入，看其是否为真(通常为真)。
如果为真，则进入while 循环，然后丢掉它！”。Larry 知道很少有人这样做；没人会在实际的程序中使用这种方法。因此，
Larry 利用了这种特性，使之变得有用起来。
上段程序实际完成的工作和早期例子是一样的：它告诉Perl 将输入读入一个变量，（只要结果是defined 的，即没有到达文
件的结尾），则进入while 循环。但，不是将输入存储在$line，而是放在Perl 的默认变量,$_之中。你也可以这样写：
while (defined($_ = <STDIN>)){
print “I saw $_”;
}
在进行深入讨论前，我们要澄清一些事：这种简写只在特定的情况下有效，默认的情况下不会将一行读入变量$_。仅当while
循环的条件判断部分只包含行输入操作才有效◆。如果在条件判断部分还有别的内容，则上述简写无效。
◆由于for 循环的条件部分和while 的条件部分类似，它也能正常工作。
除此之外，行输入操作(<STDIN>)和Perl 的默认变量（$_）没有别的关系。在本例中，输入的值被保存在变量$_中。
另一方面，在列表context 中使用行输入操作时，则会将所有的行（剩下的）当作一个列表，而每一行作为列表的一个元素：
foreach(<STDIN>){
print “I saw $_”;
}
同样，行输入操作和Perl 的默认变量$_没有必然的联系。在上例中，foreach 默认的控制变量为$_。因此，此循环将每一行
赋给$_。
上面的看起来相似：好像有理由认为它们的行为也是相似的，不是吗？
它们在底层是很不相同的。在while 循环中，Perl 读入一行，将它赋给变量，然后进入循环。再回到开头，读入下一行。但
在foreach 循环中，由于行输入操作在列表的context 中使用，因为foreach 需要一个列表作为其参数。因此，它在循环执行
前会将所有的输入读入。这种区别在读入一个400MB 的web 服务器的log 文件时非常明显。通常使用while 循环是一种更
好的方法，因为它一次处理一行输入。