序列化和反序列化perl DBI连接对象

Question

I need serialize one array with DBI connection objects to shared with others process using shared memory. But deserialize not working.

use storable qw/freeze thaw/;

my @connections;

for(my $c = 0;$c < 5;$c++) {
  my $conn = DBI->connect($dsn,$user,$password,{'AutoCommit' => 1, 'RaiseError' => 1, 'PrintError' => 0});
  push(@connections,$conn);
}

my $shm = freeze(@connections);
my $obj = thaw($shm);

Return error: Global symbol

"$drh" requires explicit package name (did you forget to declare "my $drh"?) at (eval 33) line 6.

Answer 1

您无法序列化数据库句柄/连接，因为它由Storable无法访问的用户空间数据（即Perl外部和数据库库内部，也可能在TLS库中）以及内核数据（如文件描述符）组成。