Perl双向管道IPC，如何避免输出缓冲

Question

我正在尝试与交互式进程进行通信。我希望我的 perl 脚本成为用户和进程之间的“模块人”。该过程将文本放入标准输出，提示用户输入命令，将更多文本放入标准输出，提示用户输入命令，......提供原始图形：

 User <----STDOUT---- interface.pl <-----STDOUT--- Process
 User -----STDIN----> interface.pl ------STDIN---> Process
 User <----STDOUT---- interface.pl <-----STDOUT--- Process
 User -----STDIN----> interface.pl ------STDIN---> Process
 User <----STDOUT---- interface.pl <-----STDOUT--- Process
 User -----STDIN----> interface.pl ------STDIN---> Process

以下模拟了我正在尝试做的事情：

    #!/usr/bin/perl

    use strict;
    use warnings;

    use FileHandle;
    use IPC::Open2;
    my  $pid = open2( \*READER, \*WRITER, "cat -n" );
    WRITER->autoflush(); # default here, actually
    my $got = "";
    my $input = " ";

    while ($input ne "") {
            chomp($input = <STDIN>);
            print WRITER "$input \n";
            $got = <READER>;
            print $got;
    }

由于输出缓冲上述示例不起作用。无论输入什么文本，或者按了多少输入，程序都在那里。解决方法是发出：

    my  $pid = open2( \*READER, \*WRITER, "cat -un" );

注意“cat -un”而不是“cat -n”。 -u 关闭 cat 上的输出缓冲。关闭输出缓冲时，此方法有效。我试图与最有可能的缓冲区输出交互的过程，因为我面临与“cat -n”相同的问题。不幸的是，我无法关闭正在与之通信的进程的输出缓冲，那么我该如何处理这个问题？

UPDATE1（使用 ptty）：

    #!/usr/bin/perl

    use strict;
    use warnings;

    use IO::Pty;
    use IPC::Open2;

    my $reader = new IO::Pty;
    my $writer = new IO::Pty;

    my  $pid = open2( $reader, $writer, "cat -n" );
    my $got = "";
    my $input = " ";

    $writer->autoflush(1);

    while ($input ne "") {
            chomp($input = <STDIN>);
            $writer->print("$input \n");
            $got = $reader->getline;
            print $got;
    }

~

Answer 1

缓冲分为三种：

1. 块缓冲：输出被放置在一个固定大小的缓冲区中。缓冲区满时会被刷新。您会看到输出以块的形式出现。
2. 行缓冲：输出被放置在一个固定大小的缓冲区中。当一个换行符被添加到缓冲区并且它变满时，缓冲区会被刷新。
3. 无缓冲：输出直接传递给操作系统。

在 Perl 中，缓冲的工作方式如下：

• 默认情况下缓冲文件句柄。一个例外：默认情况下不缓冲 STDERR。
• 使用块缓冲。一个例外：当且仅当 STDOUT 连接到终端时，它才会被行缓冲。
• 从 STDIN 读取会刷新 STDOUT 的缓冲区。
• 直到最近，Perl 才使用 4KB 缓冲区。现在，默认值为 8KB，但可以在构建 Perl 时更改。

前两个在所有应用程序中都是令人惊讶的标准。这意味着：

• User -------> interface.pl

  用户是一个人。他没有说缓冲，尽管它是一个非常缓慢的数据源。 好的

• interface.pl ----> Process

  interface.pl 的输出是块缓冲的。 不好

  通过将以下内容添加到interface.pl 来修复：

  use IO::Handle qw( );
  WRITER->autoflush(1);
  

• Process ----> interface.pl

  进程的输出是块缓冲的。 不好

  通过将以下内容添加到Process 来修复：

  use IO::Handle qw( );
  STDOUT->autoflush(1);
  

  现在，您可能会告诉我您无法更改 Process。如果是这样，那么您有三个选择：

  • 使用工具提供的命令行或配置选项来更改其缓冲行为。我不知道有什么工具可以提供这样的选项。
  • 通过使用pseudo tty 而不是管道来欺骗孩子使用行缓冲而不是块缓冲。
  • 退出。

• interface.pl -------> User

  interface.pl 的输出是行缓冲的。 好的（对吗？）