perl - Strawberry Perl 和 PAR - 其他 Windows 机器上的运行时错误:如果安装了 LWP::Protocol::https 模块，LWP 将支持 https URL

Question

我有两台 Windows 10 机器，在其中一台上，我安装了 Strawberry Perl(如果重要，版本 5.30.1)。我的脚本使用的是 REST::Client，在这台机器上，脚本运行完美。

我正在使用 PAR 制作 .exe

我可以运行 .pl 脚本或 .exe 可执行文件；在这台机器上它运行完美。我正在使用 --execute运行 pp.bat 时的选项，并包含 --xargs=选项，以便脚本可以成功执行和运行。

然后我将 .exe 复制到另一台没有安装 Perl 的机器上。我使用相同的命令行选项启动 .exe，它编译良好并开始运行。它做了一些工作，然后进行了第一个 REST GET。在这台没有 Strawberry Perl 的机器上，我收到一条消息“服务报告永久性错误:如果安装了 LWP::Protocol::https 模块，LWP 将支持 https URL。”

然后，当然，我收到 500 系列错误，因为 REST Web 服务对 GET 缺少 https://感到不满。

还有另一个错误:

The service reports a permanent error: Can't locate object method "new" via package "LWP::Protocol::https::Socket" at C:\foo\bar\AppData\Local\Temp\baz\qux\inc\lib/LWP/Protocol/http.pm line 34.

在我用来调用 pp.bat 的 .bat 文件中，我确实有 --module="LWP::Protocol::https" - 尽管它是否存在似乎并没有什么不同。

我看到一些关于 LWP::UserAgent 并指定 protocols_allowed => ['https'] 的文档但我不确定应该如何将其应用于 REST::Client 中。我试过把它放进去(然后把它排除在外)，我的结果是一样的。我的那部分代码如下所示:

    my $client = REST::Client->new();

    $client->addHeader( 'charset',       'UTF-8' );
    $client->addHeader( 'Accept',        'application/xml' );
    $client->addHeader( 'Authorization', $login_string );
    $client->addHeader( 'Content-Type',  'application/xml' );
    $client->getUseragent()->ssl_opts( verify_hostname => 0 );
    $client->getUseragent()->ssl_opts( SSL_verify_mode => 0 );
    $client->getUseragent( protocols_allowed => ['https'] );
    $client->setTimeout( 10 );

    $client->setHost( $host );

    $client->GET( $url );

    my $rest_client_reponse_code = $client->responseCode();

谁能看到我在这里缺少的东西，并给我指点？

Answer 1

根据 Par::Packer 的维护者在 this GitHub issue :

PAR::Packer does not pack these non-Perl DLL dependencies. You can either chase them done and explicitly pack them by hand with pp --link ..., [...]. Or use Shawn Laffan's App::PP::Autolink that does this for you.

所以给定这个测试脚本 p.pl :

use strict;
use warnings;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new();
my $res = $ua->get( 'https://metacpan.org/pod/pp');
if ($res->is_success) {
  print "ok\n";
}
else {
  die $res->status_line;
}

您可以使用 App::PP::Autolink像这样:

> pp_autolink -o p5.exe p.pl
Use of uninitialized value $_ in pattern match (m//) at C:\Strawberry\perl\site\lib/App/PP/Autolink.pm line 127.
Use of uninitialized value $_ in -e at C:\Strawberry\perl\site\lib/App/PP/Autolink.pm line 128.
DLL check iter: 1
DLL check iter: 2
DLL check iter: 3

Unable to locate these DLLS, packed script might not work:

Alien sys dlls added:
Detected link list: --link c:\strawberry\c\bin/libssl-1_1-x64__.dll --link c:\strawberry\c\bin/zlib1__.dll --link c:\strawberry\c\bin/libcrypto-1_1-x64__.dll
CMD:pp --link c:\strawberry\c\bin/libssl-1_1-x64__.dll --link c:\strawberry\c\bin/zlib1__.dll --link c:\strawberry\c\bin/libcrypto-1_1-x64__.dll -o p5.exe p.pl

从上面的输出可以看出，我们缺少 libssl-1_1-x64__.dll , zlib1__.dll , 和 /libcrypto-1_1-x64__.dll .转让此 p5.exe到另一台 Windows 10 机器现在可以正常工作。