請教perl::telnet的使用

zjjfeng

我在使用perl::telnet的時候很困惑，請各位幫忙解下
use Net::Telnet();

my $host="10.205.69.251";
my $usename="raisecom";
my $passwd="raisecom";

$telnet=Net::Telnet->new(Timeout=>30,Prompt=>'/Login/');
$telnet->open($host);
$telnet->login($usename,$passwd);

我做個自動登陸交換機的程序，有可能的話，想實現(xiàn)自動配置。但是我用perl::telnet后，不曉得這個連接開啟后，是否有返回信息，我如何去查是否已經(jīng)登陸上去了。我在網(wǎng)上查了好久，都沒有頭緒，根本不曉得是否已經(jīng)登陸。還有如果是登陸遠程的3層交換機，一開始就沒有用戶名，直接要密碼，然后進入特權(quán)模式的，該如何設(shè)置，是否要使用net::telnet::cisco();么？？

isaachs

用waitfor和print
@content = $telnet->wait(PROMPT);
foreach $line (@content) { print $line."\n"; }
$telnet->print(COMMAND);

abobchen

這些語句在那里運行,請賜教,謝謝~~~~~~~~~