DBD::mysqlのmysql_auto_reconnectが真だとDB再接続時にDBICのon_connect_doが実行されない件 - Unknown::Programming
ハマったメモ。 さてまた今回も若干適当な記事だけども、メモということでお許し願いたい。 ってか誰も言及してないっぽいんだけどもしかしてこの現象うちだけ？ とにかくタイトルの通りで、検証時の各モジュールのVERSIONは以下の通り。 DBD::mysql-v4.005 DBIx::Class-v0.08100 前回のDBD::mysqlでSegmentation faultの件は無事解決したものの、今度はDB再接続時に文字化け発動でゲンナリしてました。 でログとか見てるとどうもDBICのon_connect_doで指定しているSET NAMES UTF8がDB再接続時に動いてないことが判明。 myapp_server.plだとちゃんとSET NAMES呼ばれるんだけどmod_perlだと何故か呼ばれない。 ってことでmod_perlに関係有りそうな部分をひたすら調べていたところ、mysql_
MooseにDBIx::Class型を用意したいとか。 - Unknown::Programming
DBIx::Class型というかsearch等で取ってきたDBIx::Class::Rowと言えばいいのかな。 雰囲気としてはこんな感じの package Foo; use Moose; use Moose::Util::TypeConstraints; use MySchema; my $schema = MySchema->connection($info); class_type 'MySchema::UserMst'; coerce 'MySchema::UserMst' => from 'HashRef', => via { $schema->resultset('UserMst')->new_result($_); }; has user_data => ( is => 'rw', isa => 'MySchema::UserMst', coerce => 1, ); my $
DBIx::Classのちょっとしたメモ - Unknown::Programming
メモ。 一応MySQLベースです。 デバッグ情報出力 $schema->storage->debug(1); よく忘れますorz。実際に発行されたSQL文が出力されるので便利。 一行だけデータが欲しい my $obj = $resultset->search( { hoge_id => $hoge_id } )->first; # または my $obj = $resultset->single( { hoge_id => $hoge_id } ); ただ上記の方法では実際には検索結果を全て取得してから一行返しているだけなので、キチンとLIMIT設定したければ下記のようになる。 my $obj = $resultset->search( { hoge_id => $hoge_id } )->slice(0,0)->first; テーブルからランダムで一行取得 my $obj = $resu
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でス
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
