将Perl对象转换为JSON可以使用JSON模块中的encode_json函数。该函数将Perl对象转换为JSON字符串。
以下是一个示例代码:
use JSON;
my $perl_object = {
name => 'John',
age => 30,
hobbies => ['reading', 'coding', 'gaming']
};
my $json_string = encode_json($perl_object);
print $json_string;
输出结果为:
{"name":"John","age":30,"hobbies":["reading","coding","gaming"]}
反过来,将JSON字符串转换为Perl对象可以使用JSON模块中的decode_json函数。
以下是一个示例代码:
use JSON;
my $json_string = '{"name":"John","age":30,"hobbies":["reading","coding","gaming"]}';
my $perl_object = decode_json($json_string);
print $perl_object->{name}; # 输出 John
print $perl_object->{age}; # 输出 30
print $perl_object->{hobbies}[0]; # 输出 reading
这样就可以将JSON字符串转换为Perl对象,并通过对象的属性进行访问。
推荐的腾讯云相关产品:腾讯云COS(对象存储服务),提供高可靠、低成本的云端存储服务,适用于存储、备份、归档、大数据分析等场景。
领取专属 10元无门槛券
手把手带您无忧上云