Perl 在 -n 命令行选项标志上吃第一行

Question

我已经开始使用 perl，我试图弄清楚告诉 perl 如果我也提供循环使用循环有什么问题？

看起来 perl 对相同的打开文件描述符感到困惑，但我不明白为什么它会吃掉第一行？

perl -ne 'while (<>) { print $_; }'

当然，在这个简单的例子中，我可以简单地perl -ne '{print $_}' 来达到相同的功能逻辑。

但我想知道的是，如果另一个while (<>) { } 被包装，第一行消失的双循环出了什么问题？

$ perl -ne '{print $_}' hello
hello
hello
world
world
^C

$ perl -ne 'while (<>) { print $_; }' 
hello
world
world
^C

更新：根据答案，似乎正在发生的是 Perl 正在等待 STDIN 输入的第一个循环。在接收到 STDIN 上的输入后，该输入被分配给内部缓冲区 $_，并且逻辑继续进行第二个循环，在该循环中它再次等待新的 STDIN 输入。收到新的 STDIN 输入后，它会使用新的 STDIN 输入破坏 STDIN 缓冲区$_ 并开始打印。

Answer 1

您可以使用O=Deparse自行检查one-liner生成的代码。

第一：

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

第二：

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

现在，很容易知道第二种情况出了什么问题。外层 while 吃掉文件的第一行就丢失了。

Answer 2

-n 标志将您的代码包装在 while (<>) { ... } 构造中。

所以在你的第二个例子中，实际执行的代码是

while (<>) # reads a line from STDIN, places it in $_
{
    # you don't do anything with the contents of $_ here

    while (<>) # reads a line from STDIN, places it in $_, overwriting the previous value
    {
        print $_; # prints the contents of $_
    }
}

这意味着第一个 <> 读取的行刚刚丢失。