Pattern Match тайм-аут

Question

Я использую Perl Net :: Telnet для подключения к моему маршрутизатору и изменить некоторые параметры, но я получаю эту ошибку:

pattern match timed-out

каждую вещь истинна (пользователь, передать, рисунок и т.д.), я схожу с ума из-за источника этой ошибки. мой код:

use Net::Telnet; 
$telnet = new Net::Telnet (Timeout=>10, Errmode=>'die'); 
$telnet->open('192.168.1.1'); 
$telnet->waitfor('/login[: ]$/i'); 
$telnet->print('admin'); 
$telnet->waitfor('/password[: ]$/i'); 
$telnet->print('admin'); 
$telnet->waitfor('/\$ $/i'); 
$telnet->print('list'); 
$output = $telnet->waitfor('/\$ $/i'); 
print $output; 

Что мне теперь делать? Есть ли альтернативный способ? Спасибо

Answer 1

Возможно, попробуйте войти в систему, используя пример в верхней части страницы Net::Telnet?

use Net::Telnet(); 
$t = new Net::Telnet (Timeout => 10, Errmode=>'die'); 
$t->open($host); 
$t->login($username, $passwd); 
@lines = $t->cmd("who"); 
print @lines; 

Это похоже на работу. Пока ваш фрагмент кода истекает при первом waitfor попытках входа в систему.