任何一门编程语言，之所以能够流行于世上，被程序员们所喜爱。其原因在于代码的能够重复利用，不仅仅可以在语言中方便、快捷的引入自己以前写过的代码，积累的各种轮子，而且还能使用各位编程大神分享出来的工具库。

Perl语言同样也不例外。

在Perl中，命名空间成为包（Package）。包提供了基本构造模块，基于这些构造模块，可以构建更高层次的模块和类概念。包，通常只是一个文件，文件名要与包名称相同，文件名后缀为.pm（perl module简写，意为perl模块）。模块在Perl中是可重用的基本单位。在我们自己的Perl脚本中，可以用“use 模块名”导入一个可重用的模块。

在讨论Perl语言的包和模块之前，我想说一句，如果单纯使用perl完成一些运维工作，写一些脚本之类的。仅仅知道使用use去导入模块就行了。但是，如果想写一些可以重复使用的代码，就需要继续阅读文章下面的部分。

一、符号表和限定名

在讲Perl语言的包和模块时，很多书籍都会讲这两个概念。但是，对于初学者，以及那些长期用于解决实际问题（大部分程序员都是如此）的人来说，不造高深的轮子，这两个概念仅仅知道即可，不必深入阅读（这两个概念，放在和任意种编程语言比较都很懵逼，都不如Rust的生命周期好理解！Perl难学就在于这种自己造的名词太多了有关）。下面，我就简单提一下这两个名词怎么理解：

1.符号表：我们的包或者模块的.pm文件，内部一般包含什么东西呢？可想而知，主要是定义的、需要在其他.pl文件中使用的函数、变量，而这些函数、标量组成的列表，就是符号表。符号表，是perl语言编译器自己用于知道一个.pm文件包含哪些函数、变量用的。

2.限定名：这个概念，在后续使用模块时会偶尔用到。限定名这个概念，主要指一个模块中的变量或者函数的全名。下面，我通过一个例子解释一下：

例如说（举个例子，实际模块中没有）在DBI模块中，存在一个$example_var变量和example_sub()方法，当我们在程序中使用use DBI引入模块后，如果在你的程序中同样存在一个$example_var变量和一个example_sub()方法时，怎么区分二者呢？

这就是限定名的作用，我们可以在名称前面增加DBI::前缀来表示DBI模块中的变量和方法，这就写作DBI::$example_var和DBI::example_sub()。对于我们自己程序中的变量和函数，实际上，同样存在一个限定名main::，只是在默认情况下可以省略，这就成为了main::$example_var和main::example_sub()。

二、包和模块名称

拿一些会经常使用的模块名称来说吧，例如telnet模块Net::Telnet，SSH模块Net::SSH，或者Cisco交换机配套的Net::Telnet::Cisco。

对于这些名称而言，可以这样理解（仅仅是理解，不一定正确）：用“::”分割的词语，最后一位是模块的名称，而前面的几位，相当于分类、类别。例如说Net::前缀，表示的是网络类的模块，而Net::Telnet::Cisco来说，Net::Telnet::意味从Net::Telnet的进一步开发出来的模块。而这种起名称的方式，仅仅是字面意思，或者说是为了更好理解，实际上换其他名称也可以。

当然了，这些::标志分隔的单词，还有另一种意思，代表的放置.pm文件的路径名称，而::最后一位是文件名，从右向左依次为上级目录的名称。

例如 Net::Telnet::Cisco,代表的是Net/Telnet/Cisco.pm文件。而Net::Telnet代表的是，Net目录下的Telnet.pm，SSH.pm同理。

当我们使用use Net::Telnet::Cisco 时，perl会自动的将::替换为路径分隔符，并在末尾增加后缀.pm，然后去查找目录并引入模块文件。

三、AUTOLOAD

这个东西一般是用来写给其他开发者使用的模块，也就是造轮子时用的。其用法类似于java的接口、抽象类。基本是用不到的，可以跳过去。

感兴趣的可以自己去翻阅资料，不赘述。

四、构造属于自己的模块

构造模块很简单，根据前面名称和对应的目录放置模块，然后在.pm文件中添加标准的三句话即可，如下所示：

package Example;
#标准三件套：
require Exporter;
our @ISA = qw(Exporter);
our @EXPORTER = qw( helloworld ); #此处放置要导出使用的函数或变量
#end

sub helloworld {
    print "Hello World!/n";
}

1

五、总结

包和模块，相关书籍中涉及的概念很多、很乱，初学者头一次看会被搞得晕头转向。我并不指望各位读者通过阅读《清新的PERL》学会怎么用Perl语言，仅仅想作为一个学习Perl语言的思路，理清Perl中那些独特的、不流行的概念。

前一篇博文中我讲了Perl函数的四个要点，对于初学者来说最先搞懂这四个要点，就可以用perl语言写一些简单的通用方法了（还请大家根据上篇的四个要点重点学习和阅读书籍材料）。而若想更加熟练的使用Perl函数，以及后续使用CPAN上的各种库，“引用”这道坎是必须要迈过去的。

说到引用，各大教材往往会先说符号引用，再说硬引用。在这里要说下，都2019年了，符号引用是老古董了，Perl5已经到5.30版本了（大部分通行的中文书籍，写的时候才5.10或是5.14版本，05年-09年时期的）。不要再一头扎进去先看符号引用了。重点要搞懂的是硬引用。

硬引用，是一个标量，记住是一个标量，代表的是变量的内存地址。

引用（以后泛指硬引用），广泛使用在数组和散列作为参数传递给函数，或者函数返回值两个方面。

#其使用方法也相当的简单，下面是一个数组变量和散列变量：
my @array;
my %hash;
#引用的表示方法：
$array_address = \@array; #获取数组变量的地址
$hash_address = \%hash;   #获取散列变量的地址

#如果我们从地址中重新获取变量怎么办呢：
@$array_address #表示数组变量和@array等价
%$hash_address #表示散列变量和%hash等价

在这里，有一个小提示，在CPAN上阅读模块的文档资料时，经常会出现单词reference，该单词就是引用的英文表达，说ref（简写，通常出现在变量名称中）或者reference通常情况下就是讲的引用。

一、作为参数的引用

前一章节中我已经讲过了Perl语言中函数传递的原理，是使用了一个数组变量@_。@_这个变量数组，具有十分强大的整合能力——这个意思是说，如果你函数的参数，传入的是两个数组变量，会被整合为一个数组@_。如果传入的是几个标量变量和几个数组，同样会被整合为一个数组@_。

当你真正要在函数内部使用时候数组变量的时候，你会发现，你根本无法分清在@_里的元素，哪些是原来的标量，哪些是原来数组的元素。

为了解决这个问题，我们就需要使用引用。通过将一个数组的内存地址作为标量直接传递到函数中，以此保证数组的完整性。

二、函数返回值

通常，作为初学者，不会需要设计一个函数返回一个引用。但是，cpan中的很多库，会用这种方式返回数据，最常用的是数据库查询返回值。

本篇，我将讲解perl中另一个重要的数据结构——散列。散列，通俗讲就是什么都能装得下的“键值对”数据结构。散列的键，是字符串；而值可以是标量、数组甚至散列。

散列与数组组合使用，成为散列的数组、数组的散列是perl语言开发的黄金钥匙。

数据结构是编程的关键基础，像python、perl、ruby这样的脚本语言，最大的编程优势就在于拥有强大、简便的模块库，无论是操作excel表格、通过ssh远程服务器、开发网站等等操作，只需要调用库中的函数，便可以轻松的得到返回值。然后，将返回值放入标量、数组、散列或者三者的组合结构中，利用这三种变量提供的方法、正则表达式还有for、if控制结构实现对提取到的数据的加工。最后，再借助模块库，或是显示在屏幕中、或是存在数据库中、又或者用web展示出来。

对与perl语言的散列来说，入门学习阶段重点有三处：

1. 如何初始化一个散列，如何赋值一个散列。
2. 如何用for循环以及keys方法遍历散列中的键值对。
3. 如何用exists判断散列中的某一个键是否存在。

一、散列的初始化和赋值

对于perl的散列，首先要记住的是散列符号%。用百分号%后面跟字母、下划线以及数字来声明一个散列变量。

%a;
%b;
%perl_hash;

在散列初始化赋值中，虽然perl语言有很多的形式，但是为了规范化和便于其他人阅读理解，我推荐养成使用“=>”符号来区分键值对：

%site = ('google'=>'google.com',
         'runoob'=>'runoob.com', 
         'taobao'=>'taobao.com');
#对于键，一直是字符串，所以可以不用加引号；但是值如果是字符串需要加引号：
%site = ( google =>'google.com',
          runoob =>'runoob.com', 
          taobao =>'taobao.com');
#我们可以增加一个新浪网址：
$site{sina} = 'sina.com';
#我们可以在散列site中加入一个数组：
@a = (1,2,3,4,5,6);
$site{array} =  \@a;#意为散列site的键array赋值了一个数组。
#我们来给散列赋值一个散列：
%b = (perl => "so easy!",
      python => "so easy too!");
$site{hash} = \%b;
#当然对于散列的散列赋值，更加通常的办法是：
$site{hash}{perl}="so easy!";
$site{hash}{python}="so easy too!";

#我们来读取散列中的值
#打印标量：
print $site{google}."\n"; #显示google.com
#打印数组中的值
print $site{array}[3]."\n";
#打印散列中的散列:
print $site{hash}{python};

以上就是perl的散列基本用法。其中对于数组和散列赋值给散列，需要使用“引用”技术，我将在后面的博文中进行讲解。

二、for循环和keys方法

perl散列与循环搭配，最常用的方法就是遍历散列中每一个键对应的值。常用格式如下：

%hash = (perl => "so easy!",
         python => "so easy too!",
         ruby => "it like perl!");
for $key (keys %hash){
   print $key."\t";        #打印键
   print $hash{$key}."\n"; #打印值
};

注意for语句的使用格式即可。

三、exists方法判断散列中的键

exists方法常用的场景很多，比如说：

用perl语言编写web后台，当前端使用JavaScript语言post发送json数据给后台时，perl语言会把json格式转化为散列（两者是完全相同的，极好理解），我们往会根据json数据包含的对象（也就是散列中的键）进行判断，并为用户返回不一样的网页内容。

exists方法使用格式如下：

if exists $hash{key} {
   print "yes!\n";
} else {
   print "no!\n";
}

好了，我们这一篇博文就结束了，散列方面请大家结合手头的书籍重点学习初始化、赋值、keys和exists即可入门。

下一篇，我将讲解perl语言的子函数。

前一篇，我简单介绍了Perl语言的变量——标量、数组和散列。主要讲三种变量的写法。从此篇起的三篇，我将讲解三种变量赋值和使用的常用方法。

一 标量

说起标量，作为Perl语言中最基本的变量单位，可以说是什么都能赋值给它。鞥？什么都能赋值？当然，即便是数组和散列都能赋值给它（后面，我会讲解这个，也就是Perl语言学习的难点——引用）。

在真正的使用中，标量一般有如下用处：

1. 赋值数字，进行数学计算。
2. 赋值字符串，进行文本处理。

Perl语言的主要优势在于文本处理。凡是在工作中遇到的需要处理文本的工作，都可以用Perl来实现。至于数学计算，和C语言是相似的，各种教程一大把，也就不需要我多说什么了。接下来，我主要讲讲字符串。

二 字符串

字符串，在学习正则表达式之前能够做的事情不多。做字符串处理嘛，目的就是要从一堆字符串里面提取有用的信息。在没有学习正则表达式之前，字符串处理方法，大家重点关注学习下面两点即可：

1. 如何将字符串与字符串，字符串与变量进行合并连接。
2. split函数，如何用split函数将一个字符串分割为多个变量或者数组。

首先讲的是字符串连接：

#两个字符串之间的连接使用“.”符号的：
$a = "I love"."Perl";
print $a; #屏幕上将显示I love Perl.
#字符串和变量连接：
$b = $a."Because it is so easy";
print $b; #屏幕上将显示I love Perl Because it is so easy

注意：关于Perl语言字符串的双引号（””）与单引号（”）间的区别，请自行百度。

然后，讲下split函数：

split函数主要作用是，将一个字符串根据其中的某一个字符进行分割，例如字母、数字、逗号、冒号、小数点等等各种符号。例如：

$a = '苹果，菠萝，香蕉';
$b,$c,$d = split /，/, $a; #现在$b为苹果，$c为菠萝，$d为香蕉

下面一个例子：

$a = '苹果 菠萝 香蕉';
$b,$c,$d = split / /, $a; #现在$b为苹果，$c为菠萝，$d为香蕉

三 要点解释

关于标量的学习，主要了解标量如何赋值即可。

关于字符串的学习，字符串连接很简单，重点放在学习split上，请多加练习和理解。

下一篇，我将讲解数组。