在DBIx :: Class中使用占位符排序

时间:2012-08-09 08:24:30

标签: perl dbix-class

使用ORDER BY myfunction(col, ?, ?) DESC中的绑定值DBIx::Class生成订单的正确方法是什么?

目前我使用文字SQL,但由于多种原因,这不是最佳的。

$rs->search(undef, { order_by => \"myfunction(col, $v1, $v2) DESC" });

2 个答案:

答案 0 :(得分:4)

这样的事情:

$rs->search(
    undef,
    {
        '+columns' => [{
            'res' => {
                'func' => ['me.col', \['?' => $val1], \['?' => $val2]],
                '-as'  => 'res',
            },
        }],
        'order_by' => {'-desc' => 'res'},
    }
);

将生成(对于MySQL& ($val1, $val2) = qw(val1 val2)):

SELECT `me`.`id`, ..., FUNC( `me`.`col`, ?, ? ) AS `res`
    FROM `table` `me`
    ORDER BY `res` DESC:
'val1',
'val2'

答案 1 :(得分:2)

我确实设法让DBIx::Class生成正确的ORDER BY。这是代码:

$rs->search(undef, {
    order_by => \[
        'myfunction(mycol, ?, ?) DESC', map [dummy => $_], $v1, $v2
    ]
});