关闭

perl JSON与HASH 互相转换

878人阅读 评论(0) 收藏 举报
分类:

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
  }
}

1
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:223745次
    • 积分:4077
    • 等级:
    • 排名:第7659名
    • 原创:89篇
    • 转载:551篇
    • 译文:13篇
    • 评论:7条
    最新评论