我试图使用Expect与长时间运行的交互过程交谈。我正在使用cat -un来模拟这个过程。我的代码如下:
#!/usr/bin/perl
use strict;
use warnings;
use Expect;
my $timeout = 4000;
my $exp = Expect->spawn("cat -un");
my $text = <STDIN>;
$exp->send($text);
$text = <STDIN>;
$exp->send($text);
$exp->expect(undef); # Forever until EOF
$exp->expect($timeout); # For a few seconds
$exp->expect(0);
$text = <STDIN>;
$exp->send($text);
$exp->expect(undef); # Forever until EOF
$exp->expect($timeout); # For a few seconds
$exp->expect(0);
我按第一个字符串+输入并且没有输出(显然)。我输入第二个字符串并按下来自cat -un转储的enter和stdout到屏幕。我的第三个字符串不会产生任何输出,但我希望它也将stdout转储到屏幕上。
我的目标是与在屏幕上放置文本的交互式流程进行通信(要求用户从菜单中进行选择),然后让用户输入响应并将其发送到流程(生成更多输出和更多菜单) )。
期待似乎是最简单的方法。请帮帮我。
答案 0 :(得分:0)
我并不完全确切地知道你要做什么,但我确实提出了这个产生"cat -un"
然后通过<STDIN>
等待输入的例子。每次收到输入时,它都会将该输入发送到"cat -n"
,然后返回并等待更多输入。
#!/usr/bin/perl
use strict;
use warnings;
use Expect;
my $timeout = 5;
my $exp = Expect->spawn("cat -un");
#$exp->debug(3);
$exp->debug(0);
my $text;
my $idx = 1;
while (1) {
$text = <STDIN>;
$exp->send($text);
$exp->expect(1);
print "$idx. sent text -> $text";
$idx++;
}
运行此sript会产生此输出:
% ./myexpect.pl
s1 <---- my input
s1
1 s1
1. sent text -> s1
s2 <---- my input
s2
2 s2
2. sent text -> s2
s3 <---- my input
s3
3 s3
3. sent text -> s3
s4 <---- my input
s4
4 s4
4. sent text -> s4
Ctrl-C <---- my input
%
如果您提供更多信息作为评论或问题,我可以尝试进一步解决您的问题。