主页 / user-9826754

Marcel V.'s questions

Martin Hope
Marcel V.
Asked: 2025-04-08 03:20:03 +0800 CST
  • 9

目前，我正在开发一个 ASP.NET 应用程序，由于一些遗留问题，该应用程序需要执行一些 Perl 脚本。为此，我编写了一个使用嵌入式 Perl API 的小型 C++ 库。该库只有一个（C）入口点，允许 C# 代码在传递命令行参数和环境变量的同时执行脚本。此环境变量允许 C# 代码模拟对 Perl 脚本的 CGI 调用。

现在我发现了一些奇怪的事情。C# 应用程序允许（最大数量的）并发 Perl 脚本执行。每次调用都会创建一个不同的环境，并将其传递给我的 C++ 库，然后 C++ 库会将此环境传递给perl_parse函数。然后我注意到，Perl 脚本看到的实际环境与传递的实际环境不匹配，而似乎是旧副本。所以我的问题是，我是不是忽略了什么？有没有一种特殊的方法可以并发运行多个嵌入式 Perl 解释器？即使我将并发线程数限制为 1，问题仍然存在。

C++库的相关部分如下：

extern "C" __declspec(dllexport) BOOL ExecutePerlScript(PCSTR* environmentVariables,
                                                        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;

        // Initialize the Perl interpreter
        result = (perl_parse(my_perl,
                             XsInit,
                             NR_DEFAULT_ARGUMENTS,
                             DEFAULT_ARGUMENTS,
                             const_cast<char**>(environmentVariables)) == 0) ? TRUE : FALSE;

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

        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;
}

extern "C" BOOL WINAPI DllMain(HINSTANCE hinstDLL,
                               DWORD fdwReason,
                               LPVOID lpvReserved)
{
    BOOL result(FALSE);

    switch (fdwReason)
    {
    case DLL_PROCESS_ATTACH:
        if (0 == g_initCount)
        {
            PERL_SYS_INIT3(0,
                           NULL,
                           NULL);
        }
        g_initCount++;
        result = TRUE;
        break;
    case DLL_PROCESS_DETACH:
        if (g_initCount > 0)
        {
            g_initCount--;
            if (0 == g_initCount)
            {
                PERL_SYS_TERM();
            }
        }
        result = TRUE;
        break;
    }

    return result;
}

environmentVariables上述代码片段中的格式是一个数组，char*其中每个元素都在表单中，<variable name>=<variable value>并且数组的最后一个元素是NULL。

我运行的Perl脚本如下：

use strict;

use CGI qw/:standard/;

print "---- ENVIRONMENT ----\n";
for my $env (sort keys %ENV)
{
    print "$env = $ENV{$env}\n";
}
print "\n";

例如，其中一次执行（在循环中）将以下环境传递给 C++ 函数：

- AUTH_TYPE =
- CONTENT_LENGTH = 47
- CONTENT_TYPE = application/x-www-form-urlencoded
- GATEWAY_INTERFACE = CGI/1.1
- PATH_INFO = /test.pl
- PATH_TRANSLATED = E:\Perl\PerlTestApplication\test.pl
- QUERY_STRING = lang=nl
- REMOTE_ADDR = 1.2.3.4
- REMOTE_HOST = remote.host
- REMOTE_USER =
- REQUEST_METHOD = POST
- SCRIPT_NAME = /test.pl
- SERVER_NAME = example.domain
- SERVER_PORT = 443
- SERVER_PROTOCOL = HTTP/1.1
- SERVER_SOFTWARE = Microsoft-IIS/10.0

然后脚本打印以下环境：

---- ENVIRONMENT ----
AUTH_TYPE =
CONTENT_LENGTH = 45
CONTENT_TYPE = application/x-www-form-urlencoded
GATEWAY_INTERFACE = CGI/1.1
PATH_INFO = /test.pl
PATH_TRANSLATED = E:\Perl\PerlTestApplication\test.pl
QUERY_STRING = lang=nl
REMOTE_ADDR = 1.2.3.4
REMOTE_HOST = remote.host
REMOTE_USER =
REQUEST_METHOD = POST
SCRIPT_NAME = /test.pl
SERVER_NAME = example.domain
SERVER_PORT = 443
SERVER_PROTOCOL = HTTP/1.1
SERVER_SOFTWARE = Microsoft-IIS/10.0

可以看出，CONTENT_LENGTH变量的值不同，并且在 Perl 环境中的值与之前传递给脚本的环境相同。因此，不知何故，我传递给新的 Perl 解释器实例的环境没有被清理，仍然使用了另一个环境。我已经PERL_SET_CONTEXT在构造后立即使用 来设置当前线程中的上下文，但这似乎还不够。

我已在 Active Perl 安装的 Perl 5.24 和 Strawberry Perl 安装的 Perl 5.30 上尝试过此操作，但都给出了相同的错误结果。

我做错了什么？

windows