Perl 模块：use 与 require

'use' 基本用法

理解 use 是 Perl 中的编译时指令，用于加载模块并导入其符号。

编写 use Module; 语句来加载一个模块。

use strict;          # 启用严格模式
use warnings;        # 启用警告
use CGI;             # 加载 CGI 模块
use LWP::UserAgent;  # 加载 LWP 的 UserAgent 子模块

注意 use 语句在编译阶段执行，这意味着它会在代码运行前就加载模块。

'require' 基本用法

编写 require 'filename.pm'; 来加载一个模块文件。

require 'MyModule.pm';    # 加载当前目录下的模块
require CGI;              # 加载 CGI 模块
require LWP::UserAgent;   # 加载 LWP::UserAgent 模块

理解 require 在运行时执行，只有在程序执行到该行时才会加载模块。

'use' 与 'require' 的核心区别

1. 执行时机

区分 use 在编译时执行，而 require 在运行时执行。

验证 创建一个测试脚本：

print "开始执行\n";
use TestModule;  # 编译时就执行
print "继续执行\n";
require TestModule;  # 运行到此处时执行
print "结束执行\n";

观察 如果 TestModule.pm 中有打印语句，会发现 use 的输出会在程序开始时就出现，而 require 的输出只有在执行到那一行时才会出现。

2. 导入功能

掌握 use 具有自动导入功能，可以导入模块中导出的符号。

尝试 使用 use 导入模块中的函数：

use Math::Trig;         # 导入 Math::Trig 模块的所有导出函数
my $angle = deg2rad(90); # 直接使用导入的函数
```

**实现** 通过 `Exporter` 模块控制导出：

```perl
# 在模块中
package MyModule;
use Exporter qw(@EXPORT);
our @EXPORT = qw(function1 function2);

sub function1 {
    return "这是函数1";
}

sub function2 {
    return "这是函数2";
}
```

**理解** `require` 没有自动导入功能，需要手动导入：

```perl
require MyModule;
my $result = MyModule::function1();  # 必须使用完整包名

3. 重复加载控制

利用 use 会自动检查模块是否已经加载，避免重复加载。

测试 尝试多次使用 use 加载同一模块：

use CGI;
use CGI;  # 第二次会被忽略

实现 require 也会避免重复加载，但语法不同：

require CGI;
require CGI;  # 第二次会被忽略

4. 错误处理

处理 use 在模块加载失败时会立即终止程序：

use NonExistentModule;  # 如果模块不存在，程序会立即终止
print "这行不会执行";

控制 require 在加载失败时返回 false，但不终止程序：

eval {
    require NonExistentModule;
};
if ($@) {
    print "模块加载失败: $@\n";
    # 可以继续执行其他代码
}
print "即使模块加载失败，这行也会执行";

实际应用场景

使用 'use' 的场景

选择 use 适用于以下情况：

1. 依赖模块必须在程序运行前就准备就绪
2. 需要使用模块导出的函数而不想写完整包名
3. 编译时就需要模块常量或子例程

示例：

# 基本配置
use strict;
use warnings;
use 5.010;  # 指定 Perl 版本

# 使用模块功能
use DBI;
use JSON::XS;
use DateTime;

# 使用模块常量
use Math::Constants PI => '$PI';
print "PI 的值是: $PI\n";

使用 'require' 的场景

选择 require 适用于以下情况：

1. 条件性加载模块
2. 运行时动态加载
3. 避免不必要的模块依赖

示例：

# 条件性加载
if ($feature_enabled) {
    require Some::Feature::Module;
    Some::Feature::Module->enable();
}

# 运行时动态加载
my $module_name = $ARGV[0] || 'Default::Module';
eval "require $module_name";
if ($@) {
    die "无法加载模块: $@";
}

# 延迟加载以加快程序启动速度
sub get_processor {
    require Text::Processor;
    return Text::Processor->new();
}

'use' 的高级用法

自定义导入列表

指定 只导入需要的函数：

use CGI qw(:standard);  # 只导入 :standard 标签中的函数
use CGI qw(header param);  # 只导入 header 和 param 函数

命名导入

使用 qw() 导入多个函数：

use List::Util qw(shuffle min max);
my @shuffled = shuffle(1, 2, 3, 4, 5);
my $smallest = min(@shuffled);
```

### 版本检查

**确保** 模块版本符合要求：

```perl
use CGI 3.50;  # 确保 CGI 模块版本至少为 3.50
```

---

## 'require' 的高级用法

### 文件扩展名处理

**省略** `.pm` 扩展名，Perl 会自动添加：

```perl
require MyModule;  # 相当于 require 'MyModule.pm'
```

### 相对路径和绝对路径

**指定** 模块的完整路径：

```perl
require '/path/to/module.pm';  # 使用绝对路径
require './local/module.pm';   # 使用相对路径
```

### 模块别名

**创建** 模块的别名：

```perl
require MyModule => 'MyAlias';
MyAlias->function();  # 使用别名调用
```

---

## 最佳实践

### 选择适当的加载方式

**遵循** 以下准则选择 `use` 或 `require`：

1. **使用 `use` 当**：
   - 模块是程序的核心功能
   - 需要在编译时使用模块常量或子例程
   - 想要使用模块导出的函数

2. **使用 `require` 当**：
   - 模块是可选功能
   - 需要条件性加载
   - 想要延迟加载以减少启动时间

### 错误处理

**添加** 适当的错误处理机制：

```perl
# 对于 use
BEGIN {
    eval {
        use Some::Module;
    };
    if ($@) {
        die "无法加载模块: $@";
    }
}

# 对于 require
eval {
    require Some::Module;
};
if ($@) {
    warn "模块加载失败: $@";
    # 执行备选方案
}

模块命名空间管理

遵循 模块命名规范：

# 好的实践
use Business::Shipping::UPS;  # 清晰的层次结构
require My::Project::Utils;   # 有意义的命名

# 避免
use ShippingUPS;             # 不够具体
require Utils;                # 冲突风险高

'use' 与 'require' 对比表

选择 根据具体需求选择合适的加载方式，大多数情况下应优先使用 use。

记住 理解两者的区别有助于编写更健壮、更高效的 Perl 代码。