我如何可以共享在Perl跨分叉过程中的数据库连接？

Question

我在Perl作了如下程序之前：

my $db = DBconnection with DB2

if ($pid = fork()) {
    #parent
} else {
    #child
    $db->execute("SELECT ****");
    exit;
}

wait();
$db->execute("SELECT ****");

我认为它等待子进程结束时一直想这样做，并会被亲过程操作它的数据库。

另外，DB没有连接到该错误的内容。

怎么了？

Answer 1

有很多的东西，你必须做，让一个子进程来利用其父的DBI句柄。请参见本文关于Perl僧有关 DBI，叉，和克隆。

Answer 2

尝试包括在你的孩子块这行代码：

$db->{InactiveDestroy} = 1;