Net::Telnet 输出 cmd 超时答案

【问题标题】：Net::Telnet output of cmd timed-outNet::Telnet 输出 cmd 超时
【发布时间】：2012-08-16 11:47:28
【问题描述】：

我尝试构建一个小 telnet 脚本来与 Perl 中的 Net::Telnet 模块取得联系，但当我尝试接收输出时遇到命令超时问题。

$telnet = new Net::Telnet ( Timeout=>10);
$telnet->errmode("return");
$telnet->open('192.168.0.187');
$telnet->waitfor('/Username: $/i');
$telnet->print('admin');
$telnet->waitfor('/Password: $/i');
$telnet->print('admin');
$telnet->waitfor('/admin  >$/i');
@output = $telnet->cmd('show');
#$telnet->waitfor('/admin  >$/i');
print @output;

但我得到的是：

telnet.pl 第 12 行命令超时

尝试增加超时，将 errmode 设置为返回 - 但仍然获得超时。尽管如此，服务器上“show”的输出需要大约 1 秒，所以我猜我的脚本中肯定有其他问题？

【问题讨论】：

标签： perl telnet

【解决方案1】：

请告诉我们脚本中的第 12 行是什么。你上面的 sn-p 没有第 12 行。

这将有助于确定它是在已连接期间还是在稍后的命令期间失败。你确定是“show”命令失败了吗？

【讨论】：

对不起我的错！是的，它是“显示”命令。脚本中的所有其他人都在工作。如果我没有在 show-command 上捕获输出，它至少可以工作。