6.1 模块的概念与使用

6.1 模块的概念与使用

模块就是一个 pm 文件里的独立命名空间（package）：use 它，等于让编译器找到文件、编译执行、再把导出的名字注入当前包。包解决重名，模块解决复用。

命名空间是什么

没有包时，所有子程序共享一个全局名字池，两个脚本拼在一起，同名函数互相覆盖。package 给代码盖出隔间：

package Parser;
sub parse { ... }        # 全名是 Parser::parse

package main;            # 脚本默认包
Parser::parse($line);    # 带全名调用，绝不撞车
​

双冒号是包分隔符。File::Find 这样的模块名对应目录层级——这也是 CPAN 模块名都长成树状的原因。

use 与 require 的差别

use File::Basename;              # 编译期加载 + 自动调 import
require File::Copy;              # 运行期加载，不导入名字
File::Copy::copy($a, $b);        # 手写全名调用
​

"use 发生在你写下它的那一刻，require 发生在程序跑到那一行"——条件加载大模块（比如只在需要图形输出时）用 require 省启动时间。

选择性导入

use File::Basename qw(basename);   # 只要 basename
use POSIX qw(floor ceil);          # 明确清单，避免全量导入
​

不带清单的 use POSIX; 会导入几百个名字，污染当前包。工程惯例是永远写明导入清单，review 时一眼看清依赖了什么。

# 看看一个模块到底能导出什么
perl -MFile::Basename -e 'print join "\n", @File::Basename::EXPORT_OK'
​

💡 关键直觉：把 use 理解成"编译期合同"。你声明要用谁的哪些函数，编译器在运行前就把名字准备好；写错模块名，脚本一行没跑就报错，而不是跑到一半才崩。

现场排错：找不到模块的排查链

Can't locate Foo/Bar.pm in @INC 是模块问题的出场率冠军，排查按固定链条走，三步内必中：

# 1. 文件到底在不在、名字对不对（Foo::Bar 对应 Foo/Bar.pm）
find . -name 'Bar.pm' -path '*Foo*'

# 2. Perl 眼里的搜索路径有哪些
perl -e 'print join "\n", @INC'

# 3. 指定目录让 Perl 重新找
perl -I./lib script.pl
​

三个常见成因对应三个修法：路径没进 @INC 用 -I 或脚本里 use lib；模块没安装用 cpanm 装；文件名与包名不一致——package Foo::Bar 却放在 Bar.pm，加载成功但调用报"未定义子程序"，这类错最迷惑，务必让文件路径与包名严格一致。最后一类还有个变种：Windows 上文件名大小写不敏感，本地能跑、上 Linux 就 404，部署前用 perl -c script.pl 做一次编译检查能提前暴露。

模块版本与特性开关

use 还能带版本号与特性参数，两个实用形态：

use v5.36;                    # 声明最低版本，同时自动开 strict/warnings/say
use File::Spec::Functions qw(catfile);
use if $^O eq 'MSWin32', 'Win32::Console::ANSI';   # 条件加载的模块化写法
​

use v5.36 一次顶三行样板还解锁了新特性（如子程序签名），新项目的推荐起手式。use if 把"按平台加载"从 if/require 的散装写法收编成声明式，跨平台脚本值得记住它。

三组易混概念对照

模块使用层面有三组概念容易搅在一起，对照清楚能省掉大量来回翻文档的时间。第一组 use 与 no：no 是 use 的反向操作，no warnings 'uninitialized'; 关掉某类警告，典型场景是确知某段代码大量读未定义值且已确认无害时局部静音——注意与 use 一样作用于编译期，且要写在使用之后。第二组 @INC 与 %INC：@INC 是"将要去哪找"的搜索路径列表，%INC 是"已经找到并加载了什么"的记录表，排查重复加载与循环依赖时查 %INC{'LogUtil.pm'} 一眼定位。第三组 import 与 require 的手工版：极简模块可以自己写 import 函数而不继承 Exporter，几行代码实现点名导入——理解这一点，就能看懂很多老模块的导出逻辑其实没有魔法。三组概念合起来的全景：use 触发查找（@INC）、加载（记入 %INC）、导入（import 或 no 反向），每一步都可观测、可干预，这也正是 Perl "机制透明"风格的一个缩影。理解了全景，连"循环依赖为什么报错"这类深水区问题都有了推理起点——A 加载到一半去加载 B、B 又要 A 的某个还没定义完的函数，%INC 里那条"加载中"的记录就是案发现场的第一条线索。日常排查时也可以反向利用 %INC：怀疑某个模块被意外加载，或想确认自己改过的本地版本真的被 use 到了，打印 %INC 一锤定音——它记录的是实际路径，不是你以为的路径。本地开发与安装版本"打架"的多数疑案，结尾都是这一行打印破的：脚本 use 的根本不是你正在改的那份文件。

no warnings 'uninitialized';        # 局部静音后恢复
print defined $x ? $x : '-' for @maybe_empty;
use warnings 'uninitialized';
​

本节要点回顾

• package 是命名空间，双冒号分层，对应目录结构
• use 编译期 + 自动导入，require 运行期 + 手动全名
• 导入清单永远写明白：use M qw(a b);
• 条件加载用 require，省启动开销
• 模块名即路径，找不着模块先查 @INC 里有没有对应目录