regex - パターンマッチタイムアウト

Question

Perl Net::telnet を使用してルーターに接続し、いくつかのオプションを変更しましたが、次のエラーが発生しました:

パターンマッチタイムアウト

すべてが真です（ユーザー、パス、パターンなど）。このエラーの原因に夢中です。私のコードは次のとおりです。

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最初のログイン試行時にコード スニペットがタイムアウトします。