perl - while 循环与 perl 中单次使用菱形运算符的区别

Question

我对以下内容感到困惑:

<>; print;

对比

while(<>){print;}

第一个不打印任何东西，但第二个打印。没有 <>始终将读取的输入存储到 $_ ?

谢谢你。

Answer 1

菱形文件输入迭代器只有在 while 循环的条件下才具有魔力:

$ perl -MO=Deparse -e '<>; print;'
<ARGV>;
print $_;
-e syntax OK

$ perl -MO=Deparse -e 'while (<>) {print;}'
while (defined($_ = <ARGV>)) {
    print $_;
}
-e syntax OK

这一切都记录在 perlop 中