别名 DBIx::Class 结果集中两列的总和

Question

选择 me.id、me.date_created、me.date_updated、me.yes、 me.name, me.description, me.currency, me.locked, me.skip, me.uri_part，me.user_id， 是 + 货币作为重量

根据我的想法，我有 ((weight

如何在 DBIx::Class 中生成该查询而不使用像这样的文字 SQL：

    my $query = $rs->search({},
    {
        '+select' => \[
            'yes + currency as weight',
        ],
        rows => 1,
        order_by => { -desc => [qw/weight name/] },
        having => {
            weight => { '<' => $self->yes + $self->currency },
        },
    });
    use Data::Dumper;
    warn Dumper($query->as_query);

我尝试使用 -as，但是，它似乎只对处理从函数生成的列有用，因为这样：

'+select' =>  {
  'yes + currency', '-as' => 'weight'
}

产生错误

"匿名哈希中的奇数个元素在 /data/TGC/lib/TGC/DB/Result/Idea.pm 第 105 行，第 1000 行。 DBIx::Class::SQLMaker::_recurse_fields()：选择参数格式错误 - 哈希中的键太多：SCALAR(0xbf14c40),weight"

Answer 1

“+as”应与“+select”处于同一级别

$idea = $rs->search({-and => [
    name   => { '<' => $self->name },
]},
{
    '+select' => [
        'yes + currency'
    ],
    '+as' => [qw/weight/],
    rows => 1,
    order_by => ['weight', 'name'],
    having => {
        weight => { '<' => $self->yes + $self->currency },
    },
})->single;

Answer 2

可能是我在 SQL 抽象表达式中能想到的最惯用的东西，不用太费劲：

#!/usr/bin/env perl
use Modern::Perl;

use MySchema;
use Data::Dumper;

my $schema = MySchema->connect('dbi:SQLite:example.db');

my $rs = $schema->resultset('Sample')->search(
  {
     weight => { '<' => 5 },
  },
  {
    '+select' => [
        { '' => \'`me`.`yes` + `me`.`currency`', -as => 'weight' }
    ]
  }
);


say Dumper( $rs->as_query() );

这是对列名的人为包装，但它确实起到了作用。只是不知道有什么方法可以在这里抽象+。但还是：

'(SELECT me.name, me.yes, me.currency, (me.yes + me.currency) AS weight FROM sample me WHERE (weight

除非您只是使用惯用的 perl，在这种情况下：

{ '' => \(join " + ", qw/`me`.`yes` `me`.`currency`/), -as => 'weight' }

但考虑到这两种形式都比文字字符串长，这两种方式似乎有点做作。

另请注意，weight 在 WHERE 中而不是 HAVING 中引用，这是因为 将 在各种 SQL 引擎上崩溃。