Question

有什么想法吗？有人之前解决了这个问题吗？

select c.parent_id, c.category_id, c.name, count(*)
  from categories c
  join product_categories pc
    on c.category_id      = pc.category_id
  join authorizations a
    on pc.product_id      = a.product_id
  join set_authorizations sa
    on a.authorization_id = sa.authorization_id
 where a.active           = 1
   and sa.set_id          = 2
   and c.parent_id in (
    select category_id
      from categories
     where parent_id is null
       )
 group by c.parent_id, c.category_id, c.name;

提前致谢...

Answer 1

你正在寻找一些不太容易实现的东西。正如dgw所说，你必须首先做一些功课，定义你的模型对象 - 使用DBIx :: Class，或者Rose :: DB :: Object，或者你喜欢的任何ORM。只有这样，使用这些对象将成为一项微不足道的任务，无论它们有多复杂。

但还有另一种方法：使用SQL :: Abstract模块及其'扩展'，SQL :: Abstract :: More。如果你只需要抽象你的查询，让它们'perlish'而不是'sqlish'，我想这就是医生所要求的。）

例如，您在SQL :: Abstract :: More中的查询听起来像这样：

my ($sql, @bind) = $sqla->select(
  -columns => [ qw/c.parent_id c.category_id c.name COUNT(*)/ ],
  -from    => [-join => qw/
        categories|c 
          category_id=category_id   product_categories|pc 
          product_id=product_id     authorizations|a
          authorization_id=authorization_id set_authorizations|sa
        /],
  -where   => { 
    'a.active'  => 1, 
    'sa.set_id' => 2, 
    'c.parent_id' => \["IN (SELECT category_id FROM categories WHERE parent_id IS NULL)"], 
  },
  -group_by => [qw/ c.parent_id c.category_id c.name /],
);

这仍然非常强大，但是......也许创建一个包含所有连接表的VIEW会使代码（我认为，性能）更容易消化？）

如何使用多个连接和子查询将此SQL查询转换为Perl DBIx :: Class？

1 个答案: