我对 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)
提前致谢 !!!
这是转换 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;
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)