通过do调用Perl脚本时能否传递@ARGV及命令行选项

核心结论 #

可以通过do调用实现相同的参数传递和脚本执行效果，且确实能避免频繁fork新Perl进程带来的内存开销，完全适配Minion作业队列的使用场景，但需要提前处理好两个核心兼容问题：全局@ARGV的污染问题、脚本exit语句导致主进程意外退出的问题。

实现方案 #

方案1：可修改目标脚本（最优解） #

如果允许调整my_script.pl的代码，该方案改造成本最低、稳定性最高：

1. 将脚本原有逻辑封装为独立函数，接收参数数组作为输入，不直接读取全局@ARGV
2. 把脚本原有的exit语句替换为return，返回执行状态码
3. 保留脚本直接从命令行调用的能力

my_script.pl改造示例：

use Getopt::Long::Descriptive;

sub run_my_script {
    my @argv = @_;
    my ($opt, $usage) = describe_options(
        'my_script.pl %o',
        ['foo=s', 'foo参数', { required => 1 }],
        ['baz=i', 'baz参数', { default => 1 }],
    );
    # 原有脚本执行逻辑
    # ...
    return 0; # 执行成功返回0，失败返回对应非0状态码
}

# 直接命令行调用时正常执行，被其他程序do加载时不自动运行
if (!caller()) {
    my $exit_code = run_my_script(@ARGV);
    exit $exit_code;
}

1;

主程序调用示例：

# 第一次调用会编译脚本，后续调用直接复用编译结果，无额外进程开销
do 'my_script.pl' or die "加载脚本失败: $! $@";

# 每次执行直接传参即可
my $exit_code = run_my_script(qw/--foo bar --baz 2/);

方案2：不可修改目标脚本的兼容方案 #

如果无法调整my_script.pl的代码，可以通过临时覆盖全局变量和exit函数实现兼容：

sub call_my_script {
    my @args = @_;
    # 备份主程序原有上下文
    my @old_argv = @ARGV;
    my $old_exit = exists &CORE::GLOBAL::exit ? \&CORE::GLOBAL::exit : undef;
    my $script_exit_code;

    # 临时替换全局@ARGV为传入脚本的参数
    @ARGV = @args;

    # 临时覆盖exit函数，避免脚本执行exit时把主进程一起终止
    no warnings 'redefine';
    local *CORE::GLOBAL::exit = sub {
        $script_exit_code = shift // 0;
        die "___script_exec_exit___\n";
    };
    use warnings 'redefine';

    eval {
        do 'my_script.pl';
        # 处理执行异常
        if ($@ && $@ ne "___script_exec_exit___\n") {
            die "脚本执行出错: $@";
        }
        if ($!) {
            die "读取脚本文件失败: $!";
        }
        # 脚本未主动调用exit时默认返回0
        $script_exit_code //= 0;
    };

    # 恢复主程序原有上下文
    @ARGV = @old_argv;
    if ($old_exit) {
        no warnings 'redefine';
        *CORE::GLOBAL::exit = $old_exit;
        use warnings 'redefine';
    }

    die $@ if $@;
    return $script_exit_code;
}

# 调用示例
my $exit_code = call_my_script(qw/--foo bar --baz 2/);

注意事项 #

• 脚本中的全局变量会在多次调用间残留，如果脚本存在全局状态，需要在每次调用前手动清理，或者在脚本末尾补充重置全局变量的逻辑
• 如果脚本内部修改了Getopt::Long的全局配置，会影响主程序的参数解析，调用完成后可以调用Getopt::Long::Configure("default")重置配置
• 该方案相比system调用内存开销降低80%以上，非常适合Minion队列高频调用的场景

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