在 Perl 中，包和模块是面向对象编程的重要组成部分，用于组织代码、管理命名空间和实现代码重用。

包 (Package)

包是一种用于创建独立命名空间的机制。在 Perl 中，你可以使用 package 关键字来定义一个包。定义包可以避免命名冲突，因为同一个变量名在不同的包中会被认为是不同的变量。下面是一个简单的包定义示例：

package Animal;  
sub speak {  
    print "Animal speaks!\n";  
}  
1;  # 包文件通常以1结尾，表示成功加载  

与包相关的一些要点：
- 包名通常与文件名相对应，这有助于模块的组织。
- 一个文件可以包含多个包定义。
- 使用 package 后的所有全局变量和子程序都属于该包，直到下一个 package 声明。

模块 (Module)

模块是 Perl 程序代码的分组，它通常是以 .pm 为扩展名的文件，模块利用包来实现面向对象编程和代码重用。模块通常是以包为基础来构建的。

使用模块有几个步骤：
1. 使用 package 定义模块。
2. 实现模块的功能，如子程序或方法。
3. 使用 use 关键字在应用程序中引入模块。

一个简单的 Perl 模块示例：

# Cat.pm  
package Cat;  
sub meow {  
    print "Meow!\n";  
}  
1;  

然后在你的 Perl 脚本中使用这个模块：

use Cat;  
Cat::meow();  

创建和使用模块的要点

• 模块是重用代码的单元，通常由一组相关的子程序和变量组成。
• 定义模块的文件通常以模块名作为文件名，例如 Foo::Bar 模块通常存放在 Foo/Bar.pm 文件中。
• 使用 use 关键字来加载模块，use 会在编译时加载模块，并引入它的命名空间，包括对模块中 export 出来的符号的访问。
• 可以通过 Exporter 模块来定义哪些符号（如变量或子程序）可以被导出。

Exporter 模块

Perl 提供了 Exporter 模块，可以方便地将子程序和变量从一个模块导出到用户程序的命名空间中。

# Example.pm  
package Example;  
use Exporter 'import';  
# 定义默认导出的和可选择导出的子程序  
our @EXPORT_OK = qw(func1 func2);  # 显式导出  
our @EXPORT = qw(func1);           # 默认导出  
sub func1 {  
    print "Function 1\n";  
}  
sub func2 {  
    print "Function 2\n";  
}  
1;  

在你的脚本中，可以这样引入：

use Example qw(func2);  
func2();  # 输出 "Function 2"  

通过 use Example qw(func2);，明确导入了 func2 子程序，而 func1 子程序由于未明确导入将无法直接使用。

通过理解和运用包和模块，Perl 程序员可以创建良好组织和可扩展的代码，这在大型项目中尤为重要。