语法格式如下：
BEGIN { ... }
END { ... }
BEGIN { ... }
END { ... }
#!/usr/bin/perl
package
Foo
;
sub
bar
{
print
"
Hello
$_
[0]
\n
"
sub
blat
{
print
"
World
$_
[0]
\n
"
Perl 中关于模块需要注意以下几点：
函数
require
和
use
将载入一个模块。
@INC
是 Perl 内置的一个特殊数组，它包含指向库例程所在位置的目录路径。
require
和
use
函数调用
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!
创建 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 install
首先运行 "perl Makefile.PL" 在当前目录生成 Makefile；
然后运行 "make" 编译并创建所需的库文件；
之后用 "make test" 测试编译结果是否正确；最后运行 "make install" 将库文件安装到系统目录，至此整个编译过程结束。
