perl处理json的序列化和反序列化
perl可以使用JSON模块很方便的处理json的序列化和反序列化。先来一段简单的例子：
#! /usr/bin/perl
use v5.14;
use JSON;
use IO::File;
my $info = {
id => 1024,
desc => 'hello world',
arry => [1, 2, 3, 4, 5],
obj => {
char => [ 'A', 'B', 'C' ]
}
};
say to_json($info, { pretty => 1 });脚本执行后的输出结果：
to_json 就是序列化，把hash对象序列化为json字符串，如果有需要，可以直接把这个字符串写入文件。函数调用中有一个 pretty => 1 的使用，默认不传入这个参数或者 pretty => 0, 结果如下：
{"arry":[1,2,3,4,5],"desc":"hello world","id":1024,"obj":{"char":["A","B","C"]}}
json中如果要使用 true、false、null这些特殊值，可以如下使用，在之前的那个脚本中我们继续添加举例：
#! /usr/bin/perl
use v5.14;
use JSON;
use IO::File;
my $info = {
id => 1024,
desc => 'hello world',
arry => [1, 2, 3, 4, 5],
obj => {
char => [ 'A', 'B', 'C' ]
},
other_1 => {
test_true => \1,
test_false => \0,
test_null => undef
},
other_2 => {
test_true => JSON::true,
test_false => JSON::false,
test_null => JSON::null
}
};
say to_json($info, { pretty => 1 });输出结果如下：
{
"other_2" : {
"test_true" : true,
"test_null" : null,
"test_false" : false
},
"obj" : {
"char" : [
"A",
"B",
"C"
]
},
"arry" : [
1,
2,
3,
4,
5
],
"id" : 1024,
"other_1" : {
"test_false" : false,
"test_null" : null,
"test_true" : true
},
"desc" : "hello world"
}
在脚本中可以清楚的看到两种表示方法：
了解了JSON模块的序列化，下面来看反序列化的处理，为了说明简洁，这里直接把上面脚本的输出结果加在脚本中，使用perl的DATA句柄读取数据，脚本如下：
#! /usr/bin/perl
use v5.14;
use JSON;
use IO::File;
# 读取json字符串数据
my $json_str = join('', <DATA>);
# 反序列化操作
my $json = from_json($json_str);
say $json->{desc};
say '-' x 60;
say $json->{other_1}{test_true};
say $json->{other_1}{test_false};
unless (defined $json->{other_1}{test_null}) {
say '---------null';
}
say '-' x 60;
say for @{ $json->{arry} };
__DATA__
{
"id" : 1024,
"desc" : "hello world",
"other_1" : {
"test_null" : null,
"test_false" : false,
"test_true" : true
},
"obj" : {
"char" : [
"A",
"B",
"C"
]
},
"other_2" : {
"test_false" : false,
"test_null" : null,
"test_true" : true
},
"arry" : [
1,
2,
3,
4,
5
]
}脚本读取json字符串数据后使用from_json反序列化得到一个hash引用，然后打印出部分字段的值，结果如下：
hello world
------------------------------------------------------------
1
0
---------null
------------------------------------------------------------
1
2
3
4
5
可以看到，输出值是正确的。其中true输出的是1，false输出的是0。
到此这篇关于perl处理json的序列化和反序列化的文章就介绍到这了,更多相关perl处理json内容请搜索脚本之家以前的文章或继续浏览下面的相关文章希望大家以后多多支持脚本之家！
相关文章
本文向大家简单介绍一下Perl split函数的用法，Perl中的一个非常有用的函数是Perl split函数-把字符串进行分割并把分割后的结果放入数组中2013-02-02
perl打开文件后，可以有几种方式对文件进行读取处理(根据文件大小，文件内容的特征和其它要处理的方式)2013-02-02
这篇文章主要介绍了perl中的范围声明our-my-local介绍,这3个关键字都是控制变量范围的,需要的朋友可以参考下2015-02-02
由于业务需要，要查询客户的ip地址，将部分地区的客户过滤出来,感谢黑影子和扶凯的帮忙，推荐了IP::QQWry::Decoded这个模块，该模块是专门用来读取qqwry纯真数据库的，用起来非常简单2013-04-04
这篇文章主要介绍了perl读写文件代码实例,本文直接给出实现代码,需要的朋友可以参考下2015-05-05
这篇文章主要介绍了perl几个文件操作例子,讲解了删除文件、读取文件、一次性读取等,需要的朋友可以参考下2014-06-06
上一篇文章介绍了hash的入门教程，这篇文章为大家提供一个实例，方便大家深入学习2013-02-02
一行代码解决 perl输入 排序 输出问题，需要的朋友可以参考下2013-02-02
perl模块Data::Dumper应用一例，参见下面的代码2013-02-02
这篇文章主要介绍了Perl函数(子程序)学习笔记,本文讲解了函数定义、函数返回值、函数参数传递等内容,需要的朋友可以参考下2014-11-11
最新评论