嵌入Perl解释器时，如何避免croak导致宿主应用退出？

核心原因 #

Perl的croak/die会触发未被捕获的异常，而exit默认会调用C标准库的exit()函数，直接终止整个进程而非仅当前Perl解释器实例。要解决这个问题，需要从Perl层和C嵌入层同时做拦截处理。

具体解决方案 #

1. 拦截Perl的exit调用，转为异常抛出 #

Perl允许覆盖全局的CORE::exit函数，将其改为抛出异常而非终止进程。在每个Perl解释器初始化完成后，执行以下Perl代码：

*CORE::GLOBAL::exit = sub { 
    my $code = shift // 0;
    die "Intercepted exit call with code: $code"; 
};

这样当脚本调用exit时，会触发die，进而被后续的eval捕获，不会终止宿主进程。

2. 调整Perl解释器的退出标志 #

在C代码中初始化Perl解释器时，修改PL_exit_flags，禁用全局进程退出行为：

// 替换原有的PL_exit_flags设置
PL_exit_flags = PERL_EXIT_DESTRUCT_END & ~PERL_EXIT_GLOBAL;

该设置让Perl解释器在退出时仅销毁自身实例，而不会调用全局的exit()终止整个宿主应用。

3. 确保脚本执行被eval完全包裹 #

你的代码中已经用Perl的eval包裹了脚本执行逻辑，这一步需要保留并确保范围正确：

eval "$SCRIPT_TO_EVALUATE_VARIABLE_NAME; 1" or do { 
    $SCRIPT_EXECUTION_ERROR_VARIABLE_NAME = $@; 
};

这段代码会捕获croak/die抛出的异常，将错误信息存入指定变量，而非触发进程终止。

4. 重置__DIE__信号钩子 #

避免脚本自定义的$SIG{__DIE__}钩子导致意外退出，在初始化解释器后重置该钩子：

$SIG{__DIE__} = undef;

修改后的C代码片段 #

结合你的原有代码，添加关键修改后的完整片段：

extern "C" __declspec(dllexport) BOOL ExecutePerlScript(PCSTR path)
{
    BOOL result(FALSE);

    // Create the Perl interpreter
    PerlInterpreter* my_perl(perl_alloc());
    if (NULL != my_perl)
    {
        PERL_SET_CONTEXT(my_perl);
        PL_perl_destruct_level = 1;
        perl_construct(my_perl);
        PL_origalen = 1;
        // 修改：禁用全局进程退出，仅销毁当前解释器
        PL_exit_flags = PERL_EXIT_DESTRUCT_END & ~PERL_EXIT_GLOBAL;

        // Initialize the Perl interpreter
        result = (perl_parse(my_perl,
                             XsInit,
                             NR_DEFAULT_ARGUMENTS,
                             DEFAULT_ARGUMENTS,
                             NULL) == 0) ? TRUE : FALSE;

        // Run the interpreter
        if (result)
        {
            result = (perl_run(my_perl) == 0) ? TRUE : FALSE;
        }

        // 添加：拦截exit调用并重置__DIE__钩子
        if (result)
        {
            eval_pv("*CORE::GLOBAL::exit = sub { my $code = shift // 0; die \"Intercepted exit call with code: $code\" }; $SIG{__DIE__} = undef;", TRUE);
        }

        if (result)
        {
            result = LoadFile(path,
                              my_perl);
        }

        if (result)
        {
            // Execute the Perl script
            eval_pv("eval \"$" SCRIPT_TO_EVALUATE_VARIABLE_NAME "; 1\" or do { $" SCRIPT_EXECUTION_ERROR_VARIABLE_NAME " = $@; }",
                    TRUE);
        }

        // Destruct the interpreter
        PL_perl_destruct_level = 1;
        perl_destruct(my_perl);
        perl_free(my_perl);
    }

    return result;
}

额外注意事项 #

• 每个Perl解释器实例都需要单独设置上述拦截逻辑，因为解释器上下文是独立的。
• 如果你的脚本中使用了XS扩展调用croak，只要执行逻辑被eval包裹，依然可以捕获异常。
• 可以通过检查SCRIPT_EXECUTION_ERROR_VARIABLE_NAME变量的值，在C层处理脚本执行的错误信息。

内容的提问来源于stack exchange，提问作者Marcel V.