我正在尝试与交互式流程进行沟通。我希望我的perl脚本成为用户和进程之间的“模块化人”。该过程将文本放入stdout,提示用户输入命令,将更多文本放入stdout,提示用户输入命令,.......提供原始图形:
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;
}
DUe输出缓冲上面的例子不起作用。无论输入什么文本,或者按下了多少输入,程序就会坐在那里。解决问题的方法是发出:
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;
}
〜
答案 0 :(得分:6)
缓冲有三种:
在Perl中,缓冲的工作原理如下:
前两个在所有应用程序中都是惊人的标准。这意味着:
User -------> interface.pl
用户是一个人。尽管它是一个非常缓慢的数据源,但他并没有缓冲。的确定
interface.pl ----> Process
interface.pl
的输出是块缓冲的。的 BAD 强>
通过将以下内容添加到interface.pl
:
use IO::Handle qw( );
WRITER->autoflush(1);
Process ----> interface.pl
进程的输出是块缓冲的。的 BAD 强>
通过将以下内容添加到Process
:
use IO::Handle qw( );
STDOUT->autoflush(1);
现在,你可能会告诉我你无法改变进程。如果是这样,那么你有三个选择:
interface.pl -------> User
interface.pl
的输出是行缓冲的。 确定(对吧?)