尝试使用Net :: SSH :: Expect捕获大量输出时，Waitfor（'MORE'）返回null

Question

我正在尝试使用Net::SSH::Expect模块的waitfor('MORE')功能捕获'更多'，同时捕获大量的网络设备。

我的问题不在输入缓冲区的行部分之下？

- 更多 - ，下一页：空格，下一行：输入，退出：Control-C

这是我的代码：

$ssh->send($cmd);
my $chk = $ssh->waitfor("MORE",1);

if ($chk) {
    print("More found  times\n");
    $ssh->send("\n");
} else {
    print("No more  found\n");
}

这是我的结果。

Processing Please Wait
Starting SSH Services:... at testssh_ns.switch.pl.more line 18, <STDIN> line 2.
Login took 11 secs in connection
Command No. 1 : show log
No more  found

我的问题不在输入缓冲区的行部分之下？