Net::Telnet－>waitfor函數(shù)使用過程中碰到的幾個問題

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：程序在執(zhí)行$session->waitfor("/JXFUZ-MC-SW12>/")時吊死了，然后超時退出。似乎JXFUZ-MC-SW12>沒有匹配上。為什么？
問題2：我想取得$session->print("show int $Port\n");執(zhí)行的所有返回結果。然后再執(zhí)行新的$session->print("show int $Port\n");得到結果，怎么處理？用$session－>getlines嗎？哪又怎么判斷執(zhí)行結束了呢？自己去正則匹配？還是用$session->waitfor，如果是$session->waitfor，該怎么用？

Ksharp

perldoc Net::Telnet

pigfly

修改了一下代碼。采用Net::Telnet－>get
但是碰到了一個新的問題，當對方輸出到一定程度的時候，不知道為什么不輸出了。get就只能等到時間超時。這是為什么？
perldoc說的不清楚。
謝謝解答！