如何在可用时从标准输入读取行（否则阻止）？答案

【问题标题】：How to read lines from stdin whenever available (block otherwise)?如何在可用时从标准输入读取行（否则阻止）？
【发布时间】：2012-04-13 00:36:36
【问题描述】：

在下面的代码中，p00 是一个命名管道，由 mkfifo p00 创建。

在控制台 1 中，我运行了：

% perl -ne 'print "PERL: $_"' < p00

然后，当上述被阻止时（如预期的那样），我在控制台 2 中运行

% seq 3 > p00

结果，控制台1中出现了以下内容：

PERL: 1
PERL: 2
PERL: 3
%

这几乎是我希望达到的结果，除了 perl 脚本在打印第三行后终止。

我希望脚本继续回显行（以“PERL:”为前缀）只要它们可用，否则阻止。

上面单行的以下变体表面上类似于所需的行为：

perl -e 'while ( 1 ) { print "PERL: $_" while <>; sleep 1 }' < p00

...但这不是真正的交易，因为它在等待输入时不会阻塞，也不会在输入可用时立即回显。

注意事项：

【问题讨论】：

【解决方案1】：

阅读 Maxim Yegorushkin 的评论后，我意识到我所要做的就是在第二个版本中删除 sleep 1。即，这正是我想要的：

perl -e 'while ( 1 ) { print "PERL: $_" while <> }' < p00

正如 Maxim 所写，内部循环在收到 EOF 时终止；然后外层循环将脚本返回到阻塞状态，等待输入……Doh！

【讨论】：

这很有趣；假设p00 是文件而不是 FIFO。然后，您修改后的脚本将在添加到文件时读取额外的行（>> 追加或重写文件并添加比以前更多的行）。因此，Perl 在新尝试读取之前重置输入流（标准输入）上的 EOF 指示符。