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

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

相关文章推荐

<MongoDB | Mysql>亿级别---数据生成及高效率导入

做这件事情之前,首先 对于mysql,首先需要改改mysql的默认存储路径,以免因为硬盘分区或者挂载容量的问题,导致数据插入不成功。 对于mongodb,只需要改一下启动时命令行的存储路径。

perl 读取json 数据

perl 读取json 数据 JSON (JavaScript Object Notation) 数据格式,官方的说法是“一种轻量级的数据交换格式。 易于人阅读和编写。同时也易于...

perl 处理 json 数据

http://xiaofeng1982.blog.163.com/blog/static/315724582014511102541328/ 安装两个插件 (我的perl版本是w...

perl 解析JSON

[root@dr-mysql01 ~]# cat ip.pl use Encode; use Encode::CN; use JSON; use URI::Escape; use LWP::Sim...

perl 处理json 数组格式

[root@dr-mysql01 ~]# cat a1.pl use Encode; use JSON; use URI::Escape; use LWP::Simple; my ...

Perl 几个技巧

其实就是把小骆驼第五版的17章做了个中文摘要,这些高级技巧常常忘记,写一写希望能帮助自己加深记忆。 1. 用eval获得程序的执行错误 $a = 10; $b = 0; $c = $a/$...

encode_json 会对给定的Perl的数据结构转换为一个UTF-8 encoded, binary string.

use JSON qw/encode_json decode_json/ ; use Encode; my $data = [ { 'name' => 'Ken' , ...

perl encode_json 会产生 UTF-8 (binary) string decode_json 需要一个 UTF-8 (binary) string

encode_json $json_text = encode_json $perl_scalar Converts the given Perl data structure to a U...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

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