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

最新推荐文章于 2018-01-25 15:50:00 发布

CodingGeek

最新推荐文章于 2018-01-25 15:50:00 发布

阅读量1k

点赞数

分类专栏：网络交换机 Perl

本文链接：https://blog.csdn.net/sunjunior/article/details/41223119

版权

这篇博客介绍如何利用Perl中的Net::Telnet::Cisco模块登录并操作公司的交换机。通过读取用户输入的IP地址，脚本首先检查设备是否可达，然后进行TCP连接并登录，最终进入特权模式，以便进行进一步的配置或诊断任务。

摘要由CSDN通过智能技术生成

发现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)
{