DBIx::Class経由で取得する文字列にUTF-8 flagを付けたい[Catalyst] - ヒルズで働く@robarioの技ログ
以前からブログに書こうかどうか迷っていたものです。 DBIx::Class::UTF8Columnsでできるんですが、カラムを指定するのが面倒。 MySchemaはDBIx::Class::Schema::Loaderで自動生成してることもあって、あんまりMySchema/*をいじりたくない。 というわけで、inflate/deflate（DBIx::Class::InflateColumn）でやってます。 もっと簡単な方法あるんじゃないかなあ、と思って改めてCPANを探してみたのですがしっくりくるものが見当たらず。 とりあえず晒しておきます。 package MyApp::Model::MyModel; use base qw(Catalyst::Model::DBIC::Schema); my $inflate_utf8 = sub { my $value = shift; if (
![DBIx::Class経由で取得する文字列にUTF-8 flagを付けたい[Catalyst] - ヒルズで働く@robarioの技ログ](https://cdn-ak-scissors.b.st-hatena.com/image/square/68ea46100618cdf944003220464adecb1ecb6198/height=288;version=1;width=512/https%3A%2F%2Fogimage.blog.st-hatena.com%2F17680117127100682843%2F17680117127100696989%2F1556721975)
DBICでテーブル名切替の術 - Hatena::Diary::Neko::kak 500 Internal Server Error
アプリを作ってると色々ログ系をDBに保存しておきたかったりするのですが、 ログテーブルって結構でかくなってしまう運命です。 DBによってはテーブルサイズがでかくなると検索効率が落ちてしまったり ちょくちょく問題になってしまうのですが、 ログテーブルを年月ごととかで分割すると結構さくさく扱えたりします。 ただ、普通にDBIC使ってると分割したログテーブル毎にスキーマを用意する必要が でてきてしまうです。 例えば access_logってテーブルがあるとして、これを年月で分割して保存させるばやい、 access_log : Proj::Schema::AccessLog access_log_200706 : Proj::Schema::AccessLog200706 access_log_200707 : Proj::Schema::AccessLog200707 access_log_20
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で並び変えたいという要望はよくある話です。というか、並び変えないと意味ないことの方が多い。 ところが、これがなかなか難しい。想像すると、
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 なんかが定義されていてそれを使う場
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;
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)
[DBIx::Class] DBICでLEFT JOIN - cyberlib.enterbrainz.com
[DBIx::Class] from アトリビュートを使用する。 http://search.cpan.org/~ash/DBIx-Class-0.08008/lib/DBIx/Class/ResultSet.pm#from belongs_to を使用してリレーションしていると 普通の join (INNER JOIN) となる。 場合によって、left join を使用しなければならない時、 以下のように from アトリビュートを使用する。 my $it = $schema->resultset('Goods')->search( { 'stock.quantity' => {is => undef}, }, { columns => [qw/goods_id/], from => [ { me => 'goods' }, #ここで
101号室: [DBIx::Class][DBIC][perl] DBIx::Classで集約関数を使う
DBIx::Classでの集約関数(sum,avg,max,min,count,...)の使い方 searchの第二引数のハッシュリファレンスに、selectとasを指定する。 selectには集約関数とその引数(普通の列が欲しければその名前も)、asにはそれにつける名前を指定。結果はget_column('名前')で得る。 (Schemaのadd_columnsで指定されてる名前ならget_columnは必要ない。) $resultset->search({ #where句の条件 }, { select => [ "列名", # nameという列が欲しければ "me.name" { 関数名 => '引数' }, # count(me.id)なら、 { count => 'me.id' } ], as => [qw/名前1 名前2/] # 例えばqw/ name count /, #必要な
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
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
DBIx::Class::Storage::DBI::Replication - EXPERIMENTAL Replicated database support - metacpan.org