[O] DBICのリレーションシップ
« TaskPadを使いながら作業作業 | トップページ | 新宿 磯善 » DBICのリレーションシップ [Perl] やっぱり、DBIx::Class::Relationshipを読み直すことにした。 こういうのをちゃんと理解しておかないと足をすくわれるし。 ちょっとづつ書いたら、何日もかかった。ションボリ。 まずは前提となるデータ こんな感じで、Authorテーブルと、Bookテーブルがあるとする。 ID | Name | Age ------------------ 1 | Fred | 30 2 | Joe | 32 ID | Author | Name -------------------- 1 | 1 | Rulers of the universe 2 | 1 | Rulers of the galaxy リレーションシップなしの場合 もしもリ
DBIx::Classでスレーブに接続する - libnitsuji.so
レプリケーション環境で、更新系クエリはマスター、参照系クエリはスレーブに振り分けるというのはよくあることだと思います。 PerlのO/RマッパーであるDBIx::ClassにはDBIx::Class::Storage::DBI::Replicationというのがあって、これを使うと利用側で接続先を意識することなくクエリを振り分けることができそうです。しかし、どうやら参照系は必ずスレーブへ振り分けてしまうようなので、トランザクションの中ではマスターを参照したいといった場合に対応できないんじゃないかと思いました。 そこで、明示的にスレーブの接続を取得する方法がないかなーと思ったんですが見当たらなかったので書いてみました。 実装するにあたり以下のClass::DBI用に書かれたコードを参考にしてみました。 http://d.hatena.ne.jp/tokuhirom/20060713/1152
DBIx::Class::Schema::Loaderの手動スキーマ生成、初心者向けチュートリアル - Yet Another Hackadelic
と言う訳で自分なりに色々調べてみた。 テスト用データベース定義 CREATE TABLE `User` ( `user_id` bigint(20) NOT NULL auto_increment, `name` varchar(255) character set latin1 default NULL, `created_on` datetime default NULL, `updated_on` datetime default NULL, PRIMARY KEY (`user_id`) ) ENGINE=InnoDB DEFAULT CHARSET=utf8; CREATE TABLE `Book` ( `book_id` bigint(20) NOT NULL auto_increment, `name` varchar(255) character set latin1 de
はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
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の再接続 - 酒日記 はてな支店
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
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
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::Schema で昔やっていたこと - daily dayflower
Yappo さんのYappoLogs: DBIx::Class::Schemaの使い方 を読んで，空気を読まずに自分語りしたくなったので書きます。 最近めっきり DBIC 使っていないんで*1アレですが，make_schema_at とか知らない（というかおそらく存在しなかった）時代にやっていた方法。 当時のターゲット DBMS は PostgreSQL でした。 DBDesigner4 でスキーマをデザインする DBDesigner4 で MySQL 用の SQL をエクスポートする SQL::Translator で上記 SQL 文から PostgreSQL 用の SQL を作成→DB作成 SQL::Translator で上記 SQL 文から DBIC::Schema 継承クラスの HogeHoge::Schema を作成 HogeHoge::Schema::Relations とい
DBIx::Class::ResultClass::HashRefInflator - Hatena::Diary::Neko::kak 500 Internal Server Error
とかいうのがDBICのCoreに入りました。 使い方は簡単？で use DBIx::Class::ResultClass::HashRefInflator; my $rs = $self->model('Blog'); $rs->result_class('DBIx::Class::ResultClass::HashRefInflator'); my $member = $rs->single({rid => 'HXOK7cI4DA'}); warn Dumper $member; こんな感じでresult_classに設定してやると 結果として $VAR1 = { 'timestamp' => '2007-01-18 17:03:06', 'member_id' => '15', 'created_on' => '2007-01-18 17:03:06', 'id' => '34', '
hide-k.net#blog: DBIx::ClassでFULLTEXT searchしてみる
DBIx::ClassでmysqlのFULLTEXTインデックスに対する検索をより美しく使うにはどうすればいいかなぁ、と考えた結果search_literalを使えば良いかと思い立った次第です。 こんなテーブルで CREATE TABLE table01 ( id INT UNSIGNED AUTO_INCREMENT NOT NULL, PRIMARY KEY(id), title VARCHAR(255), artist VARCHAR(255), review TEXT, FULLTEXT(review) ); Schemaを作って、こんな感じに走らせると use strict; use warnings; use CD::Schema; my $schema = CD::Schema->connection('dbi:mysql:cd', 'user', 'password');
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
スカラりふぁれる - Hatena::Diary::Neko::kak 500 Internal Server Error
格言「困ったら、Scalarりふぁれる」。 です。はい。 本日もDBICネタですが、DBICのRで困ったらスカラーリファレンスです。はい。 $self->model('User')->search( { 'me.created_on' => \'IS NULL', } )->first; created_onはDATETIME型とします。 こんな感じで実行すると、 SELECT me.created_on, me.rid, me.id FROM user me WHERE ( me.created_on IS NULL ) こんなSQLが実行されます。 さらに、 $self->model('User')->search( { 'me.created_on' => \' > NOW()', } )->first; こんな感じで実行すると SELECT me.created_on, me.ri
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)
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ページを開く
2007/01/01 - memo - unknownplace.org
CLON - 2006/11/21 - DBIx::Class vs mysql vs UTF-8
http://www.lost-season.jp/mt/2005/11/2005112322.html
{{#tags}}- {{label}}
{{/tags}}