Как я могу преобразовать этот SQL-запрос, используя COUNT, SUM, CASE и BETWEEN в Perl DBIx :: Class? - PullRequest
1 голос
/ 19 января 2011

Как мне преобразовать этот SQL-запрос в Perl DBIx :: Class code?

SELECT COUNT(*) AS num_grads,
       SUM(CASE WHEN employment_status = 1 THEN 1 ELSE 0 END) AS num_employed
  FROM students
 WHERE status = 6  -- 6 means they graduated
   AND grad_date BETWEEN Convert(datetime, ?) AND Convert(datetime, ?)

1 Ответ

1 голос
/ 19 января 2011

Предполагая, что вы имеете в виду DBIx :: Class, тогда я, вероятно, выберу что-то вроде:

my $rs = My::Schema->resultset('Students') #
    ->search({
        status => 6,
        grad_date => { 'between' => [ $start_dt, $end_dt ] },
    });

my $num_grads    = $rs->count();
my $num_employed = $rs->search({ employment_status => 1 })->count();

Конечно, бит даты и времени будет зависеть от ваших форматов даты и времени, независимо от того, будете ли вы автоматически раздувать / раздуватьдата и т. д.

...