利用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)
{