perl JSON与HASH 互相转换

原创 2016年06月01日 17:41:20

json---hash的例子

use LWP::Simple;
use Data::Dumper;  
use JSON;
use JSON::XS;


my $json_text = '{"bbb" : {"x" : 3},"a10" : {"b" : 1,"a" : 2},"a2" : {"z" : 4}}';
my $decoded_json = decode_json($json_text);
print Data::Dumper->Dumper($decoded_json);

输出:

$VAR1 = 'Data::Dumper';
$VAR2 = {
          'a10' => {
                     'b' => 1,
                     'a' => 2
                   },
          'a2' => {
                    'z' => 4
                  },
          'bbb' => {
                     'x' => 3
                   }
        };

hash---json的例子

#!/bin/perl
use warnings;
use strict;
use Sort::Naturally;
use JSON;


my $data = {
    'a10' => {
            b => 1,
            a => 2,
    },
    'bbb' => {
            x => 3,
    },
    'a2' => {
            z => 4,
    }
};
my $json = new JSON;
#$json->sort_by(sub { ncmp($JSON::PP::a, $JSON::PP::b) });
my $json_text = $json->pretty->encode ($data);
print $json_text;

输出:
{
  "a10" : {
     "b" : 1,
      "a" : 2
   },
   "bbb" : {
      "x" : 3
   },
   "a2" : {
     "z" : 4
  }
}

版权声明:你的转载是我技术的认可

perl 读取json 数据

perl 读取json 数据 JSON (JavaScript Object Notation) 数据格式,官方的说法是“一种轻量级的数据交换格式。 易于人阅读和编写。同时也易于...
  • ysdaniel
  • ysdaniel
  • 2012年08月28日 17:15
  • 8595

perl 处理 json 数据

http://xiaofeng1982.blog.163.com/blog/static/315724582014511102541328/ 安装两个插件 (我的perl版本是w...
  • beyondlpf
  • beyondlpf
  • 2014年11月07日 17:15
  • 1651

perl 处理perl返回的json

[root@wx03 ~]# cat a14.pl use Net::SMTP; use LWP::UserAgent; use HTTP::Cookies; use HTTP::Headers; ...
  • zhaoyangjian724
  • zhaoyangjian724
  • 2016年07月11日 08:11
  • 439

perl 处理json 数组格式

[root@dr-mysql01 ~]# cat a1.pl use Encode; use JSON; use URI::Escape; use LWP::Simple; my ...
  • zhaoyangjian724
  • zhaoyangjian724
  • 2016年04月27日 13:23
  • 1295

perl $d = encode_utf8($r); $f = decode_json($d)

[root@dr-mysql01 ~]# cat a1.pl my $url="http://192.168.32.101:3000/api/getcode?env=zj&phone=180727xx...
  • zhaoyangjian724
  • zhaoyangjian724
  • 2016年05月20日 10:11
  • 346

perl 解析JSON

[root@dr-mysql01 ~]# cat ip.pl use Encode; use Encode::CN; use JSON; use URI::Escape; use LWP::Sim...
  • zhaoyangjian724
  • zhaoyangjian724
  • 2015年12月11日 17:24
  • 919

perl 解json数组

http://115.236.160.82:3000/api/bus?bus=307&flag=1 返回json是: 其实就是数组的引用编码成json ["","黄龙体育中心","教工路花园亭"...
  • zhaoyangjian724
  • zhaoyangjian724
  • 2016年03月25日 20:26
  • 410

Perl hash转JSON格式的示例

#encode the JSON result into UTF-8, $json = JSON->new->utf8; #验证 utf8 标志位 print "utf8 flag: ",$json...
  • xiao3404
  • xiao3404
  • 2018年01月07日 10:26
  • 71

encode_json 转换给定的perl数据结构为一个UTF-8编码的 2进制字符串 decode_json把UTF-8字节转换成字符

centos6.5:/root#perl t1.pl [{"age":19,"name":"科比"},{"name":"乔丹","age":25}] [{"age":19,"name...
  • zhaoyangjian724
  • zhaoyangjian724
  • 2016年12月21日 20:50
  • 813

json,xml转换成hash (brown_zhang)

ruby xml json转换为hash ActiveSupport:    Xml to Hash => Hash.from_xml(xmlstr)    Json to Hash => Ac...
  • pengruikeji
  • pengruikeji
  • 2011年09月02日 17:31
  • 3129
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:perl JSON与HASH 互相转换
举报原因:
原因补充:

(最多只允许输入30个字)