如何将Perl对象转换为JSON，反之亦然

警告会告诉您大部分错误。除非您告诉

JSON

JSON

你可以

convert_blessed

allow_blessed

allow_blessed

如果

$enable

为false（默认值），则编码在遇到受祝福的对象时将引发异常。

Point 是一个对象类，因此的一个实例

Point

JSON

如果启用

convert_blessed

TO_JSON

Point

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

如果你有一个下降的结构，它会得到 很多的 多毛。

以下评论中的某人说，我没有介绍如何 从 JSON中获取对象。

基础很简单。所以这里去

my $object = bless( JSON->new->depre( $json_string ), 'ClassIWant' );

我主要介绍了 阻止 您简单地将受祝福的对象序列化为JSON的部分。

反序列化的基础很简单，就像序列化的基础很简单一样-一旦知道了窍门。方式上没有错误，只有找到所需内容并将其祝福给正确的班级的任务。

如果您想将代码耦合到对象，那么您将知道必须祝福的内容以及必须祝福的内容。如果您想要完全解耦的代码，那么
在Perl中这比在Javascript本身中更难或更容易 。

您将必须在JSON中序列化 标记
。如果我需要这样的东西，我会

'__CLASS__'

 bless( $ref, delete $ref->{__CLASS__} );

但是正如我所说，在Perl中这并不容易，也很难，因为JSON对所有语言都提出了相同的挑战。

正如Schwern在顶部的评论中所建议的那样，YAML更好地用于序列化和反序列化对象，因为它具有 注释 。JSON为您提供了一个或多个关联数组。