PLEAC-Perl 教程 - Internet Services (Perl进阶者极力推荐)

最新推荐文章于 2024-07-22 09:50:02 发布
最新推荐文章于 2024-07-22 09:50:02 发布
阅读量1.3k 收藏
点赞数
分类专栏： C & Perl 文章标签： internet perl socket authentication server domain

18. Internet Services

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

Simple DNS Lookups

#-----------------------------
use Socket;

@addresses = gethostbyname($name)   or die "Can't resolve $name: $!/n";
@addresses = map { inet_ntoa($_) } @addresses[4 .. $#addresses];
# @addresses is a list of IP addresses ("208.201.239.48", "208.201.239.49")
#-----------------------------
use Socket;

$address = inet_ntoa(inet_aton($name));
# $address is a single IP address "208.201.239.48"
#-----------------------------
use Socket;

$name = gethostbyaddr(inet_aton($address), AF_INET)
            or die "Can't resolve $address: $!/n";
# $name is the hostname ("www.perl.com")
#-----------------------------
use Socket;
$packed_address = inet_aton("208.146.140.1");
$ascii_address  = inet_ntoa($packed_address);
#-----------------------------
$packed = gethostbyname($hostname)
            or die "Couldn't resolve address for $hostname: $!/n";
$address = inet_ntoa($packed);
print "I will use $address as the address for $hostname/n";
#-----------------------------
# $address is the IP address I'm checking, like "128.138.243.20"
use Socket;
$name    = gethostbyaddr(inet_aton($address), AF_INET)
                or die "Can't look up $address : $!/n";
@addr    = gethostbyname($name)
                or die "Can't look up $name : $!/n";
$found   = grep { $address eq inet_ntoa($_) } @addr[4..$#addr];
#-----------------------------
# download the following standalone program
#!/usr/bin/perl
# mxhost - find mx exchangers for a host
use Net::DNS;

$host = shift;
$res = Net::DNS::Resolver->new();
@mx = mx($res, $host)
   or die "Can't find MX records for $host (".$res->errorstring,")/n";

foreach $record (@mx) {
    print $record->preference, " ", $record->exchange, "/n";
}

#-----------------------------
#% mxhost cnn.com
#10 mail.turner.com
#
#30 alfw2.turner.com
#-----------------------------
# download the following standalone program
#!/usr/bin/perl
# hostaddrs - canonize name and show addresses
use Socket;
use Net::hostent;
$name = shift;
if ($hent = gethostbyname($name)) {
    $name      = $hent->name;                # in case different
    $addr_ref  = $hent->addr_list;
    @addresses = map { inet_ntoa($_) } @$addr_ref;
}
print "$name => @addresses/n";

#-----------------------------
#% hostaddrs www.ora.com
#helio.ora.com => 204.148.40.9
#
#
#% hostaddrs www.whitehouse.gov
#www.whitehouse.gov => 198.137.240.91 198.137.240.92
#-----------------------------

Being an FTP Client

#-----------------------------
use Net::FTP;

$ftp = Net::FTP->new("ftp.host.com")    or die "Can't connect: $@/n";
$ftp->login($username, $password)       or die "Couldn't login/n";
$ftp->cwd($directory)                   or die "Couldn't change directory/n";
$ftp->get($filename)                    or die "Couldn't get $filename/n";
$ftp->put($filename)                    or die "Couldn't put $filename/n";
#-----------------------------
$ftp = Net::FTP->new("ftp.host.com",
                     Timeout => 30,
                     Debug   => 1)
    or die "Can't connect: $@/n";
#-----------------------------
$ftp->
login()

    or die "Couldn't authenticate./n";

$ftp->login($username)
    or die "Still couldn't authenticate./n";

$ftp->login($username, $password)
    or die "Couldn't authenticate, even with explicit username
            and password./n";

$ftp->login($username, $password, $account)
    or die "No dice.  It hates me./n";
#-----------------------------
$ftp->put($localfile, $remotefile)
    or die "Can't send $localfile: $!/n";
#-----------------------------
$ftp->put(*STDIN, $remotefile)
    or die "Can't send from STDIN: $!/n";
#-----------------------------
$ftp->get($remotefile, $localfile)
    or die "Can't fetch $remotefile : $!/n";
#-----------------------------
$ftp->get($remotefile, *STDOUT)
    or die "Can't fetch $remotefile: $!/n";
#-----------------------------
$ftp->cwd("/pub/perl/CPAN/images/g-rated");
print "I'm in the directory ", $ftp->pwd(), "/n";
#-----------------------------
   $ftp->mkdir("/pub/gnat/perl", 1)
    or die "Can't create /pub/gnat/perl recursively: $!/n";
#-----------------------------
@lines = $ftp->ls("/pub/gnat/perl")
    or die "Can't get a list of files in /pub/gnat/perl: $!";
$ref_to_lines = $ftp->dir("/pub/perl/CPAN/src/latest.tar.gz")
    or die "Can't check status of latest.tar.gz: $!/n";
#-----------------------------
$ftp->quit()    or warn "Couldn't quit.  Oh well./n";
#-----------------------------

Sending Mail

#-----------------------------
use Mail::Mailer;

$mailer = Mail::Mailer->new("sendmail");
$mailer->open({ From    => $from_address,
                To      => $to_address,
                Subject => $subject,
              })
    or die "Can't open: $!/n";
print $mailer $body;
$mailer->
close();
#-----------------------------
open(SENDMAIL, "|/usr/lib/sendmail -oi -t -odq")
                    or die "Can't fork for sendmail: $!/n";
print SENDMAIL <<"EOF";
From: User Originating Mail <me/@host>
To: Final Destination <you/@otherhost>
Subject: A relevant subject line

Body of the message goes here, in as many lines as you like.
EOF
close(SENDMAIL)     or warn "sendmail didn't close nicely";
#-----------------------------
$mailer = Mail::Mailer->new("sendmail");
#-----------------------------
$mailer = Mail::Mailer->new("mail", "/u/gnat/bin/funkymailer");
#-----------------------------
$mailer = Mail::Mailer->new("smtp", "mail.myisp.com");
#-----------------------------
eval {
    $mailer = Mail::Mailer->new("bogus", "arguments");
    # ...
};
if ($@) {
    # the eval failed
    print "Couldn't send mail: $@/n";
} else {
    # the eval succeeded
    print "The authorities have been notified./n";
}
#-----------------------------
$mailer->open( 'From'    => 'Nathan Torkington <gnat@frii.com>',
               'To'      => 'Tom Christiansen <tchrist@perl.com>',
               'Subject' => 'The Perl Cookbook' );
#-----------------------------
print $mailer <<EO_SIG;
Are we ever going to finish this book?
My wife is threatening to leave me.
She says I love EMACS more than I love her.
Do you have a recipe that can help me?

Nat
EO_SIG
#-----------------------------
close($mailer)                      or die "can't close mailer: $!";
#-----------------------------
open(SENDMAIL, "|/usr/sbin/sendmail -oi -t -odq")
            or die "Can't fork for sendmail: $!/n";
print SENDMAIL <<"EOF";
From: Tom Christiansen <tchrist/@perl.com>
To: Nathan Torkington <gnat/@frii.com>
Subject: Re: The Perl Cookbook

(1) We will never finish the book.
(2) No man who uses EMACS is deserving of love.
(3) I recommend coq au vi.

tom
EOF
close(SENDMAIL);
#-----------------------------

Reading and Posting Usenet News Messages

#-----------------------------
use Net::NNTP;

$server = Net::NNTP->new("news.host.dom")
    or die "Can't connect to news server: $@/n";
($narticles, $first, $last, $name) = $server->group( "misc.test" )
    or die "Can't select misc.test/n";
$headers  = $server->head($first)
    or die "Can't get headers from article $first in $name/n";
$bodytext = $server->body($first)
    or die "Can't get body from article $first in $name/n";
$article  = $server->article($first)
    or die "Can't get article $first from $name/n";

$server->
postok()

    or warn "Server didn't tell me I could post./n";

$server->post( [ @lines ] )
    or die "Can't post: $!/n";
#-----------------------------
<0401@jpl-devvax.JPL.NASA.GOV>
#-----------------------------
$server = Net::NNTP->new("news.mycompany.com")
    or die "Couldn't connect to news.mycompany.com: $@/n";
#-----------------------------
$grouplist = $server->
list()

    or die "Couldn't fetch group list/n";

foreach $group (keys %$grouplist) {
    if ($grouplist->{$group}->[2] eq 'y') {
        # I can post to $group
    }
}
#-----------------------------
($narticles, $first, $last, $name) = $server->group("comp.lang.perl.misc")
    or die "Can't select comp.lang.perl.misc/n";
#-----------------------------
@lines = $server->article($message_id)
    or die "Can't fetch article $message_id: $!/n";
#-----------------------------
@group = $server->group("comp.lang.perl.misc")
    or die "Can't select group comp.lang.perl.misc/n";
@lines = $server->head($group[1])
    or die "Can't get headers from first article in comp.lang.perl.misc/n";
#-----------------------------
$server->post(@message)
    or die "Can't post/n";
#-----------------------------
unless ($server->
postok()
) {
    warn "You may not post./n";
}
#-----------------------------

Reading Mail with POP3

#-----------------------------
$pop = Net::POP3->new($mail_server)
    or die "Can't open connection to $mail_server : $!/n";
defined ($pop->login($username, $password))
    or die "Can't authenticate: $!/n";
$messages = $pop->list
    or die "Can't get list of undeleted messages: $!/n";
foreach $msgid (keys %$messages) {
    $message = $pop->get($msgid);
    unless (defined $message) {
        warn "Couldn't fetch $msgid from server: $!/n";
        next;
    }
    # $message is a reference to an array of lines
    $pop->delete($msgid);
}
#-----------------------------
$pop = Net::POP3->new( "pop.myisp.com" )
    or die "Can't connect to pop.myisp.com: $!/n";
#-----------------------------
$pop = Net::POP3->new( "pop.myisp.com",
                       Timeout => 30 )
    or die "Can't connect to pop.myisp.com : $!/n";
#-----------------------------
defined ($pop->login("gnat", "S33kr1T Pa55w0rD"))
    or die "Hey, my username and password didn't work!/n";

defined ($pop->login( "midget" ))           # use Net::Netrc to find password
    or die "Authentication failed./n";

defined ($pop->
login())
                     # current username and Net::Netrc
    or die "Authentication failed.  Miserably./n";
#-----------------------------
$pop->apop( $username, $password )
    or die "Couldn't authenticate: $!/n";
#-----------------------------
%undeleted = $pop->
list();

foreach $msgnum (keys %undeleted) {
    print "Message $msgnum is $undeleted{$msgnum} bytes long./n";
}
#-----------------------------
print "Retrieving $msgnum : ";
$message = $pop->get($msgnum);
if ($message) {
    # succeeded
    print "/n";
    print @$message;                # print the message
} else {
        # failed
    print "failed ($!)/n";
}
#-----------------------------

Simulating Telnet from a Program

#-----------------------------
use Net::Telnet;

$t = Net::Telnet->new( Timeout => 10,
                       Prompt  => '/%/',
                       Host    => $hostname );

$t->login($username, $password);
@files = $t->cmd("ls");
$t->print("top");
(undef, $process_string) = $t->waitfor('//d+ processes/');
$t->close;
#-----------------------------
/[/$%#>] $/
#-----------------------------
$telnet = Net::Telnet->new( Errmode => sub { main::log(@_) }, ... );
#-----------------------------
$telnet->login($username, $password)
    or die "Login failed: @{[ $telnet->errmsg() ]}/n";
#-----------------------------
$telnet->waitfor('/--more--/')
#-----------------------------
$telnet->waitfor(String => 'greasy smoke', Timeout => 30)
#-----------------------------

Pinging a Machine

#-----------------------------
use Net::Ping;

$p = Net::Ping->new()
    or die "Can't create new ping object: $!/n";
print "$host is alive" if $p->ping($host);
$p->close;
#-----------------------------
# use TCP if we're not root, ICMP if we are
$pong = Net::Ping->new( ___FCKpd___6gt; ? "tcp" : "icmp" );

(defined $pong)
    or die "Couldn't create Net::Ping object: $!/n";

if ($pong->ping("kingkong.com")) {
    print "The giant ape lives!/n";
} else {
    print "All hail mighty Gamera, friend of children!/n";
}
#-----------------------------

Using Whois to Retrieve Information from the InterNIC

#-----------------------------
use Net::Whois;

$domain_obj = Net::Whois::Domain->new($domain_name)
    or die "Couldn't get information on $domain_name: $!/n";

# call methods on $domain_obj to get name, tag, address, etc.
#-----------------------------
$d = Net::Whois::Domain->new( "perl.org" )
    or die "Can't get information on perl.org/n";
#-----------------------------
print "The domain is called ", $d->domain, "/n";
print "Its tag is ", $d->tag, "/n";
#-----------------------------
print "Mail for ", $d->name, " should be sent to:/n";
print map { "/t$_/n" } $d->address;
print "/t", $d->country, "/n";
#-----------------------------
$contact_hash = $d->contacts;
if ($contact_hash) {
    print "Contacts:/n";
    foreach $type (sort keys %$contact_hash) {
        print "  $type:/n";
        foreach $line (@{$contact_hash->{$type}}) {
            print "    $line/n";
        }
    }
} else {
    print "No contact information./n";
}
#-----------------------------

Program: expn and vrfy

#-----------------------------
#% cat > expn
#!/usr/bin/perl -w
#...
#^D
#% ln expn vrfy
#-----------------------------
#% expn gnat@frii.com
#Expanding gnat at frii.com (gnat@frii.com):
#
#calisto.frii.com Hello coprolith.frii.com [207.46.130.14],
#
#    pleased to meet you
#
#<gnat@mail.frii.com>
#-----------------------------
#% expn gnat@frii.com
#Expanding gnat at mail.frii.net (gnat@frii.com):
#
#deimos.frii.com Hello coprolith.frii.com [207.46.130.14],
#
#    pleased to meet you
#
#Nathan Torkington <gnat@deimos.frii.com>
#
#
#Expanding gnat at mx1.frii.net (gnat@frii.com):
#
#phobos.frii.com Hello coprolith.frii.com [207.46.130.14],
#
#    pleased to meet you
#
#<gnat@mail.frii.com>
#
#
#E
#xpanding gnat at mx2.frii.net (gnat@frii.com):
#
#europa.frii.com Hello coprolith.frii.com [207.46.130.14],
#
#    pleased to meet you
#
#<gnat@mail.frii.com>
#
#
#Expanding gnat at mx3.frii.net (gnat@frii.com):
#
#ns2.winterlan.com Hello coprolith.frii.com [207.46.130.14],
#
#    pleased to meet you
#
#550 gnat... User unknown
#-----------------------------
# download the following standalone program
#!/usr/bin/perl -w
# expn -- convince smtp to divulge an alias expansion
use strict;
use IO::Socket;
use Sys::Hostname;

my $fetch_mx = 0;
# try loading the module, but don't blow up if missing
eval {    
    require Net::DNS;
    Net::DNS->import('mx');
    $fetch_mx = 1;
};

my $selfname = hostname();
die "usage: $0 address/@host .../n" unless @ARGV;

# Find out whether called as "vrfy" or "expn".
my $VERB = ($0 =~ /ve?ri?fy$/i)  ? 'VRFY' : 'EXPN';
my $multi = @ARGV > 1;
my $remote;

# Iterate over addresses give on command line.
foreach my $combo (@ARGV) {
    my ($name, $host) = split(//@/, $combo);
    my @hosts;
    $host ||= 'localhost';
    @hosts = map { $_->exchange } mx($host)     if $fetch_mx;
    @hosts = ($host)   unless @hosts;

    foreach my $host (@hosts) { 
        print $VERB eq 'VRFY' ? "Verify" : "Expand", 
            "ing $name at $host ($combo):";

        $remote = IO::Socket::INET->new(
    		       Proto    => "tcp",
    		       PeerAddr => $host,
    		       PeerPort => "smtp(25)",
    		   ); 

        unless ($remote) { 
            warn "cannot connect to $host/n";
            next;
        }
        print "/n";

        $remote->autoflush(1);

        # use CRLF network line terminators
        print $remote "HELO $selfname/015/012";
        print $remote "$VERB $name/015/012";
        print $remote "quit/015/012";
        while (<$remote>) {
    	        /^220/b/ && next;
    	        /^221/b/ && last;
    	        s/250/b[/-/s]+//;
    	        print;
        } 
        close($remote)			or die "can't close socket: $!";
        print "/n"; #  if @ARGV;
    }
} 

#-----------------------------
bsdplus
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
kubernetes：解决无法dns解析的问题
weixin_43384009的博客
04-23 9463
kubernetes 解决： / # nslookup myservice 不能解析的问题 问题所在：kube-dns错误 [kubeadm@server2 manifest]$ kubectl get pod -o wide NAME READY STATUS RESTARTS AGE IP ...
Linux的DNS配置(resolv.conf)导致Unknown Host问题
黄湘龙的技术博客
05-31 2656
今天接到用户投诉说不定期会收到Unknown Host的错误，怀疑是应用服务器的DNS配置有问题，上应用服务器看了下/etc/resolv.conf，发现配置的第一行是：   options attempts:1 timeout:1   nameserver 10.10.10.10   查询相关配置说明发现DNS这块的逻辑是： 内网的DNS服务器的地址是10.10.10.10，应用...
sinfo: error: resolve_ctls_from_dns_srv: res_nsearch error: Host name lookup failure
撞强※非专业，更专注
06-11 4380
slurm bug id:10066 url:https://bugs.schedmd.com/show_bug.cgi?id=10066
检测perl依赖时报错
JCWang的博客
07-28 838
检测perl依赖时报错 检查缺失的依赖和模块：perl -cw /opt/otrs/bin/cgi-bin/index.pl 报错信息如下 可以看出缺少依赖 perl-namespace-clean 正常思维一定会直接进行安装：apt install perl-namespace-clean -y 一顿操作后系统提示：unable to locate package 。。。 然后转去尝试cpan 安装 可通过“cpan -u”先将cpan升级，此命令会升级所有cpan源，很耗时，可以先跑一段时间(需要的插
小白的初次更新------Perl教程（上）
m0_74828982的博客
09-17 1581
Perl，一种功能丰富的计算机程序语言，运行在超过100种计算机平台上，适用广泛，从大型机到便携设备，从快速原型创建到大规模可扩展开发。Perl 语言的应用范围很广，除CGI以外，Perl被用于图形编程、系统管理、网络编程、金融、生物以及其他领域。由于其灵活性，Perl被称为脚本语言中的瑞士军刀。Perl是由Larry Wall设计的，并由他不断更新和维护的编程语言。Perl具有高级语言（如C）的强大能力和灵活性。事实上，你将看到，它的许多特性是从C语言中借用来的。
无涯教程-Perl - foreach 语句函数
无涯教程
08-05 950
foreach循环遍历列表值，并将控制变量(var)依次设置为列表的每个元素-
git : 依赖: liberror-perl 但无法安装它
小牧在一直在学习,在前进的道路上大家一起学习，进步。
03-31 2671
Ubuntu 系统使用 sudo apt install git 安装git 提示如下： 正在读取软件包列表… 完成 正在分析软件包的依赖关系树 正在读取状态信息… 完成 有一些软件包无法被安装。如果您用的是 unstable 发行版，这也许是 因为系统无法达到您要求的状态造成的。该版本中可能会有一些您需要的软件 包尚未被创建或是它们已被从新到(Incoming)目录移出。 下列信息可能会对解决问题有所帮助： 下列软件包有未满足的依赖关系： git : 依赖: liberror-perl 但无法安装它 E:
脚本---perl与python的比较
weixin_44748341的博客
09-20 4335
文章目录一、起源和特点二、基本数据类型三、控制流（一）if条件判断（二）for循环（三）while循环（四）循环控制符四、函数（一）定义（二）返回值（三）调用（四）参数五、包和模块六、面向对象OOP七、正则表达式八、线程1.Perl2.Python Perl 和 Python 都是开源的，但其哲学理念却刚好相反，因此常被人们将这两种语言放在一起进行比较。 本文将从 Perl 和 Python 的起源、基本数据类型、控制流、函数、包与模块、面向对象、正则表达式以及线程等方面进行比较。 一、起源和特点   
WIndows Perl-5.36的下载安装记录
weixin_43493507的博客
05-08 6826
同时点击“Win”+“R”，或搜索“运行”，在对话框内输入“cmd”，进行管理员命令行。在命令行内右击复制上一步的命令，点击回车进行perl的下载安装。进入下载工程配置界面，选择安装组件的名称“Perl”和版本“5.36”，页面下拉，可选择默认配置，或者根据需要进行选配（我选择了默认配置）。注意：该步骤后需要进行账户登录，可选择使用GitHub的账户，也可单独注册。下载工程名配置，并点击“Finish & Install Perl”，如下图。perl官网：https://www.perl.org/
perl 程序 -e 选项
得峰的专栏 [网络收藏]
04-20 6480
交互式编程你可以在命令行中使用 -e 选项来输入语句来执行代码，实例如下：交互式编程你可以在命令行中使用 -e 选项来输入语句来执行代码，实例如下：$ perl -e 'print "Hello World\n"'输入以上命令，回车后，输出结果为：Hello World...
strawberry-perl-5.32.1.1-64bit
04-22
这个"strawberry-perl-5.32.1.1-64bit"压缩包是针对64位系统的，这意味着它设计用于运行在64位版本的Windows上。Perl是一种功能强大的脚本语言，广泛应用于文本处理、网络编程、系统管理任务以及各种Web应用程序。 ...
strawberry-perl-5.38.0.1-64bit-portable.zip
02-26
本文将深入探讨"strawberry-perl-5.38.0.1-64bit-portable.zip"这个压缩包的内容及其重要性。 该压缩包名为"strawberry-perl-5.38.0.1-64bit-portable.zip"，表明这是一款基于Perl 5.38.0.1版本的64位便携版...
strawberry-perl-5.32.1.1-64bit perl 解释器
04-19
"strawberry-perl-5.32.1.1-64bit" 是一个专为Windows平台设计的Perl解释器，它包含了Perl 5.32.1.1版本，并且是64位的。Strawberry Perl是一个完整的Perl发行版，包含了编译器、库、工具和其他必要的组件，使得用户...
sonar-perl：SonarQube的社区Perl插件
02-05
用于SonarQube的Perl 5插件这是一个用于集成流行功能，例如代码覆盖率，Perl :: Critic和Perl 5项目的测试报告。版本兼容性我们支持7.9（LTS）的所有SonarQube版本。 请在我们的报告错误或不兼容。当前状态当前的...
strawberry-perl-5.32.1.1-64bit.msi
06-17
strawberry-perl-5.32.1.1-64bit.msi离线安装包（官方），可避免从官网下载速度慢的问题。 windows环境的perl安装包，不用去官网下载了，测试好用。 strawberry-perl-5.32.1.1-64bit.msi离线安装包（官方），可避免...
Perl 哈希
最新发布
07-22 285
Perl 哈希是一种关联数组，其中每个元素都是一个键值对。键是唯一的，用于访问对应的值。哈希的键和值可以是任何类型的数据，包括数字、字符串和引用。哈希通常用于存储和检索数据，以及实现复杂的数据结构。
Perl语言入门学习指南
Wikino的博客
07-18 545
本文介绍了Perl语言的基本知识，包括环境准备、基础语法和实际应用。通过学习和实践，读者可以掌握Perl的基本使用方法，并能应用于文本处理、系统管理和Web开发等实际场景。希望通过本文的介绍，能够帮助读者快速上手Perl，并解决实际问题。
掌握Perl的魔法：深入探索钩子（Hook）机制
2401_85761003的博客
07-20 463
钩子在Perl中是一种高级特性，它们允许对语言的某些内置操作进行拦截和扩展。编译时钩子：在代码执行之前，编译阶段触发。运行时钩子：在代码执行过程中，运行时触发。输入/输出钩子：在输入输出操作发生时触发。
Linux云计算 |【第一阶段】ENGINEER-DAY5
小安的运维专栏
07-18 1026
SELinux、系统故障修复、HTTPD/FTP服务搭建、防火墙策略管理、服务管理

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

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

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值