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) 数据格式,官方的说法是“一种轻量级的数据交换格式。 易于人阅读和编写。同时也易于...

perl 解析JSON

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

Perl解析json数据

filename: json_test.pl 解析json格式数据 1.解析curl返回的json数据;2.解析文件中的json串。 测试用文件json_result.txt的内容见本段代码后; ...
  • clliu
  • clliu
  • 2013年04月25日 22:34
  • 1150

perl 处理 json 数据

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

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

对象与JSON数据互相转换

  • 2016年11月04日 09:26
  • 713B
  • 下载

使用Perl hash来分析大量数据

在perl中,数组和哈希是两种极为重要数据结构,它们有各自不同的用处。其最为重要的区别笔都认为是前者是线性结构,而后者为随机访问结构,在对其中数据元素的访问效率上,后者更具有不可替代的优势。 接公司...
  • songxu1
  • songxu1
  • 2011年09月04日 06:39
  • 1729
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:perl JSON与HASH 互相转换
举报原因:
原因补充:

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