Perl运行时动态切换包并自动加载模块的实现方法咨询

你的代码失败的核心原因是：Perl的package属于编译期指令，它在代码运行前就会被解析，而你用的$p_name是运行时才会获取的变量，编译阶段Perl根本不知道这个变量的值，自然无法识别包名。

要实现运行时动态切换包并加载模块，最直接的方法是用eval动态生成并编译包定义代码，示例如下：

#! /usr/bin/env perl

use strict;
use warnings;
use utf8;

print "Enter package name: ";
chomp(my $p_name = <STDIN>);

# 验证包名合法性（防止恶意输入注入代码）
die "Invalid package name format" unless $p_name =~ /^[A-Za-z_][A-Za-z0-9_]*(::[A-Za-z_][A-Za-z0-9_]*)*$/;

# 动态创建包并加载模块
eval qq{
    package $p_name;
    use List::Util qw<first>;
    1; # 确保eval执行成功时返回真值
} or die "Failed to create package and load module: $@";

# 测试动态包的功能
my @test_list = (2, 4, 6, 7, 9);
my $found = $p_name->first(sub { $_ % 2 != 0 }, @test_list);
print "First odd number in list: $found\n";

exit(0);

关键说明： #

• eval qq{...}会在运行时把$p_name替换为用户输入的包名，然后编译这段动态生成的代码，绕开了Perl编译期和运行期的分离限制。
• 必须添加1;作为eval块的最后一行：如果模块加载成功、代码无语法错误，eval会返回这个真值；如果出错，eval返回undef，or die会输出具体错误信息（存在$@里）。
• 包名校验很重要：如果用户输入的内容包含Perl代码（比如MyPackage; system('rm -rf /');），未校验的eval会直接执行恶意代码，所以一定要确保输入是合法的Perl包名格式。

如果你不想用eval，也可以通过require加载模块后手动导入符号到目标包，但这种方式步骤更繁琐，不如eval直接高效。

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