perl JSON与HASH 互相转换

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

}

}