DBIx::Class::ProxyTable - Hatena::Diary::Neko::kak 500 Internal Server Error
前にhttp://d.hatena.ne.jp/nekokak/20070824/1187941930ってのをかきましたが それをモジュール化してみた http://coderepos.org/share/browser/lang/perl/DBIx-Class-ProxyTable とりあえずMySQLとSQLiteでつかえる（はずです 使い方 package Your::Schema; use base 'DBIx::Class::Schema'; __PACKAGE__->load_classes(qw//); package Your::Schema::Log; use base 'DBIx::Class'; __PACKAGE__->load_components(qw/ProxyTable Core/); __PACKAGE__->table('log'); __PACKAGE
DBICでAtomicに値をupdateする術 - Hatena::Diary::Neko::kak 500 Internal Server Error
トランザクション使ってください。 以上！！ とかが当然一番な感じだったりするのですが、 MySQLのMyISAMを使ってたりしてトランザクションなんですかそれ状態の場合 まあ困るわけです。 my $user = $self->model('User')->search()->first; my $login_count = $user->login_count; $user->update({ login_count => $login_count+1}); とか書くとそりゃあんたずれるずれる。 ユーザ毎のLoginの回数を数えるだけならそんなにずれないでしょうけど、 がりがりUpdateされるテーブルの場合、ずれるずれる。 ずれまくります。 トランザクションが使えずになんとかアトミックに値を更新したい場合 こういうSQLが思い浮かぶわけですが。 UPDATE user SET login
独自のリレーション処理を行うにはどーすんの - Unknown::Programming
MoFedge::Data::DBIC::Schema::Loaderみたいな処理をCatalystから扱えるようにするにはどうしたらよいか悩んでます。 例としてMoFedge::Data::DBIC::Schema::Loaderをちょっと書き換えたHoge::DBIC::Schema::Loaderを用意します。 package Hoge::DBIC::Schema::Loader; use strict; use warnings; use base qw/DBIx::Class::Schema::Loader/; use UNIVERSAL::require; use Switch; use Lingua::EN::Inflect; sub setup_source { my $class = shift; for my $source_moniker ($class->sourc
DBIx::Simple - Hatena::Diary::Neko::kak 500 Internal Server Error
DBIx::Simpleがいい感じです。 普段はDBIC使うとして、複雑なSQLを実行しなければいけない場合、 DBI直でやったりしますが、DBIx::Simpleつかえばいい感じでかけます。 DBI直でもいいのですがOO風味でかけるのがうれしげ。 こんなん。すげー適当ですけど。 #! /usr/bin/perl use strict; use warnings; use Data::Dumper; use DBIx::Simple; my $db = DBIx::Simple->connect('dbi:mysql:test_dbic','hoge','moge') or die DBIx::Simple->error; for my $row ( $db->query('SELECT id FROM blog')->hashes ) { print Dumper $row; } my
DBICコネタ - Hatena::Diary::Neko::kak 500 Internal Server Error
find_or_createをよく使ってる人は find_or_newを使うようにしたほうがいいお。 たとえば、 my $member = $self->model('Member')->find_or_create( { name => 'nekokak' } )->update( { moge => 'kekekek' } ); とかすると、 searchしてinsertしてupdateとクエリが実行されるけど、 find_or_newを使えば、 my $member = $self->model('Member')->find_or_new( { name => 'nekokak' } )->insert( { moge => 'kekekek' } ); searchしてinsertだけで完結。 と、いうのを社内の人に教えてあげる予定。 最近、一眼レフのカメラがほしくなってきたある
DBICの集約関数 - Hatena::Diary::Neko::kak 500 Internal Server Error
http://www.ornithopter.jp/archives/2006/11/dbixclassdbic_d_1.html ケースによってはもっとスマートに扱えます。 こんな感じのデータがあったとします。 > select * from item; +----+------------+------+-------+---------------------+---------------------+ | id | rid | name | price | created_on | timestamp | +----+------------+------+-------+---------------------+---------------------+ | 1 | tkVjn4E2cQ | pen | 500 | 2007-02-17 13:55:06 | 2007-02
DBICS::Loader使った時にふがふがしたいの巻 - Hatena::Diary::Neko::kak 500 Internal Server Error
Loaderを使うと各スキーマは定義しなくてもLoaderが自動にやってくれるのですが、 スキーマをちょーっと拡張したい時とかは軽く工夫します。 例えば、 +------------+------------------+------+-----+---------------------+----------------+ | Field | Type | Null | Key | Default | Extra | +------------+------------------+------+-----+---------------------+----------------+ | id | int(10) unsigned | | PRI | NULL | auto_increment | | rid | varchar(10) | | UNI | | | | name_sei
MoFedge::Data::DBIC::Schema::Loader - Hatena::Diary::Neko::kak 500 Internal Server Error
今までMoFedge::Data::DBIC::Schemaを使う時は、 以下のような感じでした。 package TestDBIC::Schema; use strict; use warnings; use base qw(MoFedge::Data::DBIC::Schema); __PACKAGE__->load_classes( ); 1; package TestDBIC::Schema::Member; use strict; use warnings; use base 'TestDBIC::Schema'; __PACKAGE__->table('member'); __PACKAGE__->add_columns( qw/ id rid name created_on timestamp / ); 1; こんな感じにスキーマが増えると、対応するモジュールを作ってました。
DBICのRの拡張の必要性 - Hatena::Diary::Neko::kak 500 Internal Server Error
http://d.hatena.ne.jp/hi-rocks/20061228/1167291723 結局、ResultSetクラスにメソッド生やしちゃうと、全部のSchema（テーブル）でそのメソッドが共有されちゃう その通りです。 こちらについては、findのように共通メソッドとして使うものだけを考えています。 例のretrieve_ridはどのスキーマでも使いたいメソッドになるので。 まあ、例が悪かったりもしますが。 MoFedge::Data::DBIC::ResultSetRegisterをもっと作りこめば このスキーマからしか実行できないぜ！とかもできますが、 EXPERIMENTAL！！ です。オイラもつかってません＞＜ ちなみにDBICでは、実はスキーマ毎のResultSetの拡張はあんまり必要ないかなとか思ってます。 CDBIの場合はset_sqlしたりなんやかんや動的に
DBIC::Schema::Loader 使う時のリレーションとか - Hack Forever改めhi-rocksのはてなダイアリー
いきおいついでにもういっちょ。 DBIC::Schema::Loader 任せってわけにいかないのは言うまでもないので、なんとかしてやらなきゃなりませんね。 んで、最初から「convention over configuration」な設計ができてれば MoFedge::Data::DBIC::Schema のように半自動化することもできると思いますが、すでにそうでもない感じwになってしまってる場合の対応を考えてみました。 まあ、結局のところ「規約じゃなくて設定」になるわけなんですが。 とりあえず、こんな設定ファイルをYAMLで書いて、 artist: relationship: cds: - has_many - cd - artist_id utf8_columns: - name cd: relationship: artist_id: - belongs_to - artist t
DBICのRの件 - Hack Forever改めhi-rocksのはてなダイアリー
僕も最近ようやくDBICを触り始めました。まだ手探りな感じですが、とりあえずid:nekokakさんのとこはかなり参考にさせてもらいながら、いろいろ試し中です。（まだ新しいWeb+DBは見てませんすいません） そんで、表題の件なんですが。 http://d.hatena.ne.jp/nekokak/20061227/1167210571 結局、ResultSetクラスにメソッド生やしちゃうと、全部のSchema（テーブル）でそのメソッドが共有されちゃうことになって、あんまりうれしくないケースもあったりすると思うんですが。。。そんなことないですか？そうですか。 てなわけで、ワタクシとしては 案２：自分でResultSetのクラスを作成する。 かなあ、という結論にいたりました。 んで、テーブルごとに MyApp::Schema::User に対して MyApp::Schema::User::R
DBICのRの拡張 - Hatena::Diary::Neko::kak 500 Internal Server Error
WEB+DBが発売されてます。 id:naoyaさんの記事はDBICです！ 買うべしべし。 WEB+DB PRESS Vol.36posted with amazlet on 06.12.27WEB+DB PRESS編集部 技術評論社 売り上げランキング: 690 Amazon.co.jp で詳細を見る DBICでRを拡張する時の話ですが、WEB+DBにも載っているとおり、 CDBIとは異なりDBを操作する時にResultSetというレイヤを経由して もりもりDBを触るのですが、その為、CDBIで簡単にできていたことができなくなっています。 それはRの拡張です。 例えば弊社の場合、idの代わりにridがユニークなキーになってるので、 ridでレコードを検索する場合があり、 CDBIの場合 retrieve_ridというメソッドをCDBIに生やして、 Proj::Data::Blog->re
Elementary, ... 最近のコネタ
この前の仕事からTipsをダンプ... Catalyst x Lighttod の時、Catalyst は 5.7004 以上必須 Shibuya.pm の typester さんの話で感化されたのもあって採用した Lighty、イイ。シンプルに言われたことだけをこなしてくれる感じ。 で、Catalyst を Lighty で動かすときは Catalyst 5.7004 以上が必須なんすね。でないと、SCRIPT_NAME などの環境変数のバグから、http://example.com/foo/ と http://example.com/foo のように最後にスラッシュが付く付かないで実行されるアクションが変わってしまう。なので今後はアプリケーションクラスにすぐ use Catalyst::Runtime '5.7004'; と書くことにした。 Lighty、UploadProgressは
スカラりふぁれる - Hatena::Diary::Neko::kak 500 Internal Server Error
格言「困ったら、Scalarりふぁれる」。 です。はい。 本日もDBICネタですが、DBICのRで困ったらスカラーリファレンスです。はい。 $self->model('User')->search( { 'me.created_on' => \'IS NULL', } )->first; created_onはDATETIME型とします。 こんな感じで実行すると、 SELECT me.created_on, me.rid, me.id FROM user me WHERE ( me.created_on IS NULL ) こんなSQLが実行されます。 さらに、 $self->model('User')->search( { 'me.created_on' => \' > NOW()', } )->first; こんな感じで実行すると SELECT me.created_on, me.ri
hide-k.net#blog: DBIx::Class::ResultSetManagerでResultSetにメソッドを追加
ActiveRecordなORマッピングはJavaのTorqueを大昔に触ったきりなのでこんな実装デザインが正しいのかどうかわかりませんが、DBIx::Classで package CD::Schema::Albums; use strict; use warnings; use base qw/DBIx::Class/; __PACKAGE__->load_components(qw/Core/); __PACKAGE__->table('albums'); __PACKAGE__->add_columns(qw/ id artist title /); __PACKAGE__->set_primary_key('id'); __PACKAGE__->belongs_to('artist' => 'CD::Schema::Artists'); __PACKAGE__->has_many(
Perl/DBIC - Nekokak's core dump
VERSION-0.05000での記述。http://search.cpan.org/~mstrout/DBIx-Class/ ドキュメントも当初に比べれば増えてきたし、そっち見たほうがよかばい。 まあ以下は簡単なまとめで。一通り使えるくらいは書きたい。 このサイトはWikiなので途中途中に色々追加したり修正したりしますからご注意を DBIx::Class::Schemaを使ってみる これからDBICではSchemaメインらしい。 使うテーブル作成SQL create table user ( id int(10) NOT NULL auto_increment, name varchar(256) NOT NULL, PRIMARY KEY (id) ) ENGINE = InnoDB;
DBIx::Class
package My::DB; use strict; use warnings; use base qw/DBIx::Class::Schema/; __PACKAGE__->load_classes(qw/Memo/); 1; package My::DB::Memo; use strict; use warnings; use base qw/DBIx::Class/; __PACKAGE__->load_components(qw/PK::Auto::MySQL Core/); __PACKAGE__->table('memo'); __PACKAGE__->add_columns(qw/id title body mtime/); __PACKAGE__->set_primary_key('id'); 1; load_components以外はClass::DBIにも同じもの/よ
hide-k.net#blog: Catalyst::Model::DBIC::Schemaを使ってみた
Catalyst::Model::DBIC::Schemaを使ってみました。 DBIx::Classで新しくなったSchemaモデルをCatalystのModelとして使うクラスなのですが、今までのModelと大きく違うのはモデルをアプリケーションの外に追い出すことが出来る点です。 例えば、複数のアプリケーションで認証情報を使いまわしたい時には便利かと思われます。 まずはスキーマを作ります。(Perl/DBIC - Nekokak's core dumpに大変わかりやすい説明があります。) Schema/ Account.pm Account/ Users.pm Schema/Account.pm package Schema::Account; use strict; use warnings; use base 'DBIx::Class::Schema'; __PACKAGE__-
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
2007/01/01 - memo - unknownplace.org
http://d.hatena.ne.jp/lestrrat/20060919