模式匹配超時

Question

我使用Perl的Net :: Telnet用於連接到我的路由器，並改變一些選項，但我得到這個錯誤：

pattern match timed-out

每一件事情是真的（user和pass，圖案等），我會爲這個錯誤的來源瘋狂。我的代碼是：

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時超時。