libssh2-通道读取挂起

Question

我目前正在Perl上开发远程作业调度程序。 它必须通过ssh连接到x服务器并执行已经定义的job / jobs组。

我使用基于libssh2的Net：SSH2。

我的程序通常可以在400/500台服务器上uptime运行，但是当我尝试在1000台服务器上运行基本的uptime命令时，我的一个或多个线程挂起并且永远无法完成，或者像30分钟后一样。

这是随机的：有时会准时完成，有时则不会。

我从这个Net :: SSH2命令跟踪了问题： $in .= $buf while $chan->read( $buf, 10240 );

这是连接的完整代码：

my $chan = $this->{netssh2}->channel() or die $!;
$chan->blocking(1);
$chan->exec($command);
my ($in,$err,$buf,$buf_err);

$in .= $buf while $chan->read( $buf, 10240 );
$err .= $buf_err while $chan->read( $buf_err, 10240, 1 );

$chan->send_eof;
1 while !$chan->eof;

$chan->wait_closed;

然后，我下载了Net :: SSH2源程序包，并修改了C-perl链接（xs）文件。 它告诉我问题出在这一行： count = libssh2_channel_read_ex(ch->channel, XLATEXT, pv_buffer, size);

该命令随附libssh2库： http : //www.libssh2.org/libssh2_channel_read_ex.html

有时（大约1000次中的1次），程序进入此读取状态，并且永不离开。 大多数情况下，受影响的服务器有所不同。

您知道我应该寻找/检查什么吗？ 我已经为此工作了几天，我非常希望获得外部建议:)