如何获取Perl模块中导入的变量？实现自定义模块接收导入参数

要实现这种自定义的use语句行为，核心在于利用Perl的import机制——当你执行use Foo::Bar LIST时，Perl会自动调用Foo::Bar->import(LIST)。我们可以通过自定义这个import方法来捕获传入的参数，将它们保存供模块内部的子例程使用，同时处理子例程的导出（如果需要的话）。

1. 编写自定义模块Foo::Bar #

我们需要在模块中定义自己的import函数，用来接收use语句传入的参数，同时用模块内的全局变量存储这些参数，供do_something访问。如果one/two/three是模块提供的子例程，还可以在import中把它们导出到调用者的命名空间。

模块代码示例 #

package Foo::Bar;

use strict;
use warnings;

# 模块内的全局变量，用于存储传入的参数
our ($BAZ_REF, @ELEMENTS);

sub import {
    my $class = shift;  # 第一个参数是模块包名（Foo::Bar）
    my ($baz_arg, @elements) = @_;  # 剩余参数是use语句传入的内容

    # 保存$baz的引用（推荐传引用，这样模块能访问变量的实时值）
    $BAZ_REF = $baz_arg;

    # 保存传入的列表元素（one、two、three）
    @ELEMENTS = @elements;

    # 可选：将模块的one/two/three子例程导出到调用者命名空间
    my $caller = caller;  # 获取调用者的包名
    foreach my $sub_name (@elements) {
        if (exists &{$sub_name}) {
            no strict 'refs';
            # 将子例程挂载到调用者的符号表中
            *{"${caller}::${sub_name}"} = \&{$sub_name};
        }
    }
}

# 模块内部子例程，可直接访问保存的参数
sub do_something {
    print "当前baz的值: ", defined $BAZ_REF ? $$BAZ_REF : "未传入", "\n";
    print "传入的元素列表: @ELEMENTS\n";

    # 示例：修改调用者的$baz变量（仅当传入的是引用时有效）
    $$BAZ_REF = "模块更新后的值" if defined $BAZ_REF;
}

# 模块提供的示例子例程one/two/three
sub one { print "调用了子例程one\n" }
sub two { print "调用了子例程two\n" }
sub three { print "调用了子例程three\n" }

1;  # Perl模块必须返回true才能被正确加载

2. 调用者脚本示例 #

在主脚本中，你可以按照需求调用模块：

use strict;
use warnings;

my $baz = "初始值";
# 传入$baz的引用，以及要导入的子例程列表
use Foo::Bar \$baz, qw/one two three/;

# 调用模块内部的do_something子例程
Foo::Bar::do_something();

# 调用从模块导入的子例程
one();
two();

# 查看$baz是否被模块修改
print "修改后的baz: $baz\n";

3. 可选：支持直接传入变量名（无需引用） #

如果你希望调用者可以直接写use Foo::Bar $baz, ...而不是传引用，需要借助第三方模块PadWalker（需提前安装）来获取调用者的词法变量引用。修改后的import方法如下：

use PadWalker qw(peek_my);

sub import {
    my $class = shift;
    # 这里假设调用者传入的是变量名字符串，比如'use Foo::Bar q/$baz/, ...'
    my ($baz_var_str, @elements) = @_;

    # 提取变量名（去掉开头的$）
    my $var_name = $baz_var_str =~ s/^\$//r;
    # 获取调用者的词法变量表
    my $caller_vars = peek_my(1);

    # 拿到调用者$baz变量的引用
    $BAZ_REF = $caller_vars->{"\$$var_name"};

    # 剩余逻辑和之前一致
    @ELEMENTS = @elements;
    # ... 导出子例程的代码 ...
}

调用者对应的写法：

use Foo::Bar q/$baz/, qw/one two three/;

注意：这种方式依赖第三方模块，纯核心Perl只能处理全局变量（通过符号表访问），无法获取词法变量（my声明的变量）的引用。

• import方法的作用：Perl的use语句本质是BEGIN { require Module; Module->import(LIST); }，自定义import就能拦截并处理传入的参数。
• 参数存储：用模块的our变量存储参数，确保模块内部所有子例程都能访问到这些值。
• 子例程导出：通过符号表操作（no strict 'refs'）将模块的子例程挂载到调用者的命名空间，实现类似Exporter模块的导出功能。

内容的提问来源于stack exchange，提问作者simone