Hatena::Groupasakura

浅倉卓司@blog風味? このページをアンテナに追加 RSSフィード

Error : RSSが取得できませんでした。

2006-04-28(Fri)

Class::DBI::Sweetで外部結合を使いたい!

| 14:25 |  Class::DBI::Sweetで外部結合を使いたい! - 浅倉卓司@blog風味? を含むブックマーク  Class::DBI::Sweetで外部結合を使いたい! - 浅倉卓司@blog風味? のブックマークコメント

目次

 Class::DBI::Sweetを使うといろいろ快適なのですが、残念ながら外部結合が使えません。

 ひょっとするとJOINの構文が各種RDBMSで違うから対応していないのかと思って調べてみた。


RDBMSのJOIN構文

MySQL:http://dev.mysql.com/doc/refman/4.1/ja/join.html

table_reference, table_reference
table_reference [INNER | CROSS] JOIN table_reference [join_condition]
table_reference STRAIGHT_JOIN table_reference
table_reference LEFT [OUTER] JOIN table_reference join_condition
table_reference NATURAL [LEFT [OUTER]] JOIN table_reference
{ ON table_reference LEFT OUTER JOIN table_reference
    ON conditional_expr }
table_reference RIGHT [OUTER] JOIN table_reference join_condition
table_reference NATURAL [RIGHT [OUTER]] JOIN table_reference

PostgreSQL:http://www.postgresql.jp/document/pg813doc/html/queries-table-expressions.html#QUERIES-FROM

T1 { [INNER] | { LEFT | RIGHT | FULL } [OUTER] } JOIN T2 ON boolean_expression
T1 { [INNER] | { LEFT | RIGHT | FULL } [OUTER] } JOIN T2 USING ( join column list )
T1 NATURAL { [INNER] | { LEFT | RIGHT | FULL } [OUTER] } JOIN T2

Firebird:http://firebird.skr.jp/wiki/SELECT

<tableref> = <joined_table> | table | view | procedure
    [(<val> [, <val> …])] [alias]

<joined_table> = <tableref> <join_type> JOIN <tableref>
    ON <search_condition> | (<joined_table>)

<join_type> = [INNER] JOIN
    | {LEFT | RIGHT | FULL } [OUTER]} JOIN

SQLite:http://www.net-newbie.com/sqlite/lang.html#select

table-list ::=	table [join-op table join-args]*	
table ::=	table-name [AS alias] |
( select ) [AS alias]	
join-op ::=	, | [NATURAL] [LEFT | RIGHT | FULL] [OUTER | INNER | CROSS] JOIN	
join-args ::=	[ON expr] [USING ( id-list )]

 うーん。どれもみんな普通に使えそうだ*1

 Class::DBI::SweetのJOINを、WHEREに条件を書く形じゃなく、JOIN ONの形に変更できないものか。

 そうすりゃ外部結合なんかにも対応できるようになるんじゃないかなー。has_aのテーブルは現状のままでいいけど、has_manyとかmight_haveのテーブルは外部結合になってたほうがいろいろ便利そうだし。


Class::DBI::Sweet::SQL::Abstractによるマジック

 前にSweetをいじったときになんかJOINを作ってる部分があったのを思い出した。

    my $joins  = delete $self->{cdbi_join_info};
    my $tables = delete $self->{cdbi_table_aliases};

    my $from = $self->{cdbi_class}->table . " ${me}";

    foreach my $join ( keys %{$joins} ) {
        my $table = $tables->{$join}->table;
        $from .= ", ${table} ${join}";
        my ( $l_alias, $l_key, $f_key ) =
          @{ $joins->{$join} }{qw/l_alias l_key f_key/};
        $sql .= " AND ${l_alias}.${l_key} = ${join}.${f_key}";
    }

 ここを変更すればイケそう。

 ただし、無条件に外部結合にすると重くなるので、それを指示できるようにする必要がある。

 Sweet側は$attributeでLEFT JOINするテーブルを指定するのがいいか。Sweet::SQL::Abstract側をどうするか、かな。


Class::DBI::Relationshipを利用する

 searchメソッドの$attributeは使わずに、has_many や might_have で利用している Class::DBI::Relationship の args に設定するといい感じかも。

 こんな感じ:

__PACKAGE__->has_many( cds => 'MyData::CDs', {join_type => 'LEFT'} );
__PACKAGE__->might_have( notes => 'MyData::Notes', {join_type => 'LEFT'} );

 これなら既存のモジュールには影響を与えないし*2、必要なモノだけ外部結合できる。はず。


で、作ったのが Class::DBI::Sweet::More

http://search.cpan.org/~asakura/Class-DBI-Sweet-More-0.01/lib/Class/DBI/Sweet/More.pm

*1:ただし「JOINの場合はINDEXを張っておく必要がある」とか、そういう条件はあるかもしんない。けど、普通はINDEX張るでしょ?

*2:少なくともSweetのテストは問題なく通る。

トラックバック - http://asakura.g.hatena.ne.jp/asakura-t/20060428
2004 | 01 | 02 | 03 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2005 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2006 | 01 | 02 | 03 | 04 | 05 | 06 | 08 | 09 | 10 | 11 | 12 |
2007 | 02 | 03 | 04 | 05 | 06 | 07 | 10 | 11 | 12 |
2008 | 02 | 03 | 04 | 06 | 09 | 10 | 11 | 12 |
2009 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 09 | 10 | 11 | 12 |
2010 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2011 | 01 | 02 | 03 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2012 | 02 | 03 | 04 | 05 | 07 | 08 | 10 | 11 | 12 |
2013 | 01 | 05 | 07 |
2014 | 01 | 02 |
2016 | 01 |
2017 | 01 | 05 |