我来发个贴
起因：共享局域网中有人疯狂下载，每次登录路由器去封太麻烦，而且他会清掉。。。，发现路由器可以telnet，所以想写一脚本自动执行路由器配置工作。结果：用perl写的脚本登录不上
有人了解Perl的Prompt么，为什么登其它的主机可以，登路由器就不行，附上CODE
use Net::Telnet ();
my $host='192.168.0.1';
my $telnet=new Net::Telnet (Timeout => 5);
$telnet->open ($host);
$telnet->login ('xxx','xxx');
$telnet->cmd ("cfg");
my @lines=$telnet->cmd ("prof show");
print @lines;
exit;
用默认Prompt不行
登录时候的界面，用什么Prompt去匹配？谁帮我写正则 另外用VBS写的也是登录其它主机可以登录这个路由器不行，见鬼了 这帖火气十足.... 恶魔
页:
[1]