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

Question

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

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;

当我执行此脚本时，出现以下错误，

telnetPerl.pl 第 7 行的模式匹配超时。 

如您所见，我正在匹配waitfor. 但我怀疑telnet连接是否首先发生。

Answer 1

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

当此方法持续超时并且您认为不应该时，请使用 dump_log() 进行调试。

当您按照医生的指示进行操作时发生了什么？:)