2009年06月17日00:13 Perl DBICのリレーションが苦手で使うたびに調べなおすのが面倒なのでまとめてみた 「DBICのリレーションとか、毎回使うたびに調べてて時間が勿体無い」と思ってまとめてみました。簡単な例として、entryテーブルとcommentテーブルを考えてみましょう。 mysql> desc entry; +---------+--------------+------+-----+---------+----------------+ | Field | Type | Null | Key | Default | Extra | +---------+--------------+------+-----+---------+----------------+ | id | int(11) | NO | PRI | NULL | auto_increment |
いまさっきcodereposにDBix::Skinnyというものをimportしました。 http://coderepos.org/share/browser/lang/perl/DBIx-Skinny 昨今のDBICブームで利用者は増えてきたんですが、いろいろ使うにあたって、 ここまでORマッパーでいろいろ（JOINしたり、キャッシュしたり）やるのはどうなんだとか、 うんたらかんたら考えたら自分で作ってしまえてのが動機でした。 DBICははっきり言ってどでかいライブラリなので一からソースを読むのがかなり大変です。 仕事で使ってる関係上、仕方なく見ることもありますが、キツい。 あと、DBICを使っているとJOINしたSQLがある意味簡単に発行できるので 重宝するのですが、ぶっちゃけどういうSQLが発行されているか全部ちゃんと見てる人って どれくらいいるのだろうと思ったり。 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 リレーションシップなしの場合 もしもリ
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
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く