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

发布时间：2020-12-16 06:18:32 所属栏目：大数据来源：网络整理

导读：我是perl的新手,所以请帮助我以下我有一个perl脚本来执行telnet命令.此脚本从服务器接收响应字符串.实际上,服务器创建一个json字符串,然后它发送到客户端程序,但客户端程序将其显示为字符串问题：如何将此字符串转换为json并从此json字符串中读取数据. 我

我是perl的新手,所以请帮助我以下

我有一个perl脚本来执行telnet命令.此脚本从服务器接收响应字符串.实际上,服务器创建一个json字符串,然后它发送到客户端程序,但客户端程序将其显示为字符串

问题：如何将此字符串转换为json并从此json字符串中读取数据.

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

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

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

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

它打印输出如下

HASH(0x1af068c)

提前致谢！！！

解决方法

这是一个转换JSON的片段.修改以捕获错误.

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

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

my $decoded;

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

print Dumper $decoded;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!