はタイムアウトし、ログインプロンプトのTelnet Perlのを待って

Question

私はこれが私のプロンプトでperlの

を使用してTelnetプロンプトにログインする問題を抱えている：

Trying 192.168.10.15... 
Connected to 192.168.10.15. 
Escape character is '^]'. 

Enter username and password 
> 

そして、これは私のコードです：

use Net::Telnet(); 
$t = new Net::Telnet (Port => 11052, Timeout => 10, Prompt => '/Enter username and password/ /\n/ /> $/i'); 
$t->open("192.168.10.15"); 
$t->login('test', 'test1'); 
@lines = $t->cmd("ls"); 
print @lines; 

しかし、私はメッセージのエラーを持っている：タイムアウトログインプロンプト

を待っている私が使用してみました：

$t->waitfor('/Enter username and password/ /\n/ /> $/i'); 

と

$->waitfor('/> $/i'); 

誰がこれで私を助けることができますか？

Answer 1

私は私の問題を解決しました：D

それは使用して私の作品：

use Net::Telnet(); 
$t = new Net::Telnet (Host=> "192.168.10.15", Port => 11052, Timeout => 5, Prompt => "/Enter username and password/");  
$t->waitfor('/Enter username and password/'); 
$t->print('test test1'); 

私の場合は、文$t->login('test', 'test1');は動作しませんが、私は同じライン上のusrとPW書いてみました$t->print('test test1');それは動作します！