perl处理json的序列化和反序列化

admin Perl

2024-03-01 0 813

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