Как я могу отладить мою программу Perl Net :: Telnet? - PullRequest
Новая
       11

Как я могу отладить мою программу Perl Net :: Telnet?

0 голосов
/ 19 января 2010

Я пытаюсь автоматизировать 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 произошло в первую очередь.

1 Ответ

3 голосов
/ 19 января 2010

Документы Net :: Telnet говорят под записью для waitfor():

Используйте dump_log () для отладки, когда этот метод истекает, а вы не думаете, что он должен.

Что случилось, когда вы следовали инструкциям доктора? :)

...