使用 Perl Expect 与程序通信

Posted 2023-02-16

【中文标题】使用 Perl Expect 与程序通信

【英文标题】：Communicating with a program using Perl Expect

【发布时间】：2012-09-28 01:01:43

【问题描述】：

我正在尝试使用 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); 

我按第一个字符串 + enter 并没有得到任何输出（显然）。我输入第二个字符串并按回车键，然后从 cat -un 转储到屏幕的标准输出。我的第三个字符串没有产生任何输出，但我希望它也能将标准输出转储到屏幕上。

我的目标是与将文本放在屏幕上的交互式进程进行通信（要求用户从菜单中选择），然后让用户输入响应并将其发送到进程（生成更多输出和更多菜单） )。

Expect 似乎是最简单的方法。请帮帮我。

【参考方案1】：

我并没有完全理解你想要做什么，但我确实想出了这个例子，它产生了"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++;

运行此脚本会产生以下输出：

% ./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
%

如果您提供更多信息作为评论或问题，我可以尝试进一步解决您的问题。