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
CPAN Authorになりました - 遥かへのスピードランナー
DBIx::Class::ForceUTF8というモジュールを作ってCPANにアップロードしました。 DBIx::Class::ForceUTF8 allows you to get columns data that have Unicode flag without specifying a column name. Best used with DBIx::Class::Schema::Loader. DBIx::Class::UTF8Columnsとよく似ているんですが、DBIx::Class::UTF8Columnsを使っていると、utf8として扱いたいカラム名をSchemaクラスの中で指定しなければいけません。僕の場合、Schemaの生成はDBIx::Class::Schema::Loader を使って、ほとんど自動化しているので、カラム名を１個１個指定するのが非常に面倒です。
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_
Sub::AutoでDBICにfindByほげほげを生やしてみた - Lism.in * blog - nekoya (id:studio-m)
Sub::AutoでAUTOLOADを隠蔽 - dann@webdev - dann's portal が面白そうだったのでDBIC::ResultSetにfindBy〜を生やしてみた。 perldoc見ても$selfがどこに入ってくるのか分からんかったけど、@_に関数名のマッチが入って、その次に来るみたい。 #!/usr/bin/perl use strict; use warnings; package DBIx::Class::ResultSet; use Sub::Auto; autosub /^findBy(\w+)$/ { my ( $method, $self, $value ) = @_; $method = lc $method; return undef unless grep /^$method$/, $self->result_source->columns; $s
DBICの disconnect VS DESTROY - Pixel Pedals of Tomakomai
最近、 DBIx::Class の利用例を色々見てるのですが、Schema->connect は見かけるのですがdisconnectを見かけません。疑問に思ったので、色々調べてみました。 結論 disconnectは不要。 調べたこと disconnectはあるの？ DBIx::Class::Storage が持ってます。 my $schema = DB::Main->connect( ... ); # ... いろいろ処理 ... $schema->storage->disconnect; DBICのコネクションのライフサイクル テストスクリプトを含めたほとんどのサンプルでは、接続が必要となった時点で自動的に接続され、プログラムの終了時に切断されます。 接続に関しては、実際には DBIx::Class::Storage::DBIで dbh_do が呼ばれるタイミングで、 _populat
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でス
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)
DBICでテーブル名切替の術 - Hatena::Diary::Neko::kak 500 Internal Server Error
アプリを作ってると色々ログ系をDBに保存しておきたかったりするのですが、 ログテーブルって結構でかくなってしまう運命です。 DBによってはテーブルサイズがでかくなると検索効率が落ちてしまったり ちょくちょく問題になってしまうのですが、 ログテーブルを年月ごととかで分割すると結構さくさく扱えたりします。 ただ、普通にDBIC使ってると分割したログテーブル毎にスキーマを用意する必要が でてきてしまうです。 例えば access_logってテーブルがあるとして、これを年月で分割して保存させるばやい、 access_log : Proj::Schema::AccessLog access_log_200706 : Proj::Schema::AccessLog200706 access_log_200707 : Proj::Schema::AccessLog200707 access_log_20
DBICで想定していないdeleteを実行しないパッチ - Hatena::Diary::Neko::kak 500 Internal Server Error
http://d.hatena.ne.jp/tomyhero/20070717/1184682521 普通に引数のチェックをするだけですが。 Index: ResultSet.pm =================================================================== --- ResultSet.pm (revision 20773) +++ ResultSet.pm (working copy) @@ -1211,7 +1211,8 @@ =cut sub delete { - my ($self) = @_; + my $self = shift; + $self->throw_exception("You Hit the Bug!!") if @_; my $cond = $self->_cond_for_update_delete;
nitsujiの日記 - CatalystでFormValidator::Simple::AutoでDBIC_UNIQUE使う場合
FormValidator::Simple::Plugin::DBIC::Unique - unique check for DBIC - metacpan.orgを見ると、Catalystの場合は # you also can pass resultset object. # in catalyst application, FormValidator::Simple->check( $q => [ name => [ ['DBIC_UNIQUE', $c->model('Schema::User'), 'username' ] ], ] ); と書いてある。 でもCatalyst::Plugin::FormValidator::Simple::Autoを使ってprofiles.ymlにバリデーションのルールを書く場合は$c->modelとか書けない。 admin/category/do
DBIx::Class::Manual::Cookbook - レシピいろいろ - perldoc.jp
名前¶ DBIx::Class::Manual::Cookbook - レシピいろいろ レシピ¶ 検索¶ ページ処理された結果セット¶ When you expect a large number of results, you can ask DBIx::Class for a paged resultset, which will fetch only a small number of records at a time: 結果セットが膨大になりそうなら、ページ処理された結果をDBIx::Classで取得できます。 一回に、少しのレコードしかとってきません: my $rs = $schema->resultset('Artist')->search( undef, { page => 1, # page to return (defaults to 1) rows => 10, #
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
[DBIx::Class][Perl] Cache::Memcached と DBIx::Class - cyberlib.enterbrainz.com
[DBIx::Class] [Perl] Cache::Memcached (Cache::FileCache,Catalyst::Plugin::Cache::Memcachedも) はオブジェクトがキャッシュできる。とても便利。 でもDBIx::Classのオブジェクトは、キャッシュできないことがある。 サンプル： #!/usr/bin/perl use strict; use Cache::Memcached; use TestDB; my $memd = new Cache::Memcached {'servers' => [ "127.0.0.1:11211" ]}; my $schema = TestDB->connect("dbi:mysql:testdb;localhost",'user','password'); #OK pattern
hide-k.net#blog: TTでDBICのhas_manyなメソッドを使う
よくわからない表題ですが要は・・・ MyApp::Schema::TopicsとMyApp::Schema::Commentsが1:nの関係にあるとして package MyApp::Schema::Topics; use strict; __PACKAGE__->has_many('comments' => 'MyApp::Schema::Comments'); 1; こんなアクションで sub list : Local { my ( $self, $c ) = @_; my $topics = $c->model('Topics')->search({}); $c->stash->{topics} = $topics; $c->stash->{template} = 'list.tt'; } TTで素でやる場合 <html> <body> <ul> [% WHILE (topic =
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してみました
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
はてなブログ | 無料ブログを作成しよう
はてなブログ | 無料ブログを作成しよう
2008/01/08 - memo - unknownplace.org