Serialize/Deserialize Perl Class Objects

于 2013-06-18 14:09:16 发布 · 120 阅读

文章标签：

#perl

perl 专栏收录该内容

23 篇文章

订阅专栏

本文介绍了一种在Perl中将类对象序列化为字符串的方法，并讨论了使用Data::Dumper和FreezeThaw模块进行序列化和反序列化的优缺点。通过实例展示了如何解决对象嵌套引用的问题。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Today in a small project I need to serialize a perl class object to string in order to cache it. And when getting back the value from the cache I need to deserialize it to original class objects.

There are good articles on the solutions:

http://www.ohmpie.com/serialization/

http://www.onperl.net/Serializing-and-Deserializing-using-Data-Serializer-pm

http://www.perlmonks.org/?node_id=8070

http://my.safaribooksonline.com/book/programming/perl/0596004567/objects-databases-and-applications/advperl2-chp-4-sect-2

First, I tried Data::Dumper which is quite simple. But if you class object has nested reference, when deserializing you will get 'undef' for the reference. E.g., if a part of the dumped sting is like this:

bless( {
'id' => '1',
'date' => '20130618',
'date_range' => $VAR1->{'logs'}[0]{'date_range'},
}, 'SiteLog::Entity::Log' ),

the data_range you get will be undef.

Finally I tried FreezeThaw, it works fine!