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

perl可以使用JSON模块很方便的处理json的序列化和反序列化。先来一段简单的例子:

perl 复制代码
#! /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, 结果如下:

javascript 复制代码
{"arry":[1,2,3,4,5],"desc":"hello world","id":1024,"obj":{"char":["A","B","C"]}}

json中如果要使用 true、false、null这些特殊值,可以如下使用,在之前的那个脚本中我们继续添加举例:

perl 复制代码
#! /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 });

输出结果如下:

javascript 复制代码
{
   "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句柄读取数据,脚本如下:

perl 复制代码
#! /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引用,然后打印出部分字段的值,结果如下:

javascript 复制代码
hello world
------------------------------------------------------------
1
0
---------null
------------------------------------------------------------
1
2
3
4
5

可以看到,输出值是正确的。其中true输出的是1,false输出的是0。

相关推荐
lldhsds12 分钟前
书生大模型实战营第四期-入门岛-1. Linux前置基础
linux
wowocpp35 分钟前
ubuntu 22.04 硬件配置 查看 显卡
linux·运维·ubuntu
Mephisto.java40 分钟前
【大数据学习 | kafka高级部分】kafka的kraft集群
大数据·sql·oracle·kafka·json·hbase
Mephisto.java41 分钟前
【大数据学习 | kafka高级部分】kafka的文件存储原理
大数据·sql·oracle·kafka·json
山河君1 小时前
ubuntu使用DeepSpeech进行语音识别(包含交叉编译)
linux·ubuntu·语音识别
鹏大师运维1 小时前
【功能介绍】信创终端系统上各WPS版本的授权差异
linux·wps·授权·麒麟·国产操作系统·1024程序员节·统信uos
筱源源1 小时前
Elasticsearch-linux环境部署
linux·elasticsearch
pk_xz1234563 小时前
Shell 脚本中变量和字符串的入门介绍
linux·运维·服务器
小珑也要变强3 小时前
Linux之sed命令详解
linux·运维·服务器
待磨的钝刨4 小时前
【格式化查看JSON文件】coco的json文件内容都在一行如何按照json格式查看
开发语言·javascript·json