Question

我正在尝试将telnet自动化到Linux机箱，不需要通过Net::Telnet Perl模块进行任何身份验证。这是一个测试脚本：

use strict;
use Net::Telnet;
my $telnet = new Net::Telnet ( Timeout=>10, Errmode=>'die',
                               host=> '10.104.20.200', port => 2004,
                             ); 
$telnet->print('ls');
my $output = $telnet->waitfor('/\$ $/i');
print $output;

当我执行此脚本时，我收到以下错误，

pattern match timed-out at telnetPerl.pl line 7.

如您所见，我正在匹配waitfor中的任何字符。但我怀疑telnet连接是否首先发生。

Answer 1

Net::Telnet文档在waitfor()条目下说：

使用dump_log（）来调试此方法何时保持超时并且您认为不应该这样做。

当您按照医生的指示时发生了什么？：）

如何调试我的Perl Net :: Telnet程序？

1 个答案: