Perl访问华为系列交换机路由器配置参数模块

最新推荐文章于 2021-05-15 04:15:38 发布
最新推荐文章于 2021-05-15 04:15:38 发布
阅读量2.4k 收藏
点赞数
分类专栏： Perl
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/cdzwm/article/details/8561985
版权 
#包名：HWNET 功能：对华为交换机和路由器进行自动维护的包 引用方法：use HWNET;
#

package HWNET;

use strict; 
use Data::Dump qw(dump); 
use Net::Telnet; 
use POSIX qw(strftime);
use Net::Ping;

#
# 用于测试的子程序
#
sub test{
	#读取子程序参数
	my $this = shift;

	my $telnet = $this->{'TELNET_OBJECT'}; 
	my $prompt = $this->{'PROMPT'};

	$telnet->put("\n");
	#my ($prematch, $match) = $telnet->waitfor("/$prompt/");
	print $telnet->lastline;
	
	return ;
}

#
# 功能：支持的设备型号列表
#
#   列表项示例：
#	 S8016' => 'Quidway S8016 Routing Switch'
#      ^
#	设备型号 'disp ver'命令输出结果中标志设备型号的特征字符串
#
# 说明： 如果需要支持新的设备型号支持，需要在此列表中增加相应的条目
#

my %device_type_list =(
	'S8016'				=>	'Quidway S8016 Routing Switch', 
	'NE05'				=>	'Quidway NetEngine 05',
	'NE40-8'			=>	'Quidway NetEngine 40-8 Universal Switching Router', 
	'NE16'				=>	'Quidway NetEngine 16E', 
	'AR46-40'			=>	'Quidway AR46-40', 
	'S3050'				=>	'Quidway	S3050C', 
	'S2026'				=>	'Quidway S2026', 
	'S2403H-EI'		=>	'Quidway S2403H-EI',
	'S3526E'			=>	'Quidway S3526E', 
	'S2008-EI'			=>	'Quidway S2008-EI', 
	'S3050C'			=>	'Quidway S3050C', 
	);

# 返回程序包支持的设备型号列表
sub supported_device_type_list{
	return keys %device_type_list;
}

#
# HWNET对象的构造器
#
sub new{
	my $class = shift; 
	my $this = {
				'STATE'=>'UNCONNECTED',
				'INPUT_LOG'=>'in.txt',
				'OUTPUT_LOG'=>'out.txt',
				'TIMEOUT'=>5, 'PROMPT'=>''
				};

	return bless $this, $class;
}

#
#登录到网络设备的用户视图
#

sub reset{
	my $this = shift;
	
	# 关闭telnet对象
	my $telnet = $this->{'TELNET_OBJECT'}; 
	$telnet->close() if $telnet;

	# 将各对象各属性复位到初始值
	$this = {
			'STATE'				=>	'UNCONNECTED',
			'INPUT_LOG'		=>	'input_log.txt', 
			'OUTPUT_LOG'	=>	'output_log.txt',
			'TIMEOUT'		=>	5, 
			'PROMPT'			=>	''
			};
		
} 

sub login{
	#读取子程序参数
	my ($this, $host,$username, $password,$su_password) = @_;

	my $prompt = $this->{'PROMPT'}; 
	$prompt = '(?:<.+?>|\[.+?\])$' if !$prompt;

	my $ret=undef; #设置子程序默认返回值

	# 验证子程序执行的前提条件
	return $ret if $this->{'STATE'} ne 'UNCONNECTED';
	
	my $input_log = $this->{'INPUT_LOG'}; 
	my $output_log = $this->{'OUTPUT_LOG'}; 
	my $timeout = $this->{'TIMEOUT'}; 
	my $telnet = Net::Telnet->new(
		Timeout=>$timeout, 
		Prompt=>"/$prompt/",
		Input_log=>$input_log, 
		Output_log=>$output_log, 
		Errmode=>'return'
	);

	#如果建立telnet对象失败，返回
	return $ret unless $telnet;

	$this->{'STATE'}='CONNECTED'; #设置HWNET对象状态

	#登录到普通用户模式
	return $ret unless $telnet->open($host); 
	my (undef, $match) =	$telnet->waitfor('/Password:|Username:/');

	if($match eq 'Username:'){
		return $ret unless $telnet->put($username."\n"); 
		return $ret unless		$telnet->waitfor("/Password:/");
	} 
	return $ret unless $telnet->put($password."\n"); 
	return $ret unless	$telnet->waitfor("/$prompt/");

	$this->{'STATE'} = 'USERMODE';

	#保存登录参数给后续操作使用
	$this->{'TELNET_OBJECT'} = $telnet; 
	$this->{'USERNAME'} = $username;
	$this->{'PASSWORD'} = $password; 
	$this->{'SU_PASSWORD'} = $su_password;
	$this->{'PROMPT'} = $prompt;

	$ret = 1; 
	return $ret;
}

#
#退出登录
#
sub logout{
	my $this = shift; 
	my $state = $this->{'STATE'}; 
	my $telnet =
	$this->{'TELNET_OBJECT'}; 
	my $prompt = $this->{'PROMPT'};

	# 根据TELNET_OBJECT对象所处的不同状态进行不同的操作
	$_ = $state;

	SWITCH: { /^UNCONNECTED$/ && do {
						last SWITCH;
				   };

	/^CONNECTED$/ && do {
						last SWITCH;
				   };

	/^USERMODE$/ && do {
						$telnet->put("quit\n"); $telnet->waitfor("/$prompt/");
						last SWITCH;
				   };

	/^SUPERMODE$/ && do {
						$this->super; $telnet->put("quit\n");
						$telnet->waitfor("/$prompt/"); last SWITCH;
					};
	}
	
	$this->{'STATE'} = 'UNCONNECTED'; $telnet->close if $telnet; $telnet =
	undef;

	return 1;
}

#
#进入super模式
#
sub super{
	
	#读取子程序参数
	my $this = shift;

	my $telnet = $this->{'TELNET_OBJECT'}; return undef unless $telnet;
	
	my $su_password = $this->{'SU_PASSWORD'};
	my $prompt = $this->{'PROMPT'};
	my	$state = $this->{'STATE'};

	my $ret = undef;
	my $myret = undef;

	if($state eq 'USERMODE'){
		#进入超级用户模式
		$myret = $telnet->put("super\n");
		goto out unless $myret;

		my (undef, $match) = $telnet->waitfor("/ Password:|$prompt/i");
		goto out if !defined($match);

		if($match =~ /Password:/){
			goto out unless $telnet->put($su_password."\n");
			goto out unless	$telnet->waitfor("/$prompt/");
		}
		
		$this->{'STATE'} = 'SUPERMODE'; my $ret = 1;

	}

	out: return $ret;
}

#
#获取设备sysname
#
sub get_sysname{
	
	#读取子程序参数
	my $this = shift; my $ret = undef; my $in="";

	my $telnet = $this->{'TELNET_OBJECT'}; my $prompt = $this->{'PROMPT'}; my
	$state = $this->{'STATE'};

	#进入super模式
	$this->super;

	# TODO: 此处需要进行错误处理
	#读取设备版本信息
	$telnet->put("disp current-config\n");

	#处理disp current-config的多页显示情况
	my ($prematch, $match); do{{
		($prematch, $match) = $telnet->waitfor("/--- More ---|$prompt/"); $in .=
		$prematch; if($match =~ /--- More ---/){
			$telnet->put(" ");
		}
	}}while $match =~ /--- More ---/;

	$in =~ /sysname (.+)\n/;

	$ret = $1; return $ret;
}

#
#获取设备型号
#
sub get_device_type{
	#读取子程序参数
	my $this = shift; my $ret = undef; my $in="";

	my $telnet = $this->{'TELNET_OBJECT'}; my $su_password =
	$this->{'SU_PASSWORD'}; my $prompt = $this->{'PROMPT'}; my $state =
	$this->{'STATE'};

	$this->super;
	#读取设备版本信息
	$telnet->put("disp version\n");

	#处理disp ver的多页显示情况
	my ($prematch, $match); do{{
		($prematch, $match) = $telnet->waitfor("/--- More ---|$prompt/"); $in .=
		$prematch; if($match =~ /--- More ---/){
			$telnet->put(" ");
		}
	}}while $match =~ /--- More ---/;

	#根据设备特征串匹配设备类型
	study $in; for(keys %device_type_list){
		$ret = $_, last if $in =~ /$device_type_list{$_}/;
	}

	return $ret;
}

#
# TODO: 增加对于错误处理的可靠性
#
sub backup_config{
	
	#读取参数
	my $this = shift;

	#读取ftp服务器的参数
	my ($ftp_server, $ftp_user, $ftp_password) = @_; my $p =
	Net::Ping->new('tcp', 5);

	return 0 if ! $p->ping($ftp_server); # 如果ftp服务器无法ping通则返回

	#设置telnet参数
	my $telnet = $this->{'TELNET_OBJECT'}; my $su_password =
	$this->{'SU_PASSWORD'}; my $prompt = $this->{'PROMPT'};

	# 判断系统的类型
	my $sys_name = $this->get_sysname; my $sys_type = $this->get_device_type;
	print STDERR $sys_type, "\n";
	#根据系统类型的不同执行不同的配置备份过程
	$_ = $sys_type; SWITCH: {
	//     && do { # 统一的过程
						#0. 进入特权用户模式
						$this->super;
				
						#1. 确定配置文件名(要根据不同的设备型号来确定)
						my ($pre, $match, $ret); my $config_name = 'config.cfg';
						CONFIG_TYPE:{
							/^NE05$/ && do{
								$telnet->put("disp startup\n"); my
								($prematch,undef) =
								$telnet->waitfor("/$prompt/"); 
								$prematch =~	/Next startup saved-configuration file:\s+(.+)$/m; 
								$telnet->buffer_empty;
								$config_name = $1; last CONFIG_TYPE;
							};

							/^S8016$/ && do{
								$config_name = 'vrpcfg.zip'; last CONFIG_TYPE;
							}; /^NE40-8$/ && do{
								#$telnet->put("disp startup\n"); my
								#($prematch,undef) =
								#$telnet->waitfor("/$prompt/"); $prematch =~
								#/Next startup saved-configuration
								#file:\s+(.+)$/m;
								$telnet->buffer_empty; 
								$config_name = 'vrpcfg.zip'; 
								last CONFIG_TYPE;
							}; /^NE16$/ && do{
								$telnet->put("disp startup\n"); my
								($prematch,undef) =
								$telnet->waitfor("/$prompt/"); $prematch =~ /Next startup saved-configuration file:\s+(.+)$/m; 
								$telnet->buffer_empty;
								$config_name = $1; last CONFIG_TYPE;
							}; /^AR46-40$/ && do{
								$telnet->put("disp startup\n"); 
								my ($prematch,undef) = $telnet->waitfor("/$prompt/"); 
								$prematch =~	/Next startup saved-configuration file:\s+(.+)$/m; 
								$telnet->buffer_empty;
								$config_name = $1; 
								last CONFIG_TYPE;
							}; /^S3050$/ && do{
								$config_name = 'vrpcfg.txt'; 
								last CONFIG_TYPE;
							};

							/^S3050C$/ && do{
								$config_name = 'vrpcfg.txt'; 
								last CONFIG_TYPE;
							};

							
							/^S3526E$/ && do{
								$config_name = 'vrpcfg.txt'; 
								last CONFIG_TYPE;
							};

							/^S2026$/ && do{
								$config_name = 'vrpcfg.txt';
								last CONFIG_TYPE;
							}; /^S2403H-EI$/ && do{
								$config_name = 'vrpcfg.txt';
								last CONFIG_TYPE;
							}; /^S2008-EI$/ && do{
								$config_name = 'vrpcfg.txt';
								last CONFIG_TYPE;
							};
						}

						# 检查配置文件名
						return 0 if $config_name eq '';
						#2. 登录ftp服务器

						# 延迟
						sleep 2;
						#
						$telnet->put("ftp $ftp_server\n");

						($pre, $match) = $telnet->waitfor('/User\(.*\)/');
						return 0 if !$match or $match !~ /User\(.*\)/;
						$telnet->put("$ftp_user\n");
						$telnet->waitfor('/Password:$/');

						$telnet->put("$ftp_password\n");
						$telnet->waitfor('/\[ftp\]$/');

						#3. 设置为二进制方式
						$telnet->put("bin\n"); $telnet->waitfor('/\[ftp\]$/');

						#4. 创建存放配置文件的目录
						$telnet->put("mkdir netconfig\n");
						$telnet->waitfor('/\[ftp\]$/');

						#5. 进入目录
						$telnet->put("cd netconfig\n");
						$telnet->waitfor('/\[ftp\]$/');

						#6. 生成备份目录名
						my ($sec,$min,$hour,$mday,$mon,$year) = localtime(time);
						$year += 1900; $mon += 1;

						my $dir_name = "$year-$mon-${mday}_$sys_name";
						$telnet->put("mkdir $dir_name\n");
						$telnet->waitfor('/\[ftp\]$/');
												
						#7. 进入备份目录
						$telnet->put("cd $dir_name\n");
						$telnet->waitfor('/\[ftp\]$/');

						#8. 上传备份文件
						$telnet->put("put $config_name\n"); ($pre, undef) =
						$telnet->waitfor('/\[ftp\]$/');
						
						return 0 if $pre !~ /200 PORT Command successful\./;

						#退出ftp
						$telnet->put("quit\n"); $telnet->waitfor("/$prompt/");

						last SWITCH;
				   };

#   /^$/ && do {
#                       last SWITCH;
#                  };
	} return 1;
}

#
# 功能：将当前登录的vty终端设置为不暂停状态
#
sub set_vty_no_pause{
	#读取子程序参数
	my $this = shift; my $ret = undef; my $in="";

	my $telnet = $this->{'TELNET_OBJECT'}; my $prompt = $this->{'PROMPT'}; my
	$state = $this->{'STATE'};

	my $tmp_type = $this->get_device_type;

	$this->super;

	#获取当前用户的虚拟终端号
	$telnet->put("disp users\n");
	#处理disp users的多页显示情况
	my ($prematch, $match); do{{
		($prematch, $match) = $telnet->waitfor("/--- More ---|$prompt/"); $in .=
		$prematch; if($match =~ /--- More ---/){
			$telnet->put(" ");
		}
	}}while $match =~ /--- More ---/;

	$_ = $tmp_type; SWITCH: {
			do {
			# 生成命令行
			$in =~ /[\+|\*]\s+\d+\s+VTY\s+(\d+)\s+\d\d:\d\d:\d\d\s/; my $ui =
			$1; my $cmd = "user-interface vty $ui";

			if(! $this->sys){
				$telnet->put("system\n"); $telnet->waitfor("/$prompt/");
			}

			$telnet->put("$cmd\n"); $telnet->waitfor("/$prompt/");

			$telnet->put("screen-length 0\n"); $telnet->waitfor("/$prompt/");

			$telnet->put("quit\n"); $telnet->waitfor("/$prompt/");
			
			$telnet->put("return\n"); $telnet->waitfor("/$prompt/");

			last SWITCH;
		}
	}

	$ret = 1; return $ret;
}

#
# 功能：将当前登录的vty终端设置为可暂停状态
#
sub set_vty_pause{
	#读取子程序参数
	my $this = shift; my $ret = undef; my $in="";
	
	my $telnet = $this->{'TELNET_OBJECT'}; my $prompt = $this->{'PROMPT'}; my
	$state = $this->{'STATE'};

	my $tmp_type = $this->get_device_type;

	$this->super;

	#获取当前用户的虚拟终端号
	$telnet->put("disp users\n");
	#处理disp users的多页显示情况
	my ($prematch, $match); do{{
		($prematch, $match) = $telnet->waitfor("/--- More ---|$prompt/"); $in .=
		$prematch; if($match =~ /--- More ---/){
			$telnet->put(" ");
		}
	}}while $match =~ /--- More ---/;

	$_ = $tmp_type;

	SWITCH: {
			do {
			# 生成命令行
			$in =~ /[\+|\*]\s+\d+\s+VTY\s+(\d+)\s+\d\d:\d\d:\d\d\s/; my $ui =
			$1; my $cmd = "user-interface vty $ui";

			if(! $this->sys){
				$telnet->put("system\n"); $telnet->waitfor("/$prompt/");
			}

			$telnet->put("$cmd\n"); $telnet->waitfor("/$prompt/");

			$telnet->put("undo screen-length\n"); $telnet->waitfor("/$prompt/");

			$telnet->put("quit\n"); $telnet->waitfor("/$prompt/");
			
			$telnet->put("return\n"); $telnet->waitfor("/$prompt/");

			last SWITCH;
		}
	}

	$ret = 1; return $ret;
}

#
# 功能：判断系统是否处理在system-view视图，是则返回1，否则返回0。
#
sub sys{
	#读取子程序参数
	my $this = shift;

	my $telnet = $this->{'TELNET_OBJECT'}; my $prompt = $this->{'PROMPT'};

	$telnet->put("\n"); my ($prematch, $match) = $telnet->waitfor("/$prompt/");
	return 1 if $match =~ /\]$/; return 0 if $match =~ />$/; return 0;
}

sub send_ctrl_k{
	my $this = shift;

	my $telnet = $this->{'TELNET_OBJECT'}; my $prompt = $this->{'PROMPT'};

	$telnet->put("\cK"); my ($prematch, $match) = $telnet->waitfor("/$prompt/");
	return 1;
}

sub change_password{

}
#
#执行指定的命令
#
sub exec_cmd{
	my $this = shift;
	my $cmd = shift;
	my $telnet = $this->{'TELNET_OBJECT'};
	$telnet->cmd($cmd);
} 1;

cdzwm
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
Perl输入与输出 (二)
追梦赤子心
12-08 753
Perl输入与输出(2) 2 文件句柄 文件句柄(filehandle)其实是perl程序里面代表Perl进程和外界I/O进行通信的接口，也就是说，文件句柄其实是这种接口的名字，而不是文件的名字，通过这种机制，Perl几乎可以喝任何一个外部实体交换信息。 句柄命名 句柄的名称和其他Perl标志符一样，必须由字母，数字和下划线组成，但是不能以数字开头； 为了避免和其他字符混淆，建议句柄用全部大写...
ACL和NET(HW)
weixin_43385243的博客
11-16 292
第一步:pc1和pc2等相同操作 [pc1]interface GigabitEthernet 0/0/0 [pc1-GigabitEthernet0/0/0]ip address 172.16.1.1 24 ##查看接口： 第二步:手工指路 [pc1]ip route-static 0.0.0.0 0.0.0.0 172.16.1.254 ...
PERL的TCP 服务器与客户端
07-30
PERL编写的TCP服务器与客户端，很简单，一看就懂。
在多台Cisco交换机更改相同的配置命令(转)
ciya3282的博客
08-13 214
在多台Cisco交换机更改相同的配置命令(转)[@more@] 　　问：有没有简单的工具和办法啊？做好脚本，自动在N台左右的cisco交换机上自动按照脚本执行，然后返回结果？ 　　方法一、把交换机的配置文件下载，修改后上传到...
perl 学习小结
hanyuejun2006的专栏
04-01 1032
Normal 0 false false false EN-US ZH-CN X-NONE
华为交换机ARP表采集Perl脚本
02-05
一个采集华为交换机ARP表并保存到Excel中的脚本。已经测试过93，35等交换机。
华为官方固件UPDATE.APP解包打包工具
02-12
After messing around a bit with the perl tools available for extracting Huawei update.app files, i got the idea to create an own (windows) tool. Requirements .Net Framework 3.5 Install Extract the...
perl培训资料
03-08
内容 一 概述 二 简单变量 三 操作符 四 列表和数组变量 五 文件读写 六 模式匹配 七 控制结构 八 子程序 九 关联数组(哈希表) 十 格式化输出 ...Perl5中的引用(指针) ...Perl的面向对象编程 ...Perl5的包和模块
华为排错专家（内部培训教程）
11-06
华为排错专家（内部培训教程）推荐
ubuntu下搭建区块链（Hyperledger Fabric）
01-09
title: ubuntu下搭建区块链 （Hyperledger Fabric) date: 2020-01-04 19:50:36 tags: 区块链 category: 教程 本文首发于喜欢二福的沧月君的小站 博主环境：华为云Ubuntu 16.04.6 LTS (GNU/Linux 4.4.0-165-generic ...
linux perl telnet安装,在perl中使用Telnet時遇到麻煩？
weixin_30480281的博客
05-15 101
我遇到了一些麻煩發送命令，並從我設置的telnet連接接收文本/數據。在perl中使用Telnet時遇到麻煩？#!perl#Telnet.pluse Net::Telnet;# Create a new instance of Net::Telnet,my $telnetCon = new Net::Telnet (Timeout => 20,Dump_Log => "dump.log...
脚本telnet失败，而host上直接telnet是成功的
勤劳的小蜜蜂
08-15 1228
直接在host上telnet XXXX是可以的，在pc1上直接运行tqtest也是可以的，但是从auto中运行脚本就会报错： Connection closed by foreign host. 并且在/var/log/messages中显示： Aug 14 22:55:42 VTB93-PC2 xinetd[18654]: START: telnet pid=18688 from=13
用Perl访问华为交换机配置示例
cdzwm的专栏
02-01 1982
#!/usr/bin/perl -w use lib '../hwlib'; use Net::Telnet; use Time::Local; use POSIX qw(strftime); use HWNET; use Net::Ping; my $p = Net::Ping->new(); my $host='10.49.64.1'; if(!$p->ping($host)){
华为S5700_交换机_基础管理配置
热门推荐
zzxxbk的博客
04-13 1万+
华为S5700_交换机_基础管理配置1.MEth 0/0/1 属于管理口system-view[Quidway] interface MEth0/0/1[Quidway] ip adddress 10.20.24.1 255.255.255.0  # 设置管理ip   [Quidway] ip route-static 0.0.0.0 0.0.0.0 10.20.24.22.配置连接密码sysaa...
利用Perl中的Cisco模块登录公司交换机
sunjunior的专栏
11-17 989
发现CPAN中有个CISCO模块，恰好能满足登录公司交换机，
HWnet 基于“线性嵌入式向量”可在线伸缩“线性回归网络”
flyof1983的专栏
03-17 235
基于“线性嵌入式向量”可在线伸缩“线性回归网络” https://github.com/FFiot/HWnet 1. 性能提升 左侧:多项式线性回归、Tanh激活函数; 右侧:线性嵌入式向量。 训练性能提升近百倍。 非常接近“全局最优点”。 2. 线性回归在大规模网络中的缺陷 每一个数据训练所有参数。 每一个参数参与每一次推断。 3. 箱式特征的缺陷 分“箱”后，相邻箱过于独立，导致“...
perp系列之五：perp安装
逍遥游的博客
05-30 918
perp系列之五：perp安装 版本说明 版本 作者 日期 备注 0.1 ZY 2019.5.29 初稿 目录 文章目录perp系列之五：perp安装版本说明目录概要描述激活升级例子 概要 $ vi conf.mk $ make && make strip $ su # make install # perp-setup /etc/perp...
perl下载华为云SDK
最新发布
04-04
您可以在华为云官网的开发者中心下载华为云SDK，其中包括Perl SDK。具体操作步骤如下： 1. 打开华为云官网：https://www.huaweicloud.com/ 2. 点击页面右上角的“登录”按钮，输入您的华为云账号和密码登录。 3. ...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值