如何解析的关键 - 使用Perl基于价值字典 [英] How to parse a key - value based dictionary using Perl

问题描述

使用Perl我收到了键

- 值基于字典的API调用

 使用严格的;
使用警告;使用LWP ::简单;
我的$ URL =htt​​p://example.com/?id=124341;
我的$内容=获取（$网址）;
$内容=〜S / / 20％/克;
打印$内容;
{ID：85710，名：杰克，朋友：詹姆斯，山姆，迈克尔，查理]}
 

我怎么能分析它得到的结果为波纹管？

 名称：千斤顶
HIST好友列表：
詹姆斯
SAM
迈克尔·
查理
 

谢谢！

解决方案

 使用严格的;
使用警告;
使用JSON去code_json';我的$内容='{ID：85710，名：杰克，朋友：詹姆斯，山姆，迈克尔，查理]}';我的$ =人去code_json（$内容）;
打印姓名：$＆人 -  GT; {'名'} \\ n;
打印他的朋友列表：\\ N的;
我的朋友$（@ {$＆人 -  GT; {'朋友'}}）{
    打印$朋友\\ n;
}
 

using Perl I get a key - value based dictionary from an API call.

use strict;
use warnings;

use LWP::Simple;
my $url = "http://example.com/?id=124341";
my $content = get($url);
$content =~ s/ /%20/g;
print $content;


{"id":"85710","name":"jack","friends":["james","sam","Michael","charlie"]}

how can I parse it to get the results as bellow?

name : jack
hist friend list :
james
sam
Michael
charlie

Thanks!

解决方案

use strict;
use warnings;
use JSON 'decode_json';

my $content = '{"id":"85710","name":"jack","friends":["james","sam","Michael","charlie"]}';

my $person = decode_json($content);
print "name : $person->{'name'}\n";
print "his friend list :\n";
for my $friend ( @{ $person->{'friends'} } ) {
    print "$friend\n";
}

这篇关于如何解析的关键 - 使用Perl基于价值字典的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！