Using Unicode - Catalyst::Wiki
Prior to version 5.90040 it was required that you load the Catalyst::Plugin::Unicode::Encoding plugin to ensure proper decoding/encoding of incoming request parameters and the outgoing body response respectively. This is done in your MyApp.pm: use Catalyst qw/ -Debug ConfigLoader Unicode::Encoding /; Since that version the Unicode support was added to core by shipping the plugin with Catalyst and
mysql_enable_utf8 => 1 で DBIC::UTF8Columns 要らなくなるっぽい - 僕ト云フ事＠はてな出張版
追記です コメントとブクマで今のところ experimental と書いてあるよ！ と教えてもらいました。気づいてなかったです。id:nihen さん、コメントくれた人、ありがとう。 This option is experimental and may change in future versions. Catalyst::Wiki もこれ書いた方が良さそうですね。書けるのかな。 それにしても、DBD 側でできると良いに越したことないので、早く確定して欲しいですね！ 追記2 あー、でもこれ、4.00からずっとこのままだ。かれこれ2年くらい experimental なんですがw Catalyst::Wiki に書いて来ちゃったけどw ここから元の内容 lyokato さん経由で woremacx さんに教えてもらった Using Unicode - Catalyst::Wiki に書い
DBIx::Classでスレーブに接続する - libnitsuji.so
レプリケーション環境で、更新系クエリはマスター、参照系クエリはスレーブに振り分けるというのはよくあることだと思います。 PerlのO/RマッパーであるDBIx::ClassにはDBIx::Class::Storage::DBI::Replicationというのがあって、これを使うと利用側で接続先を意識することなくクエリを振り分けることができそうです。しかし、どうやら参照系は必ずスレーブへ振り分けてしまうようなので、トランザクションの中ではマスターを参照したいといった場合に対応できないんじゃないかと思いました。 そこで、明示的にスレーブの接続を取得する方法がないかなーと思ったんですが見当たらなかったので書いてみました。 実装するにあたり以下のClass::DBI用に書かれたコードを参考にしてみました。 http://d.hatena.ne.jp/tokuhirom/20060713/1152
はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
DBIx::Class::Cursor::CachedつかってみたCommentsAdd Star - unknownplace.org - 2007/12/20
舌足らずすぎた。 Model::DBIC: connect_info: - dbi:mysql:table - root - on_connect_do: - SET NAMES utf8 cursor_class: DBIx::Class::Cursor::Cached cache_file: __path_to(tmp/query_cache)__ さっきはこんなconfigで使った場合のコードです。 すばらしすぎる。もっと早く使えばよかったとおもった。 Catalyst::Model::DBIC::Schema で使う場合はこんな感じでOK。 sub new { my $self = shift->NEXT::new(@_); my $cache = Cache::FastMmap->new( share_file => $self->{cache_file} ); $self->s
hide-k.net#blog: Catalyst::Model::DBIC::Schemaでのトランザクション管理
以前 Catalyst::Model::DBIC::Plainでのトランザクション管理 というエントリーを書きました。 Catalyst::Model::DBIC::Plainってあたりが時代を感じさせます。 Cookbokにもありますが現在のDBIx::Classでトランザクションを管理する場合には$schema->txn_do($coderef)を使うとトランザクションの開始からコミット、ロールバックまでやってくれます。 my $schema = CD::Schema->connect(...); $txn = sub { my $artist = $schema->resultset('Artists')->create( { name => $name, } ); my $album = $schema->resultset('Albums')->create( { title
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)
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
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
Profile Your Catalyst/DBIC App with QueryLog - One Mo’ Gin - Sometimes Once Isn’t Enough
Months ago I implemented DBIx::Class::Storage::Statistics with the intent of making some sort of profiling tool. I finally got off my ass and did it. DBIx::Class::QueryLog should be on CPAN this weekend. At $work we are replacing a legacy system with one based on Catalyst. One of the deliverables for this year is a new order entry application. Since our customer service folks are used to working i
DBICS::Loader使った時にふがふがしたいの巻 - Hatena::Diary::Neko::kak 500 Internal Server Error
Loaderを使うと各スキーマは定義しなくてもLoaderが自動にやってくれるのですが、 スキーマをちょーっと拡張したい時とかは軽く工夫します。 例えば、 +------------+------------------+------+-----+---------------------+----------------+ | Field | Type | Null | Key | Default | Extra | +------------+------------------+------+-----+---------------------+----------------+ | id | int(10) unsigned | | PRI | NULL | auto_increment | | rid | varchar(10) | | UNI | | | | name_sei
DBICのRの拡張 - Hatena::Diary::Neko::kak 500 Internal Server Error
WEB+DBが発売されてます。 id:naoyaさんの記事はDBICです！ 買うべしべし。 WEB+DB PRESS Vol.36posted with amazlet on 06.12.27WEB+DB PRESS編集部 技術評論社 売り上げランキング: 690 Amazon.co.jp で詳細を見る DBICでRを拡張する時の話ですが、WEB+DBにも載っているとおり、 CDBIとは異なりDBを操作する時にResultSetというレイヤを経由して もりもりDBを触るのですが、その為、CDBIで簡単にできていたことができなくなっています。 それはRの拡張です。 例えば弊社の場合、idの代わりにridがユニークなキーになってるので、 ridでレコードを検索する場合があり、 CDBIの場合 retrieve_ridというメソッドをCDBIに生やして、 Proj::Data::Blog->re
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');
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
DBICのpopulateメソッド - Hatena::Diary::Neko::kak 500 Internal Server Error
スクリプトでデータを一括していれるときに for my $hoge (@hoges) { $self->model('Model')->create({ hoge => 1, moge => $hoge->moge, soge => $hoge->soge }); } って感じでやるとおもうんだけど、DBICでは こんなのでもできる。 $self->model->populate('Model',[ [qw/hoge moge soge/], map [1, $_->moge, $_->soge], @hoges, ]); とかける。 ちなみに$self->modelとか書いてますが、 これはhttp://code.mfac.jp/trac/browser/MoFedge-Data-DBIC-Schema/ こいつを使ってます。 んーてか違うこと調べてたのに脱線したｗ
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)
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で本当に困ったら SCALAR REFERNCE を使え - daily dayflower
追記 2006/12/06 下記で IS NOT NULL を実現するのにスカラーリファレンスを使用していますが，IS NULL / IS NOT NULL を出すためには必ずしもスカラーリファレンスを利用する必要はありません。ということで訂正を入れようと思ったんですがちょっと長いので「フォローアップ記事」を書きました。 本題 typester さんに以前教えて頂いたんですが，似たようなことに今日遭遇したのでメモ。 WHERE field1 IS NOT NULL な検索をしようと思って， $resultset->search({ field1 => 'IS NOT NULL' });と書くと，内部的には SELECT ... WHERE field1 = ?と展開されて，プレースホルダに「IS NOT NULL」が渡されるので，バツ。 $resultset->search({ field
hide-k.net#blog: DBIx::Class 0.07 is released
DBIx::Class 0.07がリリースされました [Dbix-class] Announce: DBIx-Class-0.07 - Added InflateColumn::DateTime to auto create DateTime objects using the appropriate DateTime::Format::* classin a database agnostic way - Added ResultSetColumn to perform aggregate and other functions on specific resultset columns - Substantial refactor of ResultSet to to better handle more complex joins and improve efficiency -
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
http://kerolin.jspeed.jp/2006/11/25/