DBICでランダムに10件取り出す。 my $rs = $schema->resultset('tbl')->search( undef, { order_by => 'RANDOM()', rows => 10, } ); CatalystのControllerで使うときはこう。MyApp::Model::DBIC::tblってクラスを仮定してる。 my $rs = $c->model('DBIC::tb…

my $f = $schema->resultset('Foo'); 引用元: Perl/DBIC - Nekokak's core dump いちいちresultsetを呼ぶのはめどいので、こうやれば少しだけ楽に書ける。 で、これを利用して、今書いてるコードはこんな感じ。 foreach (qw/Image Tag ImageTag/) { $table{$…

とりあえずschemaを書いてみる。遅遅として進まないけど、気長に取り組もう。明日はテストデータを食わせてみる。phpMyAdminのSQLite版みたいな感じのソフトがほしいなぁ。人力検索で探してもらおう。

DBIx::Classはn:mの関係もmany_to_manyで扱えるのです。が、頭の悪い私はサンプルがさっぱりわかりませんorz。最近id:nekokakさんがよくDBICのエントリを書いているのですが、ブクマでmany_to_manyのサンプル誰かキボンと書いておいたら本当にそれでエントリ…