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, #
DBIC でスカラーリファレンスを使え | ブログが続かないわけ
以前のエントリでも紹介しましたが、DBICでSQLの関数を使うときはスカラーリファレンスが活用できます。そのエントリでは、INSERTやUPDATEのときにスカラーリファレンスを使う例を示しましたが、SELECTのときにも同じことがいえます。 前回のSELECT時に複雑な関数を使うということも、このスカラーリファレンスを使えばできるということを教えて頂きました。 [DBIx::Class][DBIC][perl] DBIx::Classで複雑な関数を使う：101号室より愛をこめて 前回のコードの下記部分は{ ' ' => '( YEAR( CURDATE() ) - YEAR( birth ) ) - ( RIGHT( CURDATE(), 5 ) < RIGHT(birth, 5 ) )' }, 下記のように書けます。¥ "(YEAR(CURDATE())-YEAR(birth)) -
Schema::Loader with CatalystComments
Catalyst::Model::DBIC::Schema を使う。 この Model は大きく3つの使いかたがある。 単純に既に存在する Schema クラスを使用するSchema::Loader で既存の DB から Schema クラスを生成し、それを使用するSchema::Loader で既存の DB から Schema::Loader クラスを生成し、それを利用する。 1 はまず Schema クラスをどこかに作ってあり(My::Schemaと仮定する)、それをそのまま Catalyst::Model として利用する。 ./script/myapp_create.pl model DBIC DBIC::Schema My::Schema で、MyApp::Model::DBIC が作成される。この My::Schema に connection なんかが定義されていてそれを使う場
DBIx::Class::SchemaAccesser - Hatena::Diary::Neko::kak 500 Internal Server Error
DBIx::Class::SchemaAccesserなるものを作りました。 ラボで公開ちう。 http://code.mfac.jp/trac/browser/CPAN/nekokak/DBIx-Class-SchemaAccesser/ Catalystとかのフレームワークを使っている場合は DBICのオブジェクトを毎回作るのはフレームワークのプラグインとかが 簡単＆ほぼ勝手にやってくれるからいいのですが、 コマンドラインのツールとかフレームワークにDBICのプラグインが無い時なんか 泣きそうになりませんか？私ならなります＞＜ ちょっとドラフト案ですが、DBIx::Class::SchemaAccesserなるものを作ってみまんた。 使い方は以下を参照のこと。 ご意見求む。datasourceあたりをもっと綺麗にできないかしら。 DBIx::Class::SchemaAccesserの
DBIx::Class::ResultSet
mst: Matt S Trout (project founder - original idea, architecture and implementation) castaway: Jess Robinson (lions share of the reference documentation and manuals) abraxxa: Alexander Hartmaier acca: Alexander Kuznetsov acme: Leon Brocard aherzog: Adam Herzog Alexander Keusch alexrj: Alessandro Ranellucci alnewkirk: Al Newkirk Altreus: Alastair McGowan-Douglas amiri: Amiri Barksdale amoore: Andre
Elementary, ... 最近のコネタ
この前の仕事からTipsをダンプ... Catalyst x Lighttod の時、Catalyst は 5.7004 以上必須 Shibuya.pm の typester さんの話で感化されたのもあって採用した Lighty、イイ。シンプルに言われたことだけをこなしてくれる感じ。 で、Catalyst を Lighty で動かすときは Catalyst 5.7004 以上が必須なんすね。でないと、SCRIPT_NAME などの環境変数のバグから、http://example.com/foo/ と http://example.com/foo のように最後にスラッシュが付く付かないで実行されるアクションが変わってしまう。なので今後はアプリケーションクラスにすぐ use Catalyst::Runtime '5.7004'; と書くことにした。 Lighty、UploadProgressは
DBICでネストしたループ - Hatena::Diary::Neko::kak 500 Internal Server Error
そういえばとあるところで質問を受けたので。 その質問を補う形で。 DBICを使った場合でも普通にネストしたループは使えるわけですが、 TTの場合。 [% WHILE (blogger = blogger_ite.next) %] [% FOR entry IN blogger.entries %] URL:[% entry.url %] [% END %] [% END %] こんな感じです。 くるくる回ってくれます。 普通にPerlの処理でもこんな幹事 my $blogger_ite = $self->model('Blogger')->search; while (my $blogger = $blogger_ite->next) { for my $entry ( $blogger->entries ) { print $entry->url,"\n"; } } こんな荒業もできます
add_unique_constraintで行かない - Hatena::Diary::Neko::kak 500 Internal Server Error
naoyaさんから突っ込まれましたが、まさにそのとおしでした＞＜； http://naoya.g.hatena.ne.jp/naoya/20061117/1163769268 ふつうにadd_unique_constraintしていなくても my $user = $self->model('User')->find( { rid => 'WFC2nT4MLl' } ); これできますね。 普通に$self->searchしてるだけですし。 $rs->_resolved_attrs->{collapse}を見て、 $rs->nextにするか$rs->singleにするかを分けてるだけ。 ちなみに、 my $user = $self->model('User')->find( { hoge_id => 11 }, { order_by => 'me.id ASC' } ); こういう感じでse
スカラりふぁれる - 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
naoyaグループ - naoyaの日記 - DBIx::Class->add_unique_constraint
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
resultset_attributes - Hatena::Diary::Neko::kak 500 Internal Server Error
DBICのresultset_attributesを使うとデフォルトの検索条件とか ソート条件を指定できます。 package Your::Schema::User; use strict; use warnings; use base 'DBIx::Class'; __PACKAGE__->table('user'); __PACKAGE__->resultset_attributes({ order_by => 'id DESC'}); ... 1; こんな感じでresultset_attributesを指定しておいてやると デフォルトでid DESCになってくれる。 例えば $self->model('User')->search( { name => 'nekokak' } )->first;こんなのを実行すると SELECT me.* FROM user me WHERE nam
many-to-manyを殴り書き - Hatena::Diary::Neko::kak 500 Internal Server Error
今のところ、あまり必要に迫られているわけではないのですが、 覚書程度にDBICのmany-to-manyを試してみます。 Memberテーブル：Addressテーブル = n : m みたいなな感じで。 package Proj::Schema::Member; use strict; use warnings; use base 'Proj::Schema'; __PACKAGE__->table('member'); __PACKAGE__->add_columns(qw/ id rid name created_on timestamp /); __PACKAGE__->set_primary_key(qw/id/); __PACKAGE__->has_many('member_address' => 'Proj::Schema::MemberAddress','member');
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
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ページを開く
http://kerolin.jspeed.jp/Computer/Linux/dbicql070507.html
http://d.hatena.ne.jp/lestrrat/20061113
WWW-RobotRules-DBIC-0.01 - Persistent RobotRules which use DBIC. - metacpan.org