如何解析Perl中的
JSON字符串？
注意：我是C / Java / C#软件工程师,而不是Perl-Wielding脚本编写者.
我已经完全阅读了JSON.pm“文档”以找到一个有效的例子,但那些文档证明是完整的和彻底的垃圾“.
我也读过这个@L_301_2@,但似乎没有人知道如何从解码的perl变量中获取JSON键,值对.
这是我的剧本.有人可以帮忙吗？
use JSON;
my $json_string = '{"foo": "bar"}';
my $decoded_json = decode_json($json_text);
print $decoded_json["foo"];
std::map<string,string> mymap = convert_to_cplusplus(decoded_json); # doesn't work
my asfjsa;fjsa;fwe # doesn't work
我在接近结束时感到沮丧.
解决方法
你需要使用$decoding_json-> {“foo”} —注意大括号,而不是方括号.另请注意箭头 – > — decode_json返回引用.
我很乐意承认,对于那些还不了解Perl的人来说,这种情况下的文档没有帮助,例如知道$perl_hash_or_arrayref意味着什么. (经验丰富的Perl程序员立即知道这意味着你必须使用 – > ;.)