Tag: DBIx::Custom



2011年 10月 14

すぐ忘れるし、どこにあったか分からなくなるのでメモ。

Mojolicious – GitHubより引用

    package MyApp;

    use Mojo::Base 'Mojolicious';

    use DBIx::Custom;

    has dbi => sub {
        my $dbi = DBIx::Custom->connect(...);
        return $dbi;
    };
    
    sub startup {
        my $self = shift;

        ### YOU MUST NOT CALL dbi() method in starup().
    }

リンク先にはBad Exampleもあるので参考に。


Filed under: Mojolicious,perlモジュール

Trackback Uri






2011年 7月 30

DBIx::Custom – search.cpan.org
DBIx-Custom-0.1705

DBIx::Custom select メソッドの whereの項目を見ると様々な指定方法が出来ることが分かる。

注意する点はStringを渡す時。

where => "url = 'http://hoge.com/huga.cgi?key=value' ",

上のように条件に ? が含まれる場合、SQLの作成に失敗する。(DBIx::Custom::QueryBuilder::build_queryでかな?)

? がメタ文字として扱われるため?(\?とエスケープしてもダメ)

Hashリファレンスで渡すと大丈夫です。

where => {url => 'http://hoge.com/huga.cgi?key=value' },

これを踏まえてコードにすると、安全なのはこんな感じのコードになるのかな。

    my $id = 1;
    my $url = 'http://hoge.com/huga.cgi?key=value';
    $result = $dbi->select(
        table   =>  'table_name',
        column  => [qw/title content url/],
        where => [
                    ["and", "{= id}", "url = :url", "update_time > SUBDATE( NOW(), interval 7 day )"],
                    { id => $id, url => $url},
        ],
    );

※ {= id} は “id = :id” とも書ける(url = :urlも同様)。あえて両方含めてみた。

where にはDBIx::Custom::Whereオブジェクトも指定できますが、DBIx::Custom::Whereオブジェクトを生成する時にも同様で、? を含めた条件には注意が必要。

追記:タグ機能は廃止予定だそうです。
http://twitter.com/#!/perlcodesample/status/97162783644319744


Filed under: perlモジュール

Trackback Uri






2011年 7月 29

DBIx::Customが生SQL感覚でも使えてお気に入りなのだけれど、ちょっこしハマったのでメモ。

DBIx::Custom – search.cpan.org

MySQL(に限らないと思う)でwhereに関数を利用したい時は多々あると思います。
例えば、更新時刻を見て7日以上古ければ選択しないという条件をwhereに指定したい時、

CREATE TABLE  `table` (
    `name` VARCHAR( 5 ) ,
    `update_time` TIMESTAMP
)

SELECT * FROM `table` WHERE update_time > SUBDATE(NOW(), interval 7 day);

このようなSQLだとします。

行の選択 select / DBIx::Custom リファレンス – サンプルコードによるPerl入門によれば、where句の設定は、

where => {title => 'Perl', author => 'Ken'}

と、ハッシュリファレンスで渡すことになっています。

= 以外での比較は DBIx::Custom::Whereオブジェクト を作成して渡すことになっているのですが、ハッシュリファレンスで SUBDATE(NOW(), interval 7 day) を渡すとうまくいかないので悩んでいました。

append => ” で文字列を追加できるので、無理やり実装してみたのですが作者にツイートしてみたところ、

twitterのキャプチャ

がーん、そうなのか。恥ずかしい。。さらに、

twitterのキャプチャ2

がーん、DBIx::Custom::Where でも文字列が指定できたのか。。。(恥恥

という事で、

use DBIx::Custom;
my $dbi = DBIx::Custom->connect(
    ...........  端折ります
);
my $result = $dbi->select(
    table => 'table',
    where => 'create_time > SUBDATE(NOW(),  interval 7 day)', 
);

あるいは、

use DBIx::Custom;
my $where = $dbi->where;
$where->clause([
    'and', 'create_time > SUBDATE(NOW(),  interval 7 day)'
]);
my $result = $dbi->select(
    table => 'table',
    where => $where, 
);

で、出来るって事なんですね。(ソース嫁!)

id:perlcodesampleさんありがとうございました!
DBIx::Customいいよー。

ところで

SYNOPSYSにあるinsertとかupdateとかが失敗するのはボクの日頃の行いが悪いせいでしょうか?

    # Insert 
    $dbi->insert({title => 'Perl', author => 'Ken'}, table  => 'book');
    
    # Update 
    $dbi->update({title => 'Perl', author => 'Ken'}, table  => 'book',
      where  => {id => 5});
    # Insert 
    $dbi->insert( param => {title => 'Perl', author => 'Ken'}, table  => 'book' );
    
    # Update 
    $dbi->update( param => {title => 'Perl', author => 'Ken'}, table  => 'book',
      where  => {id => 5} );

だと性交いや、成功するのですが。
param が必要??(だからソース嫁!)

追記:DBIx::Customのバージョンが 0.168 だったからのようです…APIが追加された模様。


Filed under: MySQL,perlモジュール

Trackback Uri