Perl,如何从循环外的stdin读取？

Question

有些事情我不明白:

说in是一个文件包含:

1
2
3

并且foo.pl:

use strict;
<>;
print;
<>;
print;
<>;
print;

然后运行:

perl foo.pl < in

为什么这个程序不输出任何东西？

......这一个:

use strinct;
while(<>) {
    print;
}

输出整个文件

Answer 1

因为

while(<>) 

是简写

while($_ = <>) 

这意味着该行被分配给默认变量$_.哪个也用了print.

你写的:

<>;

不分配任何东西$_.它只是void上下文中的readline,这意味着该值被丢弃并且不存储在任何地方.因此$_是空的.如果你use warnings,Perl会告诉你发生了什么.

Use of uninitialized value $_ in print

如果您手动执行分配,它将起作用:

$_ = <>;

另请注意,您不必重定向文件内容,只需提供文件名作为参数:

perl foo.pl in