0

我有 2 个数据库表

JOBS(JOB_ID, JOB_TIME, JOB_NAME,...), JOB_PARAMETERS(JOB_ID,NAME,VALUE)

其中 JOB_PARAMETERS 本质上是一个包含作业参数键值对的映射。每个作业都可能有一个唯一的参数键/值对。

我希望务实地构建一个查询，该查询将返回包含键/值组合的不同作业 ID。这些值实际上是一个值列表，比较运算符。例如：

JOB_PARAMETERS: NAME = 'OUTPUT_FILENAME', VALUE LIKE "ALEX%", "JAX%"
                NAME = 'PRIORITY' , VALUE > 7

上面的示例将自动过滤掉所有没有 OUTPUT_FILENAME 和 PRIORITY 键的作业。返回满足这两个条件的所有工作。

我还需要能够支持分页和排序。

我计划将 Perl 与 DBIx::Class 一起使用，但我也可以在纯 Perl/SQL 中完成。

我愿意更改数据库架构，但每个作业都可以有不同的键/值对，所以我不能只在作业表中将它们设为列。

提前致谢。

4

2 回答 2

1

可以在 SQL 中通过相应地分组JOB_PARAMETERS和JOB_ID过滤组来完成。例如，如果存在唯一性约束(JOB_ID, NAME)，可以查询如下：

SELECT   JOB_ID
FROM     JOB_PARAMETERS
WHERE    (NAME='OUTPUT_FILENAME' AND (VALUE LIKE 'ALEX%' OR VALUE LIKE 'JAX%'))
      OR (NAME='PRIORITY' AND VALUE > 7)
GROUP BY JOB_ID
HAVING   COUNT(*) = 2

如果没有这样的唯一性约束，COUNT(*)则必须替换为COUNT(DISTINCT NAME).

于 2013-04-19T14:43:29.687 回答
1

使用 DBIx::Class 时，您可以使用 Schema::Loader 生成 DBIC 模式。

连接到数据库后，您会得到一个 $schema 对象，您可以使用它来获取过滤后的 ResultSet 以返回您想要的 Result 对象：

my $rs_job_parameters = $schema->resultset('Job_Parameters')->search({
    -or => [
        {
            'name' => 'OUTPUT_FILENAME',
            'value' => [{ like => 'ALEX%'}, { like => 'JAX%' }].
        },
        {
            'name' => 'PRIORITY',
            'value' => [{ '>' => 7}].
        }
    ]},
    {
        columns  => [qw( job_id )],
        group_by => [qw( job_id )], # alternative you can use distinct => 1 to group_by all selected columns
        having   => \[ 'COUNT(*) = ?', [ 2 ] ],
    }
);

my @job_ids = $rs_job_parameters->get_column('job_id')->all;
于 2013-04-19T17:48:52.230 回答