利用Perl中的Cisco模块登录公司交换机

发现CPAN中有个CISCO模块，恰好能满足登录公司交换机，进行各类指令操作，如下：

#!/usr/bin/perl -w use strict; use Net::Telnet; use Net::Telnet::Cisco; use Net::Ping; my $welcomeMsg = ?"******************************************* 交换机设备登录工具 发布时间：2012-10-14 12:00 ******************************************************n"; print $welcomeMsg; #注意，$prompt是登陆后的命令提示符，如果匹配不上，脚本将会timeout my $username = 'who'; my $password = 'who'; my $prompt ? = '/.+[>#]$/'; print "请输入检测设备IP地址，多个IP请按分号或逗号隔开:n"; my $hostlist = <STDIN>; chomp($hostlist); my @hostArray = split /[;,]/,$hostlist; for my $host (@hostArray) { $host =~s#s+##g; if ($host !~ m/(d+.){3}d+/) { print "IP地址${host}输入不正确，登录下一台设备或退出工具!n"; next; } #先看是否能ping通设备,主机连通性测试，5次连接，连接不上则进入下一台设备登录或退出程序 my $pingcnt = 1; my $p ? ? ? = Net::Ping->new('icmp'); while ($pingcnt <= 5) { if ($p->ping($host)) { print "$host is reachable.n"; last; } else { print "$host is unreachablen"; $pingcnt++; } } if ($pingcnt > 5) { print "$host ping 不通，进入下一台设备登录或退出工具n"; next; } my $session = Net::Telnet::Cisco->new( ? ? ? ? ? ? ?Timeout => 15,? ? ? ? ? ? ?Prompt => $prompt ? ? ? ? ? ? ?); $session->open($host); print "$host连接成功n" if $session->login($username,$password); sleep(5); #加入5s延迟的作用是为了使设备telnet服务能及时响应 $session->enable('enable'); } 利用这个模块，登录交换机之后就可以配置，诊断收集相关信息了。