Net::Telnet的一个问题！

liuke432

原帖由 hotren 于 2007-11-1 20:08 发表
先$obj->cmd("terminal length 0")一下，然后再$obj->cmd("cu")
就是不知道你这个设备有没有terminal length 命令！

再不行就用expect吧！

我通过ethereal抓的包，显示“p”命令确实执行了，返回：

1. 
   
2. No.   PF UserID                    Passwd                    Name                            AuthID.
   
3. 
   
4. 0001  .01 .+16747112170              .****                      .MTA6328-2_2170                  .****.
   
5. 
   
6. 0002  .01 .+16747112171              .****                      .MTA6328-2_2171                  .****.
   
7. 
   
8. UserID>.
   
9. 
   
10. Invalid Command!.
    
11. 
    
12. UserID>.
    

复制代码

但是

1. 
   
2. my @line3 = $telnet->cmd("p");
   
3. print @line3;
   

复制代码

这段代码只能取回

1. 
   
2. UserID>.
   
3. 
   
4. Invalid Command!.
   
5. 
   
6. UserID>.
   
7. 
   

复制代码