使用Perl Expect与程序通信

时间:2012-09-28 01:01:43

标签: perl ipc pipe expect

我试图使用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转储到屏幕上。

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

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

1 个答案:

答案 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
%

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