json - LWP::UserAgent 中的 PAR::Packer 和 HTTPS

Question

我有一个简单的 Perl，它使用 LWP::UserAgent 连接到 HTTPS 并解码 JSON 结果:

my $self = shift;
my $text = shift;
my $ua = new LWP::UserAgent;
my $response = $ua -> get ($self -> getReqLink($text));
$response = parse_json($response -> decoded_content);
return decode('utf-8', $response -> {text} -> [0]);

如果我运行 Perl 脚本，它工作正常。我用pp打包的:

pp -c -o maker.exe maker.pl

如果我运行 maker.exe，我会得到错误信息:

JSON error at line 1, byte 1/170: Unexpected character 'S' parsing initial state: expecting whitespace: '\n', '\r', '\t', ' ' or start of an array or object: '{', '[' at Translation/YandexTranslator.pm line 30.

怎么了？

Answer 1

1. 在运行 PP 时始终使用 -x。它将添加运行时依赖项并为您生成更可靠的可执行文件。根据我的经验，此选项可以修复许多神秘错误。
2. 在代码的顶部添加use warnings 和use strict。看看是否有任何潜在的问题。