1

我想使用 Storable::nfreeze 在数据库中插入一个哈希，但数据没有正确插入。

我的代码如下：

%rec=();
$rec{'name'} = 'my name';
$rec{'address'} = 'my address';

my $order1 = new Order();
$order1->set_session(\%rec);
$self->createOrder($order1);

sub createOrder {
my $self  = $_[0];
my $order = $_[1];


# Retrieve the fields to insert into the database.
my $st = $dbh->prepare("insert into order (session,.......) values(?,........)");

my $session   = %{$order->get_session()};
$st->execute(&Storable::nfreeze(\%session),.....);
$st->finish();

}

sub getOrder
{
     ...

    my $session = &Storable::thaw( $ref->{'session'} );
    .....
}

工作正常，因为我用thaw一些已正确插入的行对其进行了测试，但是当我尝试获取使用createOrder子例程插入的行时，我收到一条错误消息：

可存储二进制映像 v36.65 比我 (v2.7) 更新，位于 blib/lib/Storable.pm（自动拆分为 blib/lib/auto/Storable/thaw.al）第 415 行

错误来自具有thaw. nfreeze没有正确存储哈希。

有人可以指出我在createOrder子程序中做错了什么吗？

我知道模块版本与问题无关。

4

1 回答 1

4

您的问题可能是此处不正确的取消引用：

my $session   = %{$order->get_session()};
$st->execute(&Storable::nfreeze(\%session),.....);

这应该解决它：

my $session   = $order->get_session();
$st->execute(&Storable::nfreeze($session),.....);

由于->get_session返回一个哈希引用，当您在标量上下文中取消引用它时，它会变成一个包含哈希统计信息的字符串。哈希%session是空包变量%main::session，如果您使用use strict; use warnings;.

于 2010-04-16T14:45:14.710 回答