どんぞこ日誌(2009-09-18) - YAPC::Asia特別研修にいってきました
* [Perl][近況] YAPC::Asia特別研修にいってきました YAPC::Asia特別研修のDBIX::ClassとMySQLによるPerlアプリケーションのスケーリング術（講師：John Napiorkowskiさん）に参加しました。 午前中はDBIx::Class関連とスケーリング、パフォーマンス向上のための技術の紹介。まず最初にカードの山から特定のものを取り出す作業を通じて、一人より数人同時が、数人同時より予めindexした方が早いということを体験。→しかしその後の話には絡まない。 話は結構行きつ戻りつで、あまり体系だってはいなかったので、大雑把にまとめると： DBICとかSQL関連 DBICが吐くSQLは遅い件について→最近はかなり良くなってきている 複雑なjoinも可能。ドキュメント、tディレクトリ参照。 DBIC_TRACE=1は友達。実行SQL全部吐かせる。さらに1
DBIx::Class::Service Released - Yet Another Hackadelic
まだCPANに反映されて居ないと思いますが、DBIx::Class:Serviceと言うモジュールをリリースしました。 /lang/perl/DBIx-Class-Service/trunk (CodeRepos) DBIx-Class-Service-0.02 - Aggregate DBIC processes between multiple tables. - metacpan.org どんなモジュールか 複数のテーブルにinsertしたりする処理をまとめて書く為のモジュールです。 具体的に言えば、 package MySchema::Service::User; use base qw(DBIx::Class::Service); sub add_user: Transaction { my ($class, $schema, $args) = @_; my $user_rs =
DBIx::Class::Cursor::CachedつかってみたCommentsAdd Star - unknownplace.org - 2007/12/20
舌足らずすぎた。 Model::DBIC: connect_info: - dbi:mysql:table - root - on_connect_do: - SET NAMES utf8 cursor_class: DBIx::Class::Cursor::Cached cache_file: __path_to(tmp/query_cache)__ さっきはこんなconfigで使った場合のコードです。 すばらしすぎる。もっと早く使えばよかったとおもった。 Catalyst::Model::DBIC::Schema で使う場合はこんな感じでOK。 sub new { my $self = shift->NEXT::new(@_); my $cache = Cache::FastMmap->new( share_file => $self->{cache_file} ); $self->s
DBICの再接続 - 酒日記 はてな支店
DBICでバックエンドとの接続が切れた時などに再接続する際の挙動が、0.07x と 0.08x で異なるようなのでメモ。確認したのは PostgreSQL の場合です。 動作確認スクリプトは末尾に。動作は以下の流れ。 connect() resultset から find() バックエンドをkill resultset から find() 0.07006 の場合。 $ perl -IDBIx-Class-0.07006/blib/lib/ dbic.pl DBIx::Class->VERSION: 0.07006 get ok 19115 killing 19115 FATAL: terminating connection due to administrator command get ok正常に再接続可能。 0.08007 の場合。 $ perl -IDBIx-Class-0.080
DBICx::Deploy - deploy a DBIx::Class schema - metacpan.org
NAME DBICx::Deploy - deploy a DBIx::Class schema SYNOPSIS use DBICx::Deploy; DBICx::Deploy->deploy('My::Schema' => 'DBI:SQLite:root/database'); or $ dbicdeploy -Ilib My::Schema DBI:SQLite:root/database METHODS deploy($schema, $dsn, @args) Loads the DBIC schema $schema, connects to $dsn (with extra args @args like username, password, and options), and deploys the schema. Dies on failure. If $dsn do
hide-k.net#blog: DBICでTwitterのユーザー関係を表してみる
追記： 勘違いしてたので別エントリーで補足 Twitterで言うところのfavorites、followers、friends。 もごもごで言うところの片想い、想われ、両想いの関係をDBICで表してみました。 まず関係の定義から。 favorite(片想い): AがBをお気に入りに入れるとAから見てBはfavoriteな関係(片方向) follower(想われ): Bから見てAはfollowerな関係(片方向) friend(両想い): Aのお気に入りに入ってるBがAをお気に入りに入れると両方から見てfriendな関係(双方向) で、テーブル設計ですが、それぞれをテーブルとして持ってもいいのですが、関係を追加するごとにあちこちのテーブルを見なきゃならんので、一個のテーブルで済ましてみました。 要は user_linksテーブルを使ってusersを自己結合なmany-to-m
DBIC で+select と+as : ああ、今頃気づくなんて... | ブログが続かないわけ
DBIC でデータをSELECT するときに日付型のデータを好きなフォーマットで取得するのに苦労していました。 単純にSQLでto_date関数などを発行すればいいのですが、そのためにはDBICでselect, as を使わなければなりません。 それがすごく面倒なんですよ。 日付のフォーマットさえ気にしなければ、こうやってデータを取れます。$c->model('DBIC::TranDiary')->search($query_ref);ところが、フォーマットをto_date で整えるためには、こーんな風に書かなければなりません。$c->model('DBIC::TranDiary')->search( $query_ref, { select => [ 'me.diary_id', 'me.user_id', 'me.title', 'me.body', 'me.status', 'me.
DBIx::Class::StorageReadOnly - Hatena::Diary::Neko::kak 500 Internal Server Error
とかいうのをでっち上げてみた。 スレーブにinsertとかupdateとかかけて死ねるのはイヤンなので。 まあ、開発環境のDBもちゃんと設定しておけば こんなの使わなくても気づくのですが、保険です。 package DBIx::Class::StorageReadOnly; use strict; use warnings; use base 'DBIx::Class'; use Carp::Clan qw/^DBIx::Class/; sub insert { my $self = shift; if ($self->result_source->schema->{__READ_ONLY_CONNECTION}) { croak("This connection is read only. Can't insert."); } $self->next::method(@_); } sub
Tags and search and DBIx::Class
Update: Advanced Search in web DBIx::Class based applications (with tags, full text search and searching by location) is a more elaborated version of this article. Some time ago I had an idea for a bookmarking site - nothing really revolutionary, but with an effective interface. I've decided that it needs to combine search, browsing by tags and other properties, ordering and jumping to pages. I ha
はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
2006/03/03 - memo - unknownplace.org
昨日のやつ、bast のほうにコミット。次のDBICのリリースに含まれちゃうよ＞＜ 使い方はテーブルクラスで __PACKAGE__->load_components(qw/UTF8Columns Core/); とかしてロードしておき、 __PACKAGE__->utf8_columns(qw/name description/); と文字列カラムを指定。 こうすると $table->name や $table->get_column('name') でとってくる値は utf-8 フラグが自動的にたつ。 逆に $table->name( $name ); とかでは utf-8 フラグが落とされてから保存される。 utf8_columns で自分で指定するだけじゃなく、テーブル単位で文字列カラムにすべてに対して有効になる機能もあるといいかも？
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(
2006/02/14 - memo - unknownplace.org
hide-k.net#blog: Catalyst::Model::DBIC::Schemaを使ってみた と、とっても便利なC::M::DBIC::Schemaなんですが、既存のプラグインとあまり相性がよくありません。 特にC::P::Authentication::Store::DBICは全く動かなくなるので注意です。(今、パッチが作られているみたいです。) 今作ってるアプリではめちゃくちゃとりあえずの対応としてトップレベルの auto アクションで sub auto : Private { my ( $self, $c ) = @_; # dirty hack for Auth::DBIC and Model::DBIC::Schema $c->config->{authentication}->{dbic}->{user_class} = $c->model('Schema::Use
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__-
hide-k.net#blog: Catalyst::Model::DBIC::Plainでのトランザクション管理
ShcemaベースになってからえらいことになってるDBIx::Classです。 Catalyst::Model::DBICもまだDBIx::Class::Schema::Loader対応になってないのでCatalyst::Model::DBIC::Plainを使ってたりします。 で、DBIx::Class::Manual::Cookbookにも書いてありますが、C::M::DBIC::Plainでトランザクションを管理する場合は eval { $c->model('DBIC')->storage->txn_begin; $c->model('DBIC::Entry')->create({ title => $c->request->parameters->{title}, body => $c->request->parameters->{body}, }); $c->model('DBI
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::Class0.05000リリース - Hatena::Diary::Neko::kak 500 Internal Server Error
http://search.cpan.org/~mstrout/DBIx-Class-0.05000/より これで落ち着くかなぁ。 で、MLに0.05000リリースに伴うアナウンスがあったので、ちょい訳。 (1) Everything is now Schema-based. If you're still using DB.pm, don't worry, it'll still work - but there'll be an extra method called schema_instance that actually does the work :) 今は全てスキーマベースです。 もしまだDB.pmを使っていても大丈夫、まだちゃんと動作しますよ。 でもね、動作させるのに、 スキーマインスタンスへの余分なメソッドコールが発生するよ。 なぬ〜。スキーマベースで構築すべきなのですか
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
CLON - 2006/11/21 - DBIx::Class vs mysql vs UTF-8
http://www.lost-season.jp/mt/2006/03/200603170.html
DBIx-Class-Schema-Loader-0.07052 - Create a DBIx::Class::Schema based on a database - metacpan.org