DBIx::Class - Japan Perl Association Wiki
トレース DBIx::Classで複雑なクエリを行っている場合、実際に発行されているクエリをみる必要がある場合があります。そのような場合は環境変数DBIC_TRACEを設定してスクリプトを実行すると実行されているクエリをみることができます： DBIC_TRACE=1 myscript.pl クエリが多くて一度に追うのが難しい場合はこの出力をファイルに向けることもできます。 DBIC_TRACE=1=/path/to/query.log myscript.pl トランザクション DBIx::Class 0.08100以上をお使いであれば、明示的に何も指定しなくてもDBIx::Class::Storage::TxnScopeGuardを使用することができます。 #!/usr/bin/perl use strict; use MyApp::Schema; my $schema = MyApp::
2008/01/23 - memo - unknownplace.org
DBICで論理削除をしたくなったので調べていたのだが、うまく書く方法がイマイチなかった。 まず、削除フラグを常にチェックするようにするのは簡単で、テーブルクラスに __PACKAGE__->resultset_attributes({ where => { deleted => undef }}); とか書いてくだけでつねにWHERE句に deleted IS NOT NULL が入るようになる。これはマニュアルに書いてある通り。 問題は削除するときで、テーブルクラスで delete 定義してそこで update({ deleted => 1 }) とかやればいいかなと思いきや、そうすると cascade delete 効かなくなってしまっていやだ。 DBICのrowに対するdeleteチェーンは大まかに ユーザー定義テーブルクラスでのdelete (定義されてる場合)DBIx::Clas
DBIx::Class経由で取得する文字列にUTF-8 flagを付けたい[Catalyst] - ヒルズで働く@robarioの技ログ
以前からブログに書こうかどうか迷っていたものです。 DBIx::Class::UTF8Columnsでできるんですが、カラムを指定するのが面倒。 MySchemaはDBIx::Class::Schema::Loaderで自動生成してることもあって、あんまりMySchema/*をいじりたくない。 というわけで、inflate/deflate（DBIx::Class::InflateColumn）でやってます。 もっと簡単な方法あるんじゃないかなあ、と思って改めてCPANを探してみたのですがしっくりくるものが見当たらず。 とりあえず晒しておきます。 package MyApp::Model::MyModel; use base qw(Catalyst::Model::DBIC::Schema); my $inflate_utf8 = sub { my $value = shift; if (
![DBIx::Class経由で取得する文字列にUTF-8 flagを付けたい[Catalyst] - ヒルズで働く@robarioの技ログ](https://cdn-ak-scissors.b.st-hatena.com/image/square/68ea46100618cdf944003220464adecb1ecb6198/height=288;version=1;width=512/https%3A%2F%2Fogimage.blog.st-hatena.com%2F17680117127100682843%2F17680117127100696989%2F1556721975)
tokuhirom blog
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
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
DBIx::Class::Stash - Hatena::Diary::Neko::kak 500 Internal Server Error
ってのをつくってみました。 ちょっと微妙な実装だったり、ほかにいい方法あるんかもしれないですが これくらいしか思いつかなかったので。 利用方法としてはたとえば userテーブルにレコードを作成するときに リレーションのあるプロフィールテーブルにもレコードを「絶対に」一緒に作るぜ！ ってな場合、こんな風にかいてもいいのですが、 my $user = $self->model('User')->create({ name => 'nekokak' }); $user->create_related('profile',{ zip1 => $zip1 }); みたいな感じでかいてもいいのですが、 別でUserテーブルにInsertをかける場合が発生したらこのプロフィールテーブルに レコードをつっこむことをわすれてしまうことがあるかと思います。 なのでDBICでinsert時にHookしてみました
2007/05/07 - memo - unknownplace.org
書き忘れたけどさっきの update_schema.pl は ./script/myapp_update_schema.pl dbi:mysql:tablename username password 見たいな感じで DSN を渡す必要がある。めんどう。 ここら辺があれでまだヘルパーにはなってない。 mizzy.org : Re: DBICとDBIx::Class::Schema::Loader 僕のいろいろな勘違い 僕の中で流行ってる使い方があるのでかぶせて書いておいてみる。mizzy さんの二個目の例を自分ルール化させた感じ？ 作業は一般的なCatalystアプリのディレクトリ構造上であるとして、そこに新しく schema というディレクトリを作成。 そんで、 schema/lib/Schema/{TableName}.pm に各テーブルのリレーション定義とかメソッドとかを自分で書く。
mizzy.org : Re: DBICとDBIx::Class::Schema::Loader 僕のいろいろな勘違い
ブログが続かないわけ | DBICとDBIx::Class::Schema::Loader 僕のいろいろな勘違い にて、 とはいえ、僕の稼働中のアプリはすでに手動型のSchema で動いている。スキーマを作り直したら、リレーションの設定を全てしなおさなければならないので、それは現実的じゃない。inflate, deflate の指定は、やっぱりすべてのSchema にかかなきゃだめそうだ。 とあったので、これに関して少し楽ができる方法をコメントしようと思ったけれど、コメント欄ではうまく伝えられる自信がないので、こちらで書いてみることにしました。 load_components で 読み込む方法 DBIx::Class::Schema::Loader ではなく DBIx::Class::Schema を継承したスキーマの場合には、各スキーマファイルに以下の様に書いてあげれば OK です。（既
S::P::DebugMessageでDBICのクエリログをみる - Hatena::Diary::Neko::kak 500 Internal Server Error
このGW期間中空前のBradブームのなか皆様いかがお過ごしでしょうか？ http://www.onemogin.com/blog/554-profile-your-catalystdbixclass-app-with-querylog.html このサイトをみててSledgeでもだせばいいやんかと。 http://back-paper.labs.mfac.jp/show?paper_rid=rxSlzg3clR こんな感じのパッチ。 こんな感じの画面になります。 スロークエリーログでまくりなサイトをメンテナンスしているところは必須です。 ちゃんとチェックすべし。 WiiでRimo見たい！ http://rimo.tv/#/channel?url=http://pulpsite.net/rimochanmaker/channel?ids=8OSbuSBiyHU,B_-uN_7reyI,ixy
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でMySQLのロック - Hatena::Diary::Neko::kak 500 Internal Server Error
http://d.hatena.ne.jp/tokuhirom/20070126/1169812586 なんとなくDBICのにしてみた。 package DBIx::Class::Lock::MySQL; use strict; use warnings; use base 'DBIx::Class'; use Carp::Clan qw/^DBIx::Class/; sub get_lock { my ($self, $lock_id, $timeout) = @_; $self->{__MYSQL__LOCK__ID} = $lock_id; my $dbh = $self->storage->dbh; my $sth = $dbh->prepare('SELECT GET_LOCK(?,?)'); $sth->execute($self->{__MYSQL__LOCK__ID}, $
search_literal - Hatena::Diary::Neko::kak 500 Internal Server Error
MySQLの関数を検索条件にぶち込んでほげほげしたい場合 $rs->search({'me.created_on' => {'>'=> \"NOW() - INTERVAL $span DAY"}); とか書くと、$spanがSQLインジェクションになりかねないの。 そういう場合はsearch_literal使うよろし。 $rs->search_literal('me.created_on >= NOW() - INTERVAL ? DAY', $span); こんなSQLで安全無敵 Executing : SELECT me.id, me.rid, me.name, me.created_on, me.timestamp FROM member me WHERE ( me.created_on >= NOW() - INTERVAL ? DAY ) : '1' まあINTERVAL使わな
#dbix-class - Hatena::Diary::Neko::kak 500 Internal Server Error
IRCの#dbix-classでは DBIx::ClassのモジュールがCPANにアップされると IRCボットがお知らせしてくれるようになってます。 で、先ほどDBIx::Class::FromSledgeをアップして、そのお知らせがIRCでながれたら、、、 17:15 (GumbyNET2) CPAN Upload: DBIx-Class-FromSledge-0.01 by NEKOKAK 17:30 (castaway) fromsledge?とかいわれたのでSledgeってWebApplicationFrameworkだお！ って教えてあげたら、 17:39 (castaway) ah, righty 17:39 (castaway) never heard of it ;) 17:42 (castaway) hmm, why does Sledge::Response say s
DBIC::Schema::Loaderを久々に使ってみる - Hatena::Diary::Neko::kak 500 Internal Server Error
普段からLoader使っている人には目新しい話題はない予定。 思い出すことから始めてるので。 load_from_connectionがdeprecatedになってた。 バージョン0.04000では削除されるらしいので使わないようにすべし。 ってことで、 package TestDBIC::SchemaL; use strict; use warnings; use base 'DBIx::Class::Schema::Loader'; __PACKAGE__->load_from_connection( dsn => 'dbi:mysql:test_dbic', user => 'test', password => 'testtest', relationships => 0, debug => 1, ); 1; こうではなく、 package TestDBIC::SchemaL; u
tokuhirom blog
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
DBICでの簡単キャッシング - Hatena::Diary::Neko::kak 500 Internal Server Error
DBICで簡単にお金が借りることができます（ちが まあ、面白くないのでやめておきますが、DBICは かなりパフォーマンスに気を使った設計なのは周知の事実なのでつが、 キャッシュを使うことでよりパフォーマンス向上が図れます。 例えば my $itr = $self->model('Member')->search({},{}); while (my $member = $itr->next) { warn $member->id; } $itr->reset; while (my $member = $itr->next) { warn $member->id; } こんな感じの処理があったとします。 Memberテーブルを二度処理するみたいな。 ちなみに同じオブジェクトを使う時は $itr->reset; こうしてやればイテレータがリセットされます。 この場合、２個のwhileのところでそ
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
DBICでのアップデート - Hatena::Diary::Neko::kak 500 Internal Server Error
まあ、普通。こんな感じかと。 my $member = $self->model('Member')->search({email => 'nekokak@hogehoge.hoge'})->first; $member->update({name => 'nekokak'}); 実行されるSQL Executing : SELECT me.name, me.rid, me.id FROM member me WHERE ( email = ? ) ORDER BY me.id DESC : 'nekokak@hogehoge.hoge' -->Query Time: 0.001723. -->ALL Query Time: 0.001723 - Executing : UPDATE member SET name = ? WHERE ( id = ? ) : 'nekokak', '7'
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
http://kerolin.jspeed.jp/Computer/Linux/dbicql070507.html
Class::C3 - Yappo::タワシ