我怎样才能捕获“无法解码 JSON”的错误？ Perl 中的错误消息？

Question

因此，我尝试加载测试返回 JSON 值的 REST API。

为此，我创建了 perl 脚本的多个实例。

Perl 脚本基本上会调用该 URL，并尝试decode_json。显然，当产生大量负载时，它就会失败。

现在我面临的问题是 - 命令提示符上显示错误，但没有将该错误消息写入文件中。

错误消息是

格式错误的 JSON 字符串，不是数组、对象、数字、字符串或原子，位于 json_load_test.pl 第 39 行的字符偏移量 0（“无法连接到 209...”之前）。

在第 39 行以下的所有三个尝试中，

decode_json($actual_response);

我只是在命令提示符下运行脚本：

perl json_load_test.pl >> logs/output.txt 

我希望将错误消息写入“output.txt”

我的三个失败尝试如下。

尝试 1：

my $ua = LWP::UserAgent->new;
$ua->timeout(3);    
$ua->env_proxy;        
my $response = $ua->get("http://$j_env/jobs/all.json?status=active");
my $actual_response=$response->decoded_content;
decode_json($actual_response);
if ($? == -1)
{print "\n Failed to execute: $!\n"; }

尝试 2：

my $ua = LWP::UserAgent->new;
$ua->timeout(3);    
$ua->env_proxy;        
my $response = $ua->get("http://$j_env/jobs/all.json?status=active");
my $actual_response=$response->decoded_content;
my $perl_scalar= decode_json($actual_response);
if ($perl_scalar)
{ok(1,"For process $u2 inside counter $counter ");}
else
{ok(0,"FAILED!!! process $u2 inside counter $counter");}

尝试 3：

my $ua = LWP::UserAgent->new;
$ua->timeout(3);    
$ua->env_proxy;        
my $response = $ua->get("http://$j_env/jobs/all.json?status=active");
my $actual_response=$response->decoded_content;
decode_json($actual_response) or die "FAILED!!!!";

Answer 1

看起来您的错误消息来自 stderr，而不是 stdout。因此，

perl json_load_test.pl >> logs/output.txt 2>> logs/errors.txt

或者类似的东西。如果您希望将两者都放在一个文件中：

perl json_load_test.pl 2>&1 >> logs/output.txt

编辑：

如果出于某种原因您想在 perl 中捕获错误并将其发送到 stdout，您可以：

eval {
  decode_json($actual_response);
  1;
} or do {
  my $e = $@;
  print "$e\n";
};

编辑2：

作为 daxim在编辑注释中指出，Try::Tiny 可能更简单：

use Try::Tiny;
try {
  decode_json($actual_response);
} catch {
  print "$_\n";
};