4

我正在编写一个脚本，该脚本需要定期（每 5 分钟）生成一个 Expect 进程来完成一些工作。下面是我拥有的生成 Expect 进程并完成一些工作的代码。脚本的主要进程一直在做一些其他的工作，例如它可能等待用户输入，因为我在一个线程中调用这个函数'spawn_expect'，每5分钟调用一次，但问题是预期没有按预期工作。

但是，如果我用另一个进程替换线程，也就是说，如果我分叉并让一个进程负责生成 Expect，而另一个进程完成脚本的主要工作（例如在提示符处等待），那么 Expect 工作正常。

我的问题是是否有可能产生一个线程期望进程？我必须求助于使用流程来完成这项工作吗？谢谢 ！

sub spawn_expect {
    my $expect = Expect->spawn($release_config{kinit_exec});
    my $position = $expect->expect(10,
                    [qr/Password.*: /, sub {my $fh = shift; print $fh "password\n";}],
                    [timeout => sub {print "Timed out";}]);
    # if this function is run via a process, $position is defined, if it is run via a thread, it is not defined                         
    ...
 }
4

1 回答 1

1

预先创建Expect对象（不在线程内）并将其传递给线程

my $exp = Expect->spawn( ... );
$exp->raw_pty(1);
$exp->log_stdout(0);

my ($thr) = threads->create(\&login, $exp);
my @res = $thr->join();    
# ...

sub login {
    my $exp = shift;
    my $position = $exp->expect( ... );
    # ...
}

我使用多个线程进行了测试，其中一个使用Expect自定义测试脚本并将脚本的输出返回到主线程。让我知道我是否应该发布这些（短）程序。

当Expect对象在线程中创建时，它对我来说也失败了。我的猜测是，在这种情况下，它无法像通常那样设置它的 pty。

鉴于评论中的澄清，我将fork用于这项工作。

于 2017-05-09T20:45:05.347 回答