请教Net::Telnet的问题

yy_lc

请教高手，我在使用Net::Telnet操作交换机时，为啥不能抓取到执行命令返回的结果？getline、lastline、getlines都不行
而且还报time out，但Input_log拿到的日志看命令是执行成功了的
不解，不知道哪里搞错了，求教，谢谢！

$t->waitfor("/[Uu]sername/");
$t->print("user");
$t->waitfor("/ssword/");
$t->print("passwd");
$t->waitfor("/\>/");
$t->print("su");
$t->waitfor("/ssword/");
$t->print("passwd");
$get=$t->cmd("display brief int gi1/0/1");
$t->close;
#print "$ok";
#print $get1;
print $get;
#print $get2;
#print "$msg";

执行后报
command timed-out at telnet.pl line 22
--->22是$get=$t->cmd("display brief int gi1/0/1");

jason680

请教高手，我在使用Net::Telnet操作交换机时，为啥不能抓取到执行命令返回的结果？getline、lastline、getl ...
yy_lc 发表于 2010-12-08 17:37

是不是忘了$ ....
$t->waitfor("/[Uu]sername/");
$t->print("$user");
$t->waitfor("/ssword/");
$t->print("$passwd");

gaochong

$get=$t->cmd("display brief int gi1/0/1");

这条命令后，要设置waitfor。因为交换机下的的Prompt和默认Prompt不一样。

yy_lc

$get=$t->cmd("display brief int gi1/0/1"

这条命令后，要设置waitfor。因为交换机下的的Prompt和默认 ...
gaochong 发表于 2010-12-08 21:37

    明白了，昨晚仔细看了下说明，需要设置prompt，谢谢！