json - 如何在perl中将字符串转换为json

Question

我对 perl 很陌生，所以请帮助我进行以下操作

我有一个 perl 脚本来执行 telnet 命令。此脚本以字符串形式接收来自服务器的响应。实际上服务器创建了一个 json 字符串，然后将其发送到客户端程序，但客户端程序将其显示为 string
问题:如何将此字符串转换为 json 并从此 json 字符串读取数据。

我有类似于以下结构的 json 字符串

[{"success":"21","data":[{"name":"tester","lastname":"project"}]}]

以下是我尝试将其转换为 json 的最后几行

@lines = $telnet->waitfor('/$/');
my @json;
@json = @{decode_json(@lines)};

它打印输出如下

HASH(0x1af068c)

提前致谢 !!!

Answer 1

这是转换 JSON 的片段。修改以捕获错误。

use strict;
use warnings;
use JSON::XS;
use Try::Tiny;
use Data::Dumper::Concise;

my $data = qq<[{"success":"21","data":[{"name":"tester","lastname":"project"}]}]>;

my $decoded;

try {
    $decoded = JSON::XS::decode_json($data);
}
catch {
    warn "Caught JSON::XS decode error: $_";
};

print Dumper $decoded;