当两个描述符列之一像所提供的数据一样时,我需要使用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,您说过我应该避免这种情况。但是如何?此代码有什么问题?
答案 0 :(得分:0)
要么使用强烈推荐的DBIx::Class::Helper发行版中的one_row
方法,要么复制其代码。
first
不应使用,因为它会使数据库语句句柄保持打开状态。