Chinaunix

标题: 关于Net::Telnet 模块的一个问题. [打印本页]

---

作者: liuke432    时间: 2007-10-25 13:35
标题: 关于Net::Telnet 模块的一个问题.
我需要telnet到一款设备（innomedia）上，输入一些命令，配置一些参数。
但是只有第一个命令Cu管用，第二个p就不管用了,返回 Invalid Command。

提示符有： 空，UserID>, 等。不知是不是我的Prompt设置的不对。 请高手指教！   ：）

1. 
   
2. #!/usr/local/bin/perl
   
3. 
   
4. use strict;
   
5. use Telnet();
   
6. 
   
7. my $ip = "10.90.1.230";
   
8. 
   
9. my $username = "Admin";
   
10. my $passwd = "password";
    
11. 
    
12. my $telnet = new Net::Telnet(Timeout => 10, Prompt => '/[\$%#>] $|[\$%#>]\s*/');
    
13. $telnet->open($ip);
    
14. $telnet->login($username,$passwd);
    
15. my @line1 = $telnet->cmd("Cu");
    
16. print @line1;               
    
17. my @line2 = $telnet->cmd("p");
    
18. print @line2;
    

复制代码

---

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

Powered by Discuz! X3.2