加入收藏 | 设为首页 | 会员中心 | 我要投稿 李大同 (https://www.lidatong.com.cn/)- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置: 首页 > 大数据 > 正文

Moose(Perl):使用%$object来获取序列化对象的数据表示是否可以

发布时间:2020-12-15 23:23:33 所属栏目:大数据 来源:网络整理
导读:我经常使用Moose来确保我的数据具有合适的默认值,如下所示: package Bla;use Moose;has eins = is = 'ro',isa = 'Int';has zwei = is = 'ro',isa = 'Int',default = 2;no Moose; __PACKAGE__-meta-make_immutable;package main;use v5.10;use Data::Dumper;
我经常使用Moose来确保我的数据具有合适的默认值,如下所示:

package Bla;
use Moose;
has eins => is => 'ro',isa => 'Int';
has zwei => is => 'ro',isa => 'Int',default => 2;
no Moose; __PACKAGE__->meta->make_immutable;

package main;
use v5.10;
use Data::Dumper;
use URI;

my $bla = Bla->new( eins => 77 );
my $bl2 = Bla->new;
print Dumper $bla,$bl2;
say join "t",%$bla;
say join "t",%$bl2;

my $u = URI->new( 'http://www.example.com/ws' );
$u->query_form( %$bla );
say $u;
$u->query_form( %$bl2 );
say $u;

只要那种数据容器没有任何引用成员(因此没有嵌套),你是否可以说,如果你想获得原始的,只需使用对象哈希表就像在%$对象中一样好或者可以推荐数据,假设是通过URI->query_form或类似方法进行序列化的初始化程序?或者有没有更好的方法来实现这个内置于穆斯?

UPDATE

通过在上面的行,标题,甚至标签中删除小字序列化,我看起来一直在引导人们走错路.请注意,我对查找序列化程序不感兴趣.在我的示例中,URI模块是序列化程序.问题是如何获取数据以提供URI-> query_form(或我可能尝试的任何其他序列化程序).所以我想知道的是,对于给定的Moose对象$object,只需取消引用对象引用即可获取数据(键和值,或者,如果您愿意,还可以获取属性名称和值),如%$object ?只要对象不包含任何引用值(如数组引用,其他对象等)以及 – 我不确定的事情 – Moose赢了,如果我迄今为止收集的经验是可行的,这将有效.不要使用实例引用来存储自己的数据,例如__MOOSE_WHATNOT => $funky_moose_addon.那么Moose可能会使用实例引用来存储它自己的一些数据,还是被设计排除?

更新2

要回答标题中的问题:

不,使用%$object来获取Moose对象的数据是不可行的,即使它不包含任何引用值,因此您将获得构成$对象的字符串和数字的副本.这不好,因为它破坏了封装.它甚至可能导致运行时错误,因为虽然散列是构成Moose对象基础的默认数据结构,但不能保证它总是一个散列,它实际上可能是其他东西.

您应该使用MooseX :: Storage,它将为对象提供pack方法.

解决方法

正如jira所说,规范的方法是使用MooseX :: Storage. %$object的问题在于,虽然Moose对象实例的默认存储是一个有福的哈希,但Moose没有做出正式承诺,总是如此.例如,MooseX :: GlobRef,MooseX :: NonMoose,MooseX :: InsideOut都允许使用替代实例结构.

像MooseX :: Storage这样的包使用MOP来查询实例元对象并正确地序列化数据结构.你当然可以通过抓取每个Moose对象后面的Moose :: Meta :: Class来手动完成这个操作,但老实说MooseX :: Storage写得很好并且此时非常稳定.

标准用法是:

package Class {
     use Moose;
     use MooseX::Storage;
     with Storage();
     ...
}

my $o = Class->new(...)
my $u = URI->new( 'http://www.example.com/ws' );
$u->query_form( $o->pack );

(编辑:李大同)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    推荐文章
      热点阅读