1

我正在使用 perl 中的驼鹿对象。我希望能够将我直接制作的驼鹿对象转换为 JSON。

但是，当我使用使用 MooseX::Storage 来隐藏对象时，它包含一个隐藏属性，我不知道如何删除 " __CLASS__" 。

有没有办法使用 MooseX::Storage 删除它？（现在我只是使用 MooseX::Storage 来隐藏它并使用 JSON 通过去散列来删除“__ CLASS __”属性。）我现在正在做的解决方案是一个问题，因为我必须这样做每次我为每个对象获取 JSON 时（所以当我将 JSON 输出写入文件时，要加载我必须每次都进行更改，并且还必须处理任何引用的对象）

package Example::Component;
use Moose;
use MooseX::Storage;
   with Storage('format' => 'JSON');

   has 'description' => (is => 'rw', isa => 'Str');

1;
no Moose;
no MooseX::Storage;
use JSON;

my $componentObject = Example::Component->new;
$componentObject->description('Testing item with type');
my $jsonString = $componentObject->freeze();
print $jsonString."\n\n";

my $json_obj = new JSON;

my $perl_hash = $json_obj->decode ($jsonString);
delete ${$perl_hash}{'__CLASS__'};
$jsonString = $json_obj->encode($perl_hash);
print $jsonString."\n\n";
4

1 回答 1

1

MooseX::Storage不是特别适合这个任务。它旨在启用 Moose 对象的持久存储（这就是它添加__CLASS__字段的原因），以便您的程序稍后可以检索它们。

如果您的目标是为 JSON API 构造对象，那么将对象的 hashref 直接传递给 JSON.pm 可能会容易得多。

use JSON -convert_blessed_universally;

my $json_obj = JSON->new->allow_blessed->convert_blessed;
my $jsonString = $json_obj->encode( $componentObject );

该-convert_blessed_universally选项（除了是满嘴）将导致 JSON.pm 将祝福引用（对象）视为可以直接转换为 JSON 的普通 Perl 结构。

编辑：看起来您还必须将allow_blessedandconvert_blessed选项添加到 JSON 对象。

于 2013-08-28T19:05:39.847 回答