我来发个贴

gdut_stu

起因：共享局域网中有人疯狂下载，每次登录路由器去封太麻烦，而且他会清掉。。。，发现路由器可以telnet，所以想写一脚本自动执行路由器配置工作。
结果：用perl写的脚本登录不上
有人了解Perl的Prompt么，为什么登其它的主机可以，登路由器就不行，附上CODE

1. use Net::Telnet ();
   
2. my $host='192.168.0.1';
   
3. my $telnet=new Net::Telnet (Timeout => 5);
   
4. $telnet->open ($host);
   
5. $telnet->login ('xxx','xxx');
   
6. $telnet->cmd ("cfg");
   
7. my @lines=$telnet->cmd ("prof show");
   
8. print @lines;
   
9. exit;
   
10. 
    

复制代码

用默认Prompt不行
登录时候的界面，用什么Prompt去匹配？谁帮我写正则

gdut_stu

另外用VBS写的也是登录其它主机可以登录这个路由器不行，见鬼了

恶魔大叔

这帖火气十足....

gdut_stu

恶魔