Perl
+ -

Perl 包和模块

2019-09-09 1 0

Perl 中每个包有一个单独的符号表,定义语法为:

package mypack;

此语句定义一个名为 mypack 的包,在此后定义的所有变量和子程序的名字都存贮在该包关联的符号表中,直到遇到另一个 package语句为止。

每个符号表有其自己的一组变量、子程序名,各组名字是不相关的,因此可以在不同的包中使用相同的变量名,而代表的是不同的变量。

从一个包中访问另外一个包的变量,可通过” 包名 + 双冒号( :: ) + 变量名 “ 的方式指定。

存贮变量和子程序的名字的默认符号表是与名为 main的包相关联的。如果在程序里定义了其它的包,当你想切换回去使用默认的符号表,可以重新指定main包:

package main;

这样,接下来的程序就好象从没定义过包一样,变量和子程序的名字象通常那样存贮。

以下实例中文件有 main 和 Foo 包。 特殊变量 PACKAGE 用于输出包名:

实例

#!/usr/bin/perl
#  main 包
$i = 1; 
print "包名 : " , __PACKAGE__ , " $i\n"; 
package Foo;
#  Foo 包
$i = 10; 
print "包名 : " , __PACKAGE__ , " $i\n"; 
package main;
# 重新指定 main 包
$i = 100; 
print "包名 : " , __PACKAGE__ , " $i\n"; 
print "包名: " , __PACKAGE__ ,  " $Foo::i\n"; 
1;

执行以上程序,输出结果为:

包名 : main 1
包名 : Foo 10
包名 : main 100
包名: main 10

BEGIN 和 END 模块

Perl语言提供了两个关键字:BEGIN,END。它们可以分别包含一组脚本,用于程序体运行前或者运行后的执行。

语法格式如下:

BEGIN { ... }
END { ... }
BEGIN { ... }
END { ... }
  • 每个 BEGIN 模块在 Perl 脚本载入和编译后但在其他语句执行前执行。

  • 每个 END 语句块在解释器退出前执行。

  • BEGINEND 语句块在创建 Perl 模块时特别有用。

如果你还不大理解,我们可以看个实例:

实例

#!/usr/bin/perl
package Foo;
print "Begin 和 Block 实例\n";
BEGIN { 
    print "这是 BEGIN 语句块\n"}
END { 
    print "这是 END 语句块\n"}
1;

执行以上程序,输出结果为:

这是 BEGIN 语句块
Begin 和 Block 实例
这是 END 语句块

什么是 Perl 模块?

Perl5 中用Perl包来创建模块。

Perl 模块是一个可重复使用的包,模块的名字与包名相同,定义的文件后缀为 .pm

以下我们定义了一个模块 Foo.pm,代码如下所示:

实例

#!/usr/bin/perl
package Foo;
sub bar { 
   print "Hello $_[0]\n"}
sub blat { 
   print "World $_[0]\n"}
1;

Perl 中关于模块需要注意以下几点:

  • 函数 requireuse 将载入一个模块。

  • @INC 是 Perl 内置的一个特殊数组,它包含指向库例程所在位置的目录路径。

  • requireuse 函数调用 eval 函数来执行代码。

  • 末尾 1; 执行返回 TRUE,这是必须的,否则返回错误。


Require 和 Use 函数

模块可以通过 require 函数来调用,如下所示:

实例

#!/usr/bin/perl
require Foo;
Foo::bar( "a" );
Foo::blat( "b" );

也可以通过 use 函数来引用:

实例

#!/usr/bin/perl
use Foo;
bar( "a" );
blat( "b" );

我们注意到 require 引用需要使用包名指定函数,而 use 不需要,二者的主要区别在于:

  • 1、require用于载入module或perl程序(.pm后缀可以省略,但.pl必须有)
  • 2、Perl use语句是编译时引入的,require是运行时引入的
  • 3、Perl use引入模块的同时,也引入了模块的子模块。而require则不能引入,要在重新声明
  • 4、USE是在当前默认的@INC里面去寻找,一旦模块不在@INC中的话,用USE是不可以引入的,但是require可以指定路径
  • 5、USE引用模块时,如果模块名称中包含::双冒号,该双冒号将作为路径分隔符,相当于Unix下的/或者Windows下的\。 如:

    use MyDirectory::MyModule
    

通过添加以下语句 use 模块就可以从模块中导出列表符号:

require Exporter;
@ISA = qw(Exporter);

@EXPORT数组包含默认导出的变量和函数的名字:

package Module;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(bar blat);  # 默认导出的符号
sub bar { print "Hello $_[0]\n" }
sub blat { print "World $_[0]\n" }
sub splat { print "Not $_[0]\n" }  # Not exported!
1;

创建 Perl 模块

通过 Perl 分发自带的工具 h2xs 可以很简单的创建一个 Perl 模块。

你可以在命令行模式键入 h2xs 来看看它的参数列表。

h2xs 语法格式:

$ h2xs -AX -n  ModuleName

参数说明:

  • -A 忽略 autoload 机制

  • -X 忽略 XS 元素

  • -n 指定扩展模块的名字

例如,如果你的模块在 Person.pm 文件中,使用以下命令:

$ h2xs -AX -n Person

执行以上程序将输出:

Writing Person/lib/Person.pm
Writing Person/Makefile.PL
Writing Person/README
Writing Person/t/Person.t
Writing Person/Changes
Writing Person/MANIFEST

Person 目录下你可以看到新增加的目录及文件说明:

  • README :这个文件包含一些安装信息,模块依赖性,版权信息等。

  • Changes :这个文件作为你的项目的修改日志(changelog)文件。

  • Makefile.PL :这是标准的 Perl Makefile 构造器。用于创建 Makefile.PL 文件来编译该模块。

  • MANIFEST :本文件用于自动构建 tar.gz 类型的模块版本分发。这样你就可以把你的模块拿到 CPAN 发布或者分发给其他人。它包含了你在这个项目中所有文件的列表。

  • Person.pm :这是主模块文件,包含你的 mod_perl 句柄代码(handler code)。

  • Person.t :针对该模块的一些测试脚本。默认情况下它只是检查模块的载入,你可以添加一些新的测试单元。

  • t/ :测试文件

  • lib/ :实际源码存放的目录

你可以使用 tar (Linux 上) 命令来将以上目录打包为 Person.tar.gz。


安装 Perl 模块

我们可以对刚才压缩的 Person.tar.gz 文件进行解压安装,执行步骤如下:

tar xvfz Person.tar.gz
cd Person
perl Makefile.PL
make
make install

首先运行 “perl Makefile.PL” 在当前目录生成 Makefile;

然后运行 “make” 编译并创建所需的库文件;

之后用 “make test” 测试编译结果是否正确;最后运行 “make install” 将库文件安装到系统目录,至此整个编译过程结束。

0 篇笔记 写笔记

Perl foreach 循环
Perl foreach 循环用于迭代一个列表或集合变量的值。语法语法格式如下所示:foreach var (list) {...}流程图实例#!/usr/bin/perl@list = (2, 12, 36, 42, 51);# 执行foreach 循环foreach $a (@list){ ......
Perl if...elsif...else 语句
一个 if 语句后可跟一个可选的 elsif 语句,然后再跟另一个 else 语句。这种条件判断语句在多个条件的情况下非常有用。在使用 if , elsif , else 语句时你需要注意以下几点。if 语句后可以跟上 0 个 或 1 个 else 语句,但是 elsif 后面必须有 else 语句......
Perl continue 语句
Perl continue 块通常在条件语句再次判断前执行。continue 语句可用在 while 和 foreach 循环中。语法while 循环中 continue 语句语法格式如下所示:while(condition){ statement(s);}continue{ stateme......
Perl 引用
引用就是指针,Perl 引用是一个标量类型可以指向变量、数组、哈希表(也叫关联数组)甚至子程序,可以应用在程序的任何地方。创建引用定义变量的时候,在变量名前面加个,就得到了这个变量的一个引用,比如:$scalarref = $foo; # 标量变量引用$arrayref = @ARG......
Bochs 鼠标mouse
鼠标定义了模拟鼠标类型的参数、鼠标捕获的初始状态以及切换它的运行时方法。type鼠标类型选项,您可以选择要模拟的鼠标类型。默认值为“ps2”。其他选项有’imps2’(PS/2上的滚轮鼠标)、’serial’、’serial_wheel’、’serial_msys’(一个com端口需要设置’mode......
Perl POD 文档
Perl 中可以在模块或脚本中嵌入 POD(Plain Old Documentation) 文档。POD 是一种简单而易用的标记型语言(置标语言)。POD 文档使用规则:POD 文档以 =head1 开始, =cut 结束, =head1 前与 =cut 后添加一空行。Perl 会忽略 POD 中......
Perl 简介
Perl,一种功能丰富的计算机程序语言,运行在超过100种计算机平台上,适用广泛,从大型机到便携设备,从快速原型创建到大规模可扩展开发。Perl语言的应用范围很广,除CGI以外,Perl被用于图形编程、系统管理、网络编程、金融、生物以及其他领域。由于其灵活性,Perl被称为脚本语言中的瑞士军刀。Pe......
Perl 面向对象
Perl 中有两种不同地面向对象编程的实现:一是基于匿名哈希表的方式,每个对象实例的实质就是一个指向匿名哈希表的引用。在这个匿名哈希表中,存储来所有的实例属性。二是基于数组的方式,在定义一个类的时候,我们将为每一个实例属性创建一个数组,而每一个对象实例的实质就是一个指向这些数组中某一行索引的引用。在......
设计模式 中介者模式
中介者模式(MediatorPattern)是用来降低多个对象和类之间的通信复杂性。这种模式提供了一个中介类,该类通常处理不同类之间的通信,并支持松耦合,使代码易于维护。中介者模式属于行为型模式。介绍意图:用一个中介对象来封装一系列的对象交互,中介者使各对象不需要显式地相互引用,从而使其耦合松散,而......
设计模式 过滤器模式
过滤器模式(Filter Pattern)或标准模式(CriteriaPattern)是一种设计模式,这种模式允许开发人员使用不同的标准来过滤一组对象,通过逻辑运算以解耦的方式把它们连接起来。这种类型的设计模式属于结构型模式,它结合多个标准来获得单一标准。实现我们将创建一个 Person 对象、 C......
Perl 格式化输出
Perl 是一个非常强大的文本数据处理语言。Perl 中可以使用 format 来定义一个模板,然后使用 write 按指定模板输出数据。Perl 格式化定义语法格式如下:format FormatName =fieldlinevalue_one, value_two, value_threefie......
Perl 包和模块
Perl 中每个包有一个单独的符号表,定义语法为:package mypack;此语句定义一个名为 mypack 的包,在此后定义的所有变量和子程序的名字都存贮在该包关联的符号表中,直到遇到另一个 package语句为止。每个符号表有其自己的一组变量、子程序名,各组名字是不相关的,因此可以在不同的包......
.NET Core模块
.NET Core的另一个考虑是构建和实现模块化的应用程序。现在,应用程序现在可以只安装所需的内容,而不是安装整个.NET Framework。下面来看看解决方案浏览器中的模块化。这是一个简单的.NET Core应用程序,在 解 决方案资源管理器 中展开引用,可以看到对.NETCoreApp的引......
Redis HyperLogLog算法
Redis HyperLogLog是一种使用随机算法的算法,目的是仅使用一个常量和少量的内存就可以估算一组集合中唯一元素的数量。HyperLogLog可以很好地近似集合的基数,即使使用很少的内存,标准误差为0.81%,可以计数的项目数没有限制,除非您处理2 64 个项目。HyperLogLog -......
Perl while 循环
while 语句在给定条件为 true 时,重复执行语句或语句组。循环主体执行之前会先测试条件。语法语法格式如下所示:while(condition){ statement(s);}在这里,statement(s) 可以是一个单独的语句,也可以是几个语句组成的代码块。condition 可以是任......
取消
感谢您的支持,我会继续努力的!
扫码支持
扫码打赏,你说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

您的支持,是我们前进的动力!