perl – 在DB上存储对象并检索它
发布时间：2020-12-16 06:25:11 所属栏目：大数据 来源：网络整理
导读：我有一个perl对象(引用数组引用),如下所示： my $a = [ [$a,$ab,$c ],[$a,$b,$c] ] ; 并需要将其存储在DB上然后检索它. 有人建议一个好的机制来序列化甚至压缩它,然后将其存储在数据库中？然后反序列化它并在代码中使用它？ 解决方法 您可以使用任何已知的序
|
我有一个perl对象(引用数组引用),如下所示：
my $a = [ [$a,$ab,$c ],[$a,$b,$c] ] ; 并需要将其存储在DB上然后检索它. 有人建议一个好的机制来序列化甚至压缩它,然后将其存储在数据库中？然后反序列化它并在代码中使用它？ 解决方法
您可以使用任何已知的序列化器,例如
JSON::XS或
Storable.
如果要将引用检索为引用而不是作为值的副本,则可以更好地存储.然后将序列化对象保存在满足存储要求的任何类型(VARCHAR,BLOB,…)字段中. use Storable qw(nfreeze thaw);
use DBI;
# ... connect to database
# Store
my $data = [ [$a,[ $a,$c ] ];
my $bytestream = nfreeze $data;
$dbh->do('insert into table (field) values(?)',undef,$bytestream);
# Retrieve
$bytestream = $dbh->selectrow_array('select field from table where ...');
$data = thaw $bytestream;
此外,您可以压缩$bytestream,例如,通过IO :: Compress :: Gzip my $bytestream = gzip nfreeze $data; （编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |