hide-k.net#blog: Kazuho式フレンド・タイムライン実装をDBICで表してみた
Kazuho@Cybozu Labs: フレンド・タイムライン処理の原理と実践 奥さん本人の中でブームが去った感もあるRDBMSで実現するフレンド・タイムライン処理ですが、そういえばDBICで使ってみたのを思い出したので晒してみます。 要はDBICからストアドプロシージャの叩き方を知りたかっただけなんですけどね。 パッケージ名はWebインターフェースはどーせCatalystで作るでしょってことでCatalyst + Twitter = Catatter…って安直なネーミングですね。 記事中ではプッシュ型とプル型が紹介されているのですが、データ量やfollow, removeの際のコストとか考えたらプル型の方が好みかなってことでプル型を採用してみました。 また、基本的にスキーマやストアドプロシージャはオリジナルと同じですが、DBICでPKをマルチカラムにするとめんどっちーのでサロゲートキーを
DBIC_TRACE=1のときに発行されるsqlにどこで発行されたクエリか追記する - IMAKADO::BLOG
package DBIx::Class::Storage::Statistics::Caller; use strict; use warnings; use base qw/ DBIx::Class::Storage::Statistics /; sub query_start { my ($self, $string, @bind) = @_; my $caller_sub_name = $self->_get_non_dbic_caller; my $message = "[$caller_sub_name] $string: ".join(', ', @bind)."\n"; if(defined($self->callback)) { $string =~ m/^(\w+)/; $self->callback->($1, $message); return; } $self->p
DBICのリレーションが苦手で使うたびに調べなおすのが面倒なのでまとめてみた - (ﾟ∀ﾟ)o彡 sasata299's blog
2009年06月17日00:13 Perl DBICのリレーションが苦手で使うたびに調べなおすのが面倒なのでまとめてみた 「DBICのリレーションとか、毎回使うたびに調べてて時間が勿体無い」と思ってまとめてみました。簡単な例として、entryテーブルとcommentテーブルを考えてみましょう。 mysql> desc entry; +---------+--------------+------+-----+---------+----------------+ | Field | Type | Null | Key | Default | Extra | +---------+--------------+------+-----+---------+----------------+ | id | int(11) | NO | PRI | NULL | auto_increment |
namespaceを使ったDBIx::Classのスキーマ構成 - hide-k.net#blog
良くあるDBICのサンプルではDBIx::Class::Schema::load_classes()を使ってクラスのロードを行っています。 CD.pm package CD; use strict; use warnings; use base 'DBIx::Class::Schema'; __PACKAGE__->load_classes; 1; load_classes()はクラスを指定しないと CD Album Track という構成において自動的にクラスをロードすることができます。 ここでResultSetの拡張をしたいと考えます。例えば CD/ResultSet/Album.pm package CD::ResultSet::Album; use strict; use warnings; use base 'DBIx::Class::ResultSet'; sub search
DBIx::Classで left outer joinする - iDeaList::Writing
-join_typeオプションに'inner|left|right'を渡してあげる。忘れないようにとっても私的メモ。 my $schema = SchemaLoader->connect('...'); $schema->resultset('Members')->search({ 'del_flag' => { '=', 0 }, }, { from => [ { me => 'members'}, [ { photos => 'photo', -join_type => 'left'}, { 'me.member_id' => 'photos.member_id' } ], ], order_by => "member_id DESC", }); fromの使い方 by Perldoc [ { <alias> => <table>, -join-type => 'inner|left|
DBIx::Class::Storage::DBI::ReplicationにてMasterで参照クエリを発行する方法 - Unknown::Programming
DBIx::Classのちょっとしたメモ、その２。・・・と、思いきや長くなったので一記事に。 Masterで参照クエリを発行する方法なんだけど、ちょこちょこと調べて見たけど情報が殆どないのね。 ただみんな色々考えているようで、例えば use Blog::Schema; my $schema = Test::Blog::Schema->connect("dbi:SQLite:$master"); # set slave data sources. $schema->slave_connections( ["dbi:SQLite:$slave_1"], ["dbi:SQLite:$slave_2"], ); # do something in slave connection. $schema->slave->resultset('Entry')->find(1); DBIx::Classでス
C::P::FV::S::Aを使ってる時にFV::S::P::DBIC::Uが使えない？件 - Unknown::Programming
タイトルは「Catalyst::Plugin::FormValidator::Simple::Autoを使ってる時にFormValidator::Simple::Plugin::DBIC::Uniqueが使えない？件」です。 長いので短くしてみました。 使えないというかどうやって使うのかがわからないというのが正解なんですが、FVS::Auto使って zip: - rule: [ 'NOT_DBIC_UNIQUE' , 'MyApp::Model::DBIC::Zipcode' , 'zip'] message: 存在しない郵便番号です みたいに書いてもFVS::P::DBIC::Uniqueエラーになっちゃいます。 Catalystが内部で保持しているmodel(ResultSet)オブジェクトを利用したいのですが現状のままじゃ無理ぽい？ myapp.yamlでパスに変換してくれる特殊構文
DBIx::Classのリレーション - 101号室より愛をこめて: [DBIx::Class][DBIC][perl]
作業内容 ルンバみたいな自動で送られてくる棚に商品をバーコードでスキャンして入れるだけ ノルマは１日3000件 拘束時間11時間(勤務時間10時間プラス休憩1時間) 時給1050円 なんj民にオススメ
![DBIx::Classのリレーション - 101号室より愛をこめて: [DBIx::Class][DBIC][perl]](https://cdn-ak-scissors.b.st-hatena.com/image/square/f6350c4245495ce2ec92cbe2c306c875384f0a0c/height=288;version=1;width=512/https%3A%2F%2Flivedoor.blogimg.jp%2Fornithopterjp%2Fimgs%2F7%2F9%2F79fce344.jpg)
101号室: [DBIx::Class][DBIC][perl] DBIx::Classで複雑な関数を使う
前の記事へ « [DBIx::Class][DBIC][perl] DBIx::Classで集約関数を使う | トップページ | [perl][google] Authen::GoogleAccount作った(GoogleAccountの認証API) 次の記事へ 2006年11月05日 [DBIx::Class][DBIC][perl] DBIx::Classで複雑な関数を使う ブログが続かないわけ | DBIC でSELECT時に複雑な関数を使いたい（例、年齢計算） birth というカラムに生年月日が入っているとすると、SQLはこんな感じになります。 SELECT user_name, birth, (YEAR(CURDATE())-YEAR(birth)) - (RIGHT(CURDATE(),5)<RIGHT(birth,5)) as age FROM user_prof
resultset_attributes - Hatena::Diary::Neko::kak 500 Internal Server Error
DBICのresultset_attributesを使うとデフォルトの検索条件とか ソート条件を指定できます。 package Your::Schema::User; use strict; use warnings; use base 'DBIx::Class'; __PACKAGE__->table('user'); __PACKAGE__->resultset_attributes({ order_by => 'id DESC'}); ... 1; こんな感じでresultset_attributesを指定しておいてやると デフォルトでid DESCになってくれる。 例えば $self->model('User')->search( { name => 'nekokak' } )->first;こんなのを実行すると SELECT me.* FROM user me WHERE nam
hide-k.net#blog: DBIx::Classでauto insert/update datetime
とっても便利なDBIx::Class::InflateColumn::DateTimeですが、前にも書いたとおり作成日時、更新日時などの設定が面倒です。 LyoさんのDBIx::Class::DateTimeColumnsはその辺がRails likeになっていてお気に入りだったので取り込んで見ました。 package DBIx::Class::InflateColumn::DateTime::Auto; use strict; use warnings; our $VERSION = '0.01'; use base qw/DBIx::Class::InflateColumn::DateTime/; use DateTime; __PACKAGE__->mk_classdata( datetime_timezone => 'local' ); __PACKAGE__->mk_classd
hide-k.net#blog: inflate_columnでパスワードのハッシュ値をinflate
DIBIx::Class::DigestColumnの問題でDBIC::DigestColumnを使ってパスワードにハッシュ値を自動保存するときのパッチを書いたりしていたのですが、よくよく考えたらハッシュ値を使うテーブルなんてユーザー管理とかごくわずかなんだしinflate_columnを使ってテーブルクラスを package Account::Users; use strict; use warnings; use qw/DBIx::Class/; use Digest; ... __PACKAGE__->inflate_column('password',{ inflate => sub { my $value = shift; my $digest = Digest->new('SHA-1'); $digest->add($value); return $digest->hexdig
hide-k.net#blog: DBIx::Class::DigestColumnsがちょっと便利になった件
以前、DBIx::Class::DigestColumnsの問題というエントリーでDBIC::DigestColumnsがいまいち使いづらいようなことを書きましたが、今年に入ってアップデートされてちょっと便利になった模様。 ユーザー管理で生パスワードを保存したくない場合には結構便利なコンポーネントです。 テーブルを作って create table users ( id integer not null primary key, username text not null, password text not null ); schemaクラスはLoaderにまかせて package MyApp; use strict; use base qw/DBIx::Class::Schema::Loader/; __PACKAGE__->loader_options( components =>
DBIx::Classのページング処理 - 高知ではたらくひとのブログ
現在、DBIx::ClassとTemplate Toolkitを勉強しているところですが、ページングの処理が驚くほど簡単に書けるので自分用のメモを残しておきます。 CGI側でresultsetオブジェクトに対しpager()をコールすることで、Data::Pageオブジェクトを取得できます。 my $q = CGI->new; my $schema = App::Schema->connect; my $iterator = $schema->resultset('Comment')->search({}, {rows => 5}); # 1ページ辺りの行数は5 my $page = $q->param('page') || 1; my $rs = $it->page($page); # 1ページ目のresultsetオブジェクトを取得 print $q->header('text/htm
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;
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
storybook.jp
storybook.jp