DBIx::Class::Schema::Loader を最新版にアップデートしよう。 | ブログが続かないわけ
DBIx::Class::Schema::Loader についていろいろなことを教えてもらったので、早速試そうとして、コケた。 とりあえず、横着してワンライナでやるのをやめて、今後いろいろな拡張ができるLoaderにすべく、こんなシンプルなコードを書いた（書いたというよりコピった）。use strict; use warnings; use DBIx::Class::Schema::Loader qw( make_schema_at ); make_schema_at( 'MyApp::Schema', {relationships => 1, debug => 1, dump_directory => '/home/junichiro/lib' }, [ 'dbi:mysql:my_dbname', 'junichiro', 'password' ] ); ところがこれがうまくいかない。
DBIC で+select と+as : ああ、今頃気づくなんて... | ブログが続かないわけ
DBIC でデータをSELECT するときに日付型のデータを好きなフォーマットで取得するのに苦労していました。 単純にSQLでto_date関数などを発行すればいいのですが、そのためにはDBICでselect, as を使わなければなりません。 それがすごく面倒なんですよ。 日付のフォーマットさえ気にしなければ、こうやってデータを取れます。$c->model('DBIC::TranDiary')->search($query_ref);ところが、フォーマットをto_date で整えるためには、こーんな風に書かなければなりません。$c->model('DBIC::TranDiary')->search( $query_ref, { select => [ 'me.diary_id', 'me.user_id', 'me.title', 'me.body', 'me.status', 'me.
DBICの集約関数 - Hatena::Diary::Neko::kak 500 Internal Server Error
http://www.ornithopter.jp/archives/2006/11/dbixclassdbic_d_1.html ケースによってはもっとスマートに扱えます。 こんな感じのデータがあったとします。 > select * from item; +----+------------+------+-------+---------------------+---------------------+ | id | rid | name | price | created_on | timestamp | +----+------------+------+-------+---------------------+---------------------+ | 1 | tkVjn4E2cQ | pen | 500 | 2007-02-17 13:55:06 | 2007-02
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は
SQL::Abstract
NAME SQL::Abstract - Generate SQL from Perl data structures SYNOPSIS use SQL::Abstract; my $sql = SQL::Abstract->new; my($stmt, @bind) = $sql->select($source, \@fields, \%where, $order); my($stmt, @bind) = $sql->insert($table, \%fieldvals || \@values); my($stmt, @bind) = $sql->update($table, \%fieldvals, \%where); my($stmt, @bind) = $sql->delete($table, \%where); # Then, use these in your DBI stat
DBIx::Class::Manual::FAQ
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
DBIC で件数順に並び変える(count したものにorder by) | ブログが続かないわけ
count を取ってそれを表示するのは次のコードで問題ないです。まあ、想像どおりですね。my @ranking_posts = $c->model('DBIC::TranMatchTrackBack')->search( $query_ref, { select => [ 'user_id', { count => 'user_id' } ], as => [qw/ user_id posts_count /], group_by => ['user_id'], }, ); foreach(@ranking_posts){ $_->{posts_count} = $_->get_column('posts_count'); } これをposts_countで並び変えたいという要望はよくある話です。というか、並び変えないと意味ないことの方が多い。 ところが、これがなかなか難しい。想像すると、
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)) -
はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
DBIC でSELECT時に複雑な関数を使いたい（例、年齢計算） | ブログが続かないわけ
ユーザーのプロフィールとして年齢を持ちたい場合、実際に年齢をユーザーに入れさせてしまうと、データの更新が必要になり大変です。当然、ユーザーには生年月日などを登録してもらうことになるわけですけど、そうなると、年齢を表示するときに、ちょっとした年齢計算が必要になります。うるう年のことなども考えると結構面倒なので、このあたりはSQLの関数でバシッと計算する方がラクにできます。 データベースには生年月日が登録されている場合に、年齢を取得することを考えてみましょう。SQLはちょこっと複雑になりますが、MySQLのサイトに解答が出ていますのでそのまままねてしまうことにします。 【参考】MySQL 4.1 リファレンスマニュアル :: 3.3.4.5 日付計算 birth というカラムに生年月日が入っているとすると、SQLはこんな感じになります。SELECT user_name, birth, (YEA
Catalyst::Model::DBIC::Schema とFormValidatorのUnique チェックでつまづいた方へ | ブログが続かないわけ
先日のエントリでCatalyst::Model::DBICはあまり推奨されていないようですので、Catalyst::Model::DBIC::Schema を使うようにしましょうなんてことを書いたのですが、その後困ったことが起きました。 FormValidator::Simpleを使っていてUniqueチェックがうまくいかないようになってしまったのです。本来であれば、Modelが変わった場合でも、dbic_base_class の設定値を変更すれば問題なくうごくはずです。しかし、それでもUNIQUEチェックのところでエラーがでてしまうようになったのです。Can't locate object method "count" via package "MyApp::Schema::UserTable" at /usr/local/lib/perl5/site_perl/5.8.8/FormVa
DBIC でnow()とかsysdate() とかのSQL関数を使いたい | ブログが続かないわけ
今日もCatalyst & DBIC のお話。テーブルにデータをINSERTするときに、そのレコードの作成日としてcreate_date みたいなカラムを用意する事は多いよね？で、だいたいそのカラムにはdefault にnow()とかsysdate() を設定する事が多いね。 でも、無精してdefault をセットしない事も沢山あるよね。その場合にはINSERT時、つまりDBICではcreate 時にnow() を突っ込みたくなる。でも、これが意外と簡単にはいかない。 DBICで本当に困ったら SCALAR REFERNCE を使えっつうことで、スカラーリファレンスで解決しました。 こんな感じ my $map = $c->model( 'DBIC::TranMatchmake' )->create({ user_id => $c->session->{user_id}, user_name
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
http://d.hatena.ne.jp/lestrrat/20060919
http://www.lost-season.jp/mt/2005/11/2005112322.html
DBICで複合プライマリキーに対するfind | ブログが続かないわけ