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

概述我是perl的新手,所以请帮助我以下 我有一个perl脚本来执行telnet命令.此脚本从服务器接收响应字符串.实际上,服务器创建一个json字符串,然后它发送到客户端程序,但客户端程序将其显示为字符串 问题：如何将此字符串转换为json并从此json字符串中读取数据. 我有json字符串,结构类似于以下 [{"success":"21","data":[{"name":"tester","las 我是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;

总结

以上是内存溢出为你收集整理的如何在perl中将字符串转换为json全部内容，希望文章能够帮你解决如何在perl中将字符串转换为json所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。