2008-02-02 メモ Perl DBIC 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::tbl')->search( ... );