在find()内部使用OR子句

时间:2019-01-09 13:31:51

标签: perl catalyst dbix-class

当两个描述符列之一像所提供的数据一样时,我需要使用DBIx :: Class从数据库表中获取一行。

我的SQL选择看起来像这样:

select id from products where (code = 'VALUE' or description like '%VALUE%')

表具有唯一性约束,这确保了VALUE仅存在一行。

如何使用DBIx :: Class编写此SQL?

以下代码为我返回值 1 ,但返回的数据不正确:

my $param = 'VALUE';
my $res = $c->stash->{products_rs}->search(
    -or => [
        { code => { '=', $param } },{ description => { 'like', '%'.$param.'%' } }
    ],
);

我应该使用 find 方法返回单行,但是我不能使用-或子句。

有什么建议吗?


嗨,我回来了。我决定创建自己的课程。首先是架构类:

package prod::Schema;
use utf8;
use Moose;
use MooseX::MarkAsMethods autoclean => 1;
extends 'DBIx::Class::Schema';
__PACKAGE__->load_namespaces(
    default_resultset_class => 'ResultSet',
);
__PACKAGE__->meta->make_immutable(inline_constructor => 0);
1;

我正在为表使用基本Result类:

package prod::Schema::Result;
use strict;
use warnings;
use base qw( DBIx::Class::Core );
__PACKAGE__->load_components(
    "InflateColumn::DateTime", 
    "TimeStamp", 
    "EncodedColumn"
);
1;

然后每个表使用一个ResultSet基类:

package prod::Schema::ResultSet;
use strict;
use warnings;
use base qw( DBIx::Class::ResultSet );
__PACKAGE__->load_components('Helper::ResultSet::OneRow');
1;

和产品类本身:

package prod::Schema::Result::Products;
use strict;
use warnings;
use utf8;
use Moose;
use MooseX::NonMoose;
use MooseX::MarkAsMethods autoclean => 1;
extends 'prod::Schema::Result';
__PACKAGE__->table("prod.products");
__PACKAGE__->add_columns("id",  {
    data_type => "uuid",
    default_value => \"uuid_generate_v4()",
    is_nullable => 0,
    size => 16,
}, "code", {
    data_type => "varchar", is_nullable => 0, size => 2
}, "name", {
    data_type => "varchar", is_nullable => 0, size => 128 },
);
__PACKAGE__->set_primary_key("id");
__PACKAGE__->add_unique_constraint("uk_products_code", ["code"]);
__PACKAGE__->meta->make_immutable;
1;

应用程序使用以下模型类:

package prod::Model::DB_T;
use strict;
use base 'Catalyst::Model::DBIC::Schema';
__PACKAGE__->config(
    schema_class => 'prod::Schema',
    connect_info => {
        dsn => 'dbi:Pg:dbname=p12;host=localhost',
        user => 'username',
        password => 'password',
        AutoCommit => q{1},
    }
);
1;

根是这样的:

package prod::Controller::Root;
use Moose;
use namespace::autoclean;
use Data::Dumper;
BEGIN { extends 'Catalyst::Controller' }
__PACKAGE__->config(namespace => '');
sub index :Path :Args(0) {
    my ($self, $c) = @_;
    my $Products = $c->model('DB_T::Products');
    my $product = $Products->search(
        -or => [
        { code => { '=', 'x' } },{ name => { 'like', '%'.'X'.'%' } }
        ],
    )->one_row;
    my $str = ''.$product->name;
    $c->response->body('product: '.$str);
}
sub default :Path {
    my ($self, $c) = @_;
    $c->response->body('Page not found');
    $c->response->status(404);
}
sub end : ActionClass('RenderView') {}
__PACKAGE__->meta->make_immutable;
1;

现在,我正在使用该帮助程序类中的 one_row ,确实得到了所需的结果,但是SQL语句保持打开状态,直到关闭应用程序为止。

@Alexander Hartmaier,您说过我应该避免这种情况。但是如何?此代码有什么问题?

1 个答案:

答案 0 :(得分:0)

要么使用强烈推荐的DBIx::Class::Helper发行版中的one_row方法,要么复制其代码。

first不应使用,因为它会使数据库语句句柄保持打开状态。