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!
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!