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

最新推荐文章于 2024-07-12 08:26:22 发布
最新推荐文章于 2024-07-12 08:26:22 发布
阅读量2.5k 收藏
点赞数
分类专栏： Perl
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/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;

利用Perl中的Cisco模块登录公司交换机
sunjunior的专栏
11-17 1025
发现CPAN中有个CISCO模块，恰好能满足登录公司交换机，
Perl输入与输出 (二)
追梦赤子心
12-08 827
Perl输入与输出(2) 2 文件句柄 文件句柄(filehandle)其实是perl程序里面代表Perl进程和外界I/O进行通信的接口，也就是说，文件句柄其实是这种接口的名字，而不是文件的名字，通过这种机制，Perl几乎可以喝任何一个外部实体交换信息。 句柄命名 句柄的名称和其他Perl标志符一样，必须由字母，数字和下划线组成，但是不能以数字开头； 为了避免和其他字符混淆，建议句柄用全部大写...
PERL的TCP 服务器与客户端
07-30
PERL编写的TCP服务器与客户端，很简单，一看就懂。
用Perl访问华为交换机配置示例
cdzwm的专栏
02-01 2014
#!/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)){
在多台Cisco交换机更改相同的配置命令(转)
ciya3282的博客
08-13 266
在多台Cisco交换机更改相同的配置命令(转)[@more@] 　　问：有没有简单的工具和办法啊？做好脚本，自动在N台左右的cisco交换机上自动按照脚本执行，然后返回结果？ 　　方法一、把交换机的配置文件下载，修改后上传到...
华为交换机Telnet案例研究：安全配置与效率优化并重
华为交换机Telnet是网络管理中的一个重要工具，它允许用户通过网络远程访问和配置交换机。本文首先介绍了Telnet的基本概念及其在华为交换机中的应用，然后详细分析了Telnet的安全机制，包括其安全缺陷、安全配置方法...
网络安全等级保护测评H3C命令核查4
w13359990065的博客
07-12 1634
EVPN（Ethernet Virtual Private Network，以太网虚拟专用网络）是一种二层VPN技术，控制平面采用MP-BGP通告EVPN路由信息，数据平面采用VXLAN封装方式转发报文。租户的物理站点分散在不同位置时，EVPN可以基于已有的服务提供商或企业IP网络，为同一租户的相同子网提供二层互联；通过EVPN网关为同一租户的不同子网提供三层互联，并为其提供与外部网络的三层互联。EVPN不仅继承了MP-BGP和VXLAN的优势，还提供了新的功能。EVPN具有如下特点：
博达交换机Console线序与网络入门：打造连接高手
![博达交换机Console线序与网络入门：打造连接高手]...博达交换机是网络技术领域内一款具有重要地位的网络设备，由博达公司研发生产。它主要被应用于企业级网络架构
华为网络自动化部署与管理工具使用
本文综合介绍了华为网络自动化部署与管理工具的全面概述，包括理论基础、技术原理及实践应用。首先，概述了网络自动化部署的概念及其在现代网络管理中的重要性，分析了市场趋势和技术驱动因素。接着，深入探讨了华为...
【网络设备故障急救】：华三华为设备故障诊断与解决方案快速指南
本文首先概述了网络设备故障急救的基本概念与重要性，随后分别对华三和华为两种主流网络设备的故障诊断与解决方案进行了深入分析。本文详细介绍了故障诊断的基本步骤、系统日志与诊断工具的使用，常见故障案例的分析...
ACL和NET(HW)
weixin_43385243的博客
11-16 343
第一步: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 学习小结
hanyuejun2006的专栏
04-01 1066
Normal 0 false false false EN-US ZH-CN X-NONE
linux perl telnet安装,在perl中使用Telnet時遇到麻煩？
weixin_30480281的博客
05-15 132
我遇到了一些麻煩發送命令，並從我設置的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 1323
直接在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
perp系列之五：perp安装
逍遥游的博客
05-30 1293
perp系列之五：perp安装 版本说明 版本 作者 日期 备注 0.1 ZY 2019.5.29 初稿 目录 文章目录perp系列之五：perp安装版本说明目录概要描述激活升级例子 概要 $ vi conf.mk $ make && make strip $ su # make install # perp-setup /etc/perp...
HWnet 基于“线性嵌入式向量”可在线伸缩“线性回归网络”
flyof1983的专栏
03-17 292
基于“线性嵌入式向量”可在线伸缩“线性回归网络” https://github.com/FFiot/HWnet 1. 性能提升 左侧:多项式线性回归、Tanh激活函数; 右侧:线性嵌入式向量。 训练性能提升近百倍。 非常接近“全局最优点”。 2. 线性回归在大规模网络中的缺陷 每一个数据训练所有参数。 每一个参数参与每一次推断。 3. 箱式特征的缺陷 分“箱”后，相邻箱过于独立，导致“...
Perl 安装
秋水顽石
11-01 8393
前言在上一篇博文中，我们介绍了CRF++在Windows下的使用，最后一部分是测评，在测评中提到过，要使用ConLL(Conference on Computational Natural Language Learning，CoNLL)测评，我们需要安装perl,所以，本文主要介绍如何安装Perl.支持的平台Perl可以在很多平台上运行，例如： Unix (Solaris, Linux, Free
华为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...
华为交换机怎么开启snmp服务
最新发布
01-10
要开启华为交换机的SNMP服务，可以按照以下...请注意，上述步骤是基于华为交换机的默认配置和常见操作。根据具体的型号和配置，可能会有所不同。建议参考华为官方文档或与技术支持团队联系，以确保正确配置SNMP服务。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值