perl Net::Telnet wait_for 中间字符，而“print”则为中间字符。操作仍在缓冲数据

Question

我将 Perl 与 Net::Telnet 模块一起使用。

我的问题是，在发送输出为 1000 行的命令时，“wait_for”会在中间查找字符串。

wait_for 停止，但缓冲区仍继续存储命令的输出。

问题在于我发送的下一个命令 - 我正在获取第一个命令的其余输出。

#!/usr/bin/perl
use Net::Telnet;

$session = new ... ();
$session->print("cmd 1");
my $output = $session->wait_for(String => "AAA");

$session->buffer_empty;
$session->print("cmd 2");
my $output2 = $session->wait_for(String => "#");

我尝试发送“$session->buffer_empty”，但没有帮助。有谁知道这里发生了什么吗？

Answer 1

这里的问题可能是，即使在调用 buffer_empty 之后，cmd 1 仍在填充输入缓冲区。如果您知道 cmd 1 输出的最后是什么，最好的解决方案是添加另一个 waitfor 以确保“cmd 1”在发出之前已完成运行'命令2'。

#!/usr/bin/perl
use Net::Telnet;

$session = new ... ();
$session->print("cmd 1");
my $output = $session->wait_for(String => "AAA");

$session->wait_for(Match => '/>$/');
$session->buffer_empty;

$session->print("cmd 2");
my $output2 = $session->wait_for(String => "#");

另一种选择是在调用 buffer_empty 之前添加 sleep。