在 Perl 中，如何在输入到达后立即处理，而不是等待换行符？

Question

我想从 Perl 运行一个子命令（或将其通过管道传输到 Perl 脚本中）并让脚本立即处理命令的输出，而不是等待超时、换行符或一定数量的块。例如，假设我想用方括号将每个输入块括起来。当我像这样运行脚本时：

$ ( echo -n foo ; sleep 5 ; echo -n bar ; sleep 5; echo baz) | my_script.pl

我希望输出是这样的，每行在前一行之后出现 5 秒：

[foo]
[bar]
[baz]

我该怎么做？

这可行，但真的很丑：

#! /usr/bin/perl -w

use strict;
use Fcntl;

my $flags = '';
fcntl(STDIN, F_GETFL, $flags);
$flags |= O_NONBLOCK;
fcntl(STDIN, F_SETFL, $flags);

my $rin = '';
vec($rin,fileno(STDIN),1) = 1;
my $rout;

while (1) {
  select($rout=$rin, undef, undef, undef);
  last if eof();

  my $buffer = '';

  while (my $c = getc()) {
    $buffer .= $c;
  }

  print "[$buffer]\n";
}

有更优雅的方法吗？

Answer 1

来自 perlfaq5：How can I read a single character from a file? From the keyboard?。您可能还想阅读How can I tell whether there's a character waiting on a filehandle?。轮询文件句柄。如果那里有一个字符，读取它并重置一个计时器。如果那里没有字符，请再试一次。如果您已重试并经过了一定时间，请处理输入。

阅读完这些字符后，您可以决定如何处理它们。读取单个字符的所有灵活性伴随着处理它们的额外工作。

Answer 2

Term::ReadKey 可以为您做到这一点。特别是设置 ReadKey() 模式为您进行轮询。

use Term::ReadKey;

$| = 1;
while( my $key = ReadKey(10) ) {
    print $key;
}

Answer 3

如果每个字符之间有时间间隔，您也许可以检测到停顿。

Perl 也进行行输入 - 如果您不使用 getc，您应该能够在 foo、bar 等的末尾添加换行符，perl 会为您提供每一行。

如果您不能添加换行符，并且不能依赖暂停，那么您希望系统具体做什么来告诉 perl 它开始了一个新命令？就 perl 而言，有一个标准输入管道，它正在从中获取数据，当您执行新命令时，标准输入管道中没有任何内容可以告诉您。

您可以考虑以下方法：

$ echo "( echo -n foo ; sleep 5 ; echo -n bar ; sleep 5; echo baz)" | my_script.pl

或

$ my_script.pl$ "echo -n foo ; sleep 5 ; echo -n bar ; sleep 5; echo baz"

并修改您的 perl 程序以解析输入的“命令行”并执行每个任务，根据需要使用标准输出。

-亚当

Answer 4

见How to change Open2 input buffering。 （基本上，您必须让其他程序认为它正在与 tty 对话。）

Answer 5

您没有提到如何在 Perl 脚本中读取输入，但您可能想查看 getc 函数：

$|++; # set autoflush on output
while ($c = getc(STDIN)) {
    print $c;
}