如何使用 DBIx::Class 进行子选择？

Question

我从 DBIx::Class 开始，我有一个想要在 DBIx::Class 中的子选择，但我很困惑并且无法构建代码。

我的 MySQL 选择是这样的：

Select name from tblCategory where id = (
    Select id from tblCategory where id = (
         Select id from tblRadio where name = "RFM"
    )
);

我读到 DBIx::Class 不支持子选择；是这样吗？如果是这样，遇到这种情况你会怎么做？

Answer 1

根据 DBIx::Class： :Manual::Cookbook 有一个新的子查询功能：

my $inside_rs = $schema->resultset('Radio')->search({ name => 'RFM' });

my $rs = $schema->resultset('Category')->search({
    id => { '=' => $inside_rs->get_column('id')->as_query },
});

它被标记为实验性的，所以 YMMV。

但还要注意 SQL::Abstract 其中 DBIx::Class 在构建其查询时使用确实有一个新的使用 -nest 的子查询功能。

Answer 2

难道这不能表示为连接吗？

my $rs = $schema->resultset('Category')->search(
    {   
       'Radio.name' => 'RFM' 
    },
    {   
        'join' => 'Radio'
    }   
);

这假设您在名为“Radio”的类别中具有关系。如果您不这样做，有大量文档可以帮助您设置 关系并了解如何执行加入。

至于子查询，最新版本的说明书说它们是 支持，但是实验性。

Answer 3

那么，当您使用 DBIC 的 search() 方法时，您始终可以提供标量引用来插入文字 SQL。例如：

my $rs = $schema->resultset('Category')->search({ 
              id => \"(Select id from tblRadio where name = 'RFM')" 
});

当我需要比 DBIC 支持的开箱即用的更多表现力时，这就是我过去必须做的事情。但我不知道在这种情况下这是否是“正确”的做法。

Answer 4

经过与 DBIC 的一番战斗后，我最终获胜：P （是的！）

必须重写一些东西，并且必须忘记子选择并做好关系。

我知道这段代码并不代表最初的问题，但如果我必须再次重写全部内容，我将向您展示我的“项目”的另一部分，其中我又遇到了其他困难。

接下来是我所做的：

DBIx::Class Schema

package DB::Esquema::Passwords;

use strict;
use warnings;

use base 'DBIx::Class';

__PACKAGE__->load_components("Core");
__PACKAGE__->table("Passwords");
__PACKAGE__->add_columns(
  "pswd",
  { data_type => "INT", default_value => undef, is_nullable => 0, size => 11 },
  "password",
  {
    data_type => "VARCHAR",
    default_value => undef,
    is_nullable => 1,
    size => 20,
  },
  "utilizadorid",
  { data_type => "INT", default_value => undef, is_nullable => 1, size => 11 },
);
__PACKAGE__->set_primary_key("pswd");
__PACKAGE__->belongs_to('utilizadorid' => 'DB::Esquema::Utilizadores');
#belongs_to is not autogenerated, done by hand

与 Utilizadores（用户）有关系

package DB::Esquema::Utilizadores;

use strict;
use warnings;

use base 'DBIx::Class';

__PACKAGE__->load_components("Core");
__PACKAGE__->table("Utilizadores");
__PACKAGE__->add_columns(
  "utilizador",
  { data_type => "INT", default_value => undef, is_nullable => 0, size => 11 },
  "nome",
  {
    data_type => "VARCHAR",
    default_value => undef,
    is_nullable => 1,
    size => 20,
  },
  "mail",
  {
    data_type => "VARCHAR",
    default_value => undef,
    is_nullable => 1,
    size => 30,
  },
);
__PACKAGE__->set_primary_key("utilizador");
__PACKAGE__->has_one('utilizador' => 'DB::Esquema::Passwords', 'utilizadorid');

NEXT（使其工作的脚本）

#!/usr/bin/perl -w

use strict;
use diagnostics; #was important to understand
use lib '/var/www/projectox/lib'; #is where the schema is
use DB::Esquema; #use the Schema

system('clear'); # clear the screen

my $esquema = DB::Esquema->connect("dbi:mysql:dbname=dbswiak","root","");
    $esquema->storage->debug(1);

    #HAD TO USE PREFETCH
    my $resultado = $esquema->resultset('Utilizadores')->search(
    undef,{
         prefetch => { 'utilizador' => 'utilizadorid' }
      }
    )->next();

结果：

    SELECT me.utilizador, me.nome, me.mail, utilizador.pswd, 
utilizador.password, utilizador.utilizadorid, utilizadorid.utilizador, utilizadorid.nome, utilizadorid.mail 
FROM Utilizadores me JOIN Passwords utilizador 
ON utilizador.utilizadorid = me.utilizador 
JOIN Utilizadores utilizadorid ON utilizadorid.utilizador = utilizador.utilizadorid: 

不是我真正想要的，但是最接近的，目标是仅选择我想要的列...也许我会达到该目标

Answer 5

子选择现在是实验性功能，如果您需要能够在编译时允许它们，则非常有用。然而，我发现以下是一个很好的方法：

1. 大多数子选择可以作为（更快的）联接来完成 - 因此在可能失败的地方使用联接
2. ，在数据库中创建一个视图并为该视图创建一个架构类。