Chinaunix

标题: Net::Telnet－>waitfor函数使用过程中碰到的几个问题 [打印本页]

作者: pigfly 时间: 2008-07-22 16:59
标题: Net::Telnet－>waitfor函数使用过程中碰到的几个问题
登录中兴的交换机
代码如下：
$session = new Net::Telnet (Timeout => 60);
$session->open("$IP");
$session->waitfor("/Username:/i");
$session->print("$Username\n");
$session->waitfor("/Password:/i");
$session->print("$Password\n");
$session->waitfor("/JXFUZ-MC-SW12>/");
$session->print("show int $Port\n");

$Username为用户名，$Password为密码。$IP为设备IP地址
手工登录的过程为：
“telnet XXX.XXX.XX.XX
Trying XXX.XXX.XX.XX...
Connected to XXX.XXX.XX.XX.
Escape character is '^]'.
Username:hwlglgsjzx
Password:
JXFUZ-MC-SW12>show int XXX
………………"

问题1：程序在执行$session->waitfor("/JXFUZ-MC-SW12>/")时吊死了，然后超时退出。似乎JXFUZ-MC-SW12>没有匹配上。为什么？
问题2：我想取得$session->print("show int $Port\n");执行的所有返回结果。然后再执行新的$session->print("show int $Port\n");得到结果，怎么处理？用$session－>getlines吗？哪又怎么判断执行结束了呢？自己去正则匹配？还是用$session->waitfor，如果是$session->waitfor，该怎么用？

作者: Ksharp 时间: 2008-07-22 17:16
perldoc Net::Telnet

作者: pigfly 时间: 2008-07-23 12:58
修改了一下代码。采用Net::Telnet－>get
但是碰到了一个新的问题，当对方输出到一定程度的时候，不知道为什么不输出了。get就只能等到时间超时。这是为什么？
perldoc说的不清楚。
谢谢解答！

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)