Net::Telnet－>waitfor函数使用过程中碰到的几个问题

pigfly

登录中兴的交换机
代码如下：
$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

perldoc Net::Telnet

pigfly

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