0

数据库架构：

create table requests(
    rid integer primary key autoincrement,
    oid integer references orders (oid),
    command varchar(5),
    account varchar(50),
    txn_id varchar(12),
    md5 varchar(30),
    txn_date varchar(14),
    sum float,
    regdt timestamp default current_timestamp,
    constraint u1 unique (command,txn_id)
);
create table orders (
    oid integer primary key autoincrement,
    cid integer references customers (cid),
    pid integer references providers (pid),
    account varchar(50),
    amount float
);

由 DBIx::Class::Schema::Loader 映射到代码。

我的控制器代码：

 my $req= $schema->resultset('Request');
 my $order= $schema->resultset('Order');

      my $r= $req->find(
            {   command => 'check',
                txn_id  => $txn_id,
            },
            { key => 'command_txn_id_unique' }
        );
        my $oid=$r->oid;

        $req->create(
            {   command  => $command,
                account  => $account,
                txn_id   => $txn_id,
                md5      => $md5,
                txn_date => $txn_date,
                sum      => $sum,
                oid      => $oid
            }
        );
       my $o = $order->find($oid);

       $o->sum($sum);
       $o->update;

我的tracert sqls DBIC_TRACE=1

  SELECT me.rid, me.oid, me.command, me.account, me.txn_id, me.md5, me.txn_date, me.sum, me.regdt FROM requests me 
WHERE ( ( me.command = ? AND me.txn_id = ? ) ): 'check', '1358505665'
    SELECT me.oid, me.cid, me.pid, me.account, me.amount FROM orders me 
WHERE ( me.oid = ? ): '18'
    INSERT INTO requests ( account, command, md5, oid, sum, txn_date, txn_id) VALUES ( ?, ?, ?, ?, ?, ?, ? ): '1', 'pay', '44F4BC73D17E3FA906F658BB5916B7DC', '18', '500', '20130118104122', '1358505665'
    DBIx::Class::Storage::DBI::SQLite::_dbi_attrs_for_bind(): Non-integer value supplied for column 'me.oid' despite the integer datatype at /home/.../lib/TestPrj/Test.pm line 128
    SELECT me.oid, me.cid, me.pid, me.account, me.amount FROM orders me WHERE ( me.oid = ? ): 'TestPrj::Model::Result::Order=HASH(0x3dea448)'
    datatype mismatch: bind param (0) =HASH(0x3dea448) as integer at /usr/share/perl5/DBIx/Class/Storage/DBI.pm line 1765.

我不明白 ：

为什么在第一个选择查询中 $oid = 18 并且没问题。真的是18岁。

但是在第二个选择查询中，这个 $oid 是一个 HASH 吗？它没有在我的代码中的任何地方重新定义。

升级版：

根据@akawhy 的建议使用 Data::Dumper 我看到 $oid 是一个有福的 HASH。

所以，看起来有不同的上下文

{ ... oid => $oid .. .} 中的标量

并在 find(...) 中散列。

我不知道为什么它在第一种情况下不是哈希。

但是，当我更改为 $oid=$r->get_column($oid) 时，一切正常。

4

2 回答 2

2

$resultset->find 返回一个 Result 对象。您没有粘贴 ResultSource 类，但正如您所写的那样，您使用 Schema::Loader 生成了它们，我假设“oid”列访问器方法与“oid”关系访问器相同。在这种情况下，它会根据标量与列表上下文返回不同的内容。

我建议重命名您的关系，以便您对列值及其关系有两个不同的访问器。

我为所有关系添加前缀“rel_”，但您可能更喜欢不同的命名标准。

于 2013-06-07T17:10:27.033 回答
1

我认为my $oid=$r->oid;这$oid是一个参考。您可以使用ref或Data::Dumper查看其类型。

也许你应该使用$oid->oid

并注意这个错误

DBIx::Class::Storage::DBI::SQLite::_dbi_attrs_for_bind(): Non-......

于 2013-06-07T13:45:47.450 回答