/**/

JSON - Perl编程

首页 / JSON入门教程 / JSON - Perl编程

本章介绍如何使用Perl编程语言编码和解码JSON对象,让我们从准备环境开始,开始使用Perl for JSON进行编程。

在使用Perl编码和解码JSON之前,需要安装JSON模块,该模块可以从CPAN获得。下载JSON-2.53.tar.gz或任何其他最新版本后,请按照以下步骤操作-

$tar xvfz JSON-2.53.tar.gz
$cd JSON-2.53
$perl Makefile.PL
$make
$make install

JSON函数

函数
encode_json将给定的Perl数据结构转换为UTF-8编码的二进制字符串。
decode_json解码JSON字符串。
to_json将给定的Perl数据结构转换为json字符串。
from_json期望一个json字符串并尝试解析它,并返回输出引用。
convert_blessed将此函数与真值一起使用,以便Perl可以在对象的类上使用TO_JSON方法将对象转换为JSON。

编码JSON

Perl encode_json()函数将给定的Perl数据结构转换为UTF-8编码的二进制字符串。

$json_text=encode_json ($perl_scalar );
or
$json_text=JSON->new->utf8->encode($perl_scalar);

以下示例显示了使用Perl的JSON下的数组-

#!/usr/bin/perl
use JSON;

my %rec_hash=('a' => 1, 'b' => 2, 'c' => 3, 'd' => 4, 'e' => 5);
my $json=encode_json\%rec_hash;
print "$json\n";

在执行时,这将产生以下输出-

无涯教程网

链接:https://www.learnfk.comhttps://www.learnfk.com/json/json-perl-example.html

来源:LearnFk无涯教程网

{"e":5,"c":3,"a":1,"b":2,"d":4}

以下示例显示了如何将Perl对象转换为JSON-

#!/usr/bin/perl

package Emp;
sub new {
   my $class=shift;
	
   my $self={
      name => shift,
      website  => shift,
      birthdate  => shift,
   };
	
   bless $self, $class;
   return $self;
}

sub TO_JSON { return { %{ shift() } }; }

package main;
use JSON;

my $JSON=JSON->new->utf8;
$JSON->convert_blessed(1);

$e=new Emp( "learnfk", "learnfk.com", "8/5/1974 12:20:03 pm");
$json=$JSON->encode($e);
print "$json\n";

执行时,将产生以下输出-

{"birthdate":"8/5/1974 12:20:03 pm","name":"learnfk","website":"learnfk.com"}

解码JSON

Perl encode_json()函数用于在Perl中解码JSON,此函数将从json解码的值返回到适当的Perl类型。

$perl_scalar=decode_json $json_text
or
$perl_scalar=JSON->new->utf8->decode($json_text)

以下示例显示了如何使用Perl解码JSON对象,如果您尚未在计算机上安装Data::Dumper模块,则需要在此处安装它。

#!/usr/bin/perl
use JSON;
use Data::Dumper;

$json='{"a":1,"b":2,"c":3,"d":4,"e":5}';

$text=decode_json($json);
print  Dumper($text);

在执行时,将产生以下输出-

$VAR1={
   'e' => 5,
   'c' => 3,
   'a' => 1,
   'b' => 2,
   'd' => 4
};

这一章《JSON - Perl编程》你学到了什么?在下面做个笔记吧!做站不易,你的分享是对我们最大的支持,感谢!😊

好记忆不如烂笔头。留下你的足迹吧 :)

猜你喜欢

AI技术内参 -〔洪亮劼〕

性能测试实战30讲 -〔高楼〕

小马哥讲Spring核心编程思想 -〔小马哥〕

说透元宇宙 -〔方军〕

如何实现一个通用的 serde_json::from_str

流编写器未写入 webapi 中的 JSON 文件

Microsoft GRAPH 查询使用端点 /deviceManagement/deviceHealthScripts 列出了一种不熟悉的检测脚本内容格式

在PowerShell中按时间戳过滤JSON

如何为 System.Text.Json.JsonSerializer 全局设置默认选项?

是否可以通过适当的 JavaScript 字符串转义来利用 JSON 响应进行 XSS 攻击?

视频教程

7.GeoJSON和TopoJSON 更多视频教程 »