Don't use DBIx::Class::UTF8Columns - JPerl Advent Calendar 2009
Don't use DBIx::Class::UTF8Columns - JPerl Advent Calendar 2009 Perl に関するちょっとした Tips をのっけてみるよ。ちゃんと続くかな？ 自分のつくったもジュールを紹介するハッカートラックということで、僕は DBIx::Class に同封されている DBIx::Class::UTF8Columns について書きます。 まず最初に、このモジュールをつかわないでください。 DBIx::Class::UTF8Columns は DBIx::Class のコアモジュールになってから、utf8 を扱う場合はこのモジュールを使うといいよという記述をいろいろなところで目にします。しかしこのモジュールがしていることを理解せずに使用すると予期せぬ不具合に悩まされるかもしれません。今日はこのモジュールを使わない方が良い理由と、その代替案を示
Catalyst+DBIC+TT+Data::Page::Navigationでページング - はてな#hide-k
これもよく使うくせによく忘れるので備忘。 まずはCatalystのControllerでData::Page::Navigationをuseして MyApp::Controller::User package MyApp::Controller::User use strict; use warnings; use parent 'Catalyst::Controller'; use Data::Page::Navigation; sub index : Path : Args(0) { my ( $self, $c ) = @_; my $page = $c->req->param('page') || 1; my $rows = $c->req->param('rows') || 10; my $users = $c->model('DBIC::Users')->search( {},
resultset_attributes を利用して、テーブルの alias を me から変更する with DBIC - (ﾟ∀ﾟ)o彡 sasata299's blog
2009年05月19日02:17 Perl resultset_attributes を利用して、テーブルの alias を me から変更する with DBIC こんばんわ。ささたつです。ヾ(oﾟωﾟo)ﾉﾞ 今日はDBICの話です。最近perlのO/RマッパーであるDBICを使っています。簡単なSQLだととても便利なんですが、複雑なSQLになると。。。すぐにスカラーリファレンスに頼ってしまいます（よね？＞＜） さて、テーブルには delete_flag を必ず置くように設計していて、findとかsearchしたときに delete_flag = 0 をデフォルトの検索条件として利用するため、Schemaファイルにこのような設定を書いていました。 __PACKAGE__->resultset_attributes({ where => {delete_flag => 0} }); ただ
blog.woremacx.com: DBIC が生成する SQL をログってみる
Windows 10 の入ったディスクのバックアップが clonezilla で外形的にできることがわかった Posted on Jun 27, 2020 Windows10 が載ってるディスクに破壊的な変更加える前にバックアップしたくて、SystemRescueCd で clonezilla 使ってディスクまるごとイメージ化した(内部的には partimage が使われてる?)。 でこれ、レストアしたら起動する状態まで持っていけるんかな? すんごく不安だ。。。 — woremacx (@woremacx) June 15, 2020 systemrescuecd に同梱されている clonezilla を使ってまるまる取った Windows 10 のバックアップが戻せるか不安で仕方なかったので、VirtualBox に戻せるか試した。 そもそもなぜ clonezilla を試したかったの
10分(？)で出来るDBIx::Class の導入｜Perlプログラムメモ｜プログラムメモ
■1. DBIx::Classのインストール 例によってCPANコマンドでインストールします。 unixのシェルから perl -MCPAN -e shell cpan > install DBIx::Class cpan > install DBIx::Class::Schema::Loader でOK。 （何か入力が促されたらそのままEnterを押せばいいです） ■ 2.テーブルスキーマの自動生成 unixのシェルでプログラムを作成するディレクトリに移ってから perl -MDBIx::Class::Schema::Loader=make_schema_at,dump_to_dir:./lib -e 'make_schema_at "Hoge::Schema", {relationships => 1, debug => 1}, ["dbi:mysql:hoge","user","pa
はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
DBICでの簡単キャッシング - Hatena::Diary::Neko::kak 500 Internal Server Error
DBICで簡単にお金が借りることができます（ちが まあ、面白くないのでやめておきますが、DBICは かなりパフォーマンスに気を使った設計なのは周知の事実なのでつが、 キャッシュを使うことでよりパフォーマンス向上が図れます。 例えば my $itr = $self->model('Member')->search({},{}); while (my $member = $itr->next) { warn $member->id; } $itr->reset; while (my $member = $itr->next) { warn $member->id; } こんな感じの処理があったとします。 Memberテーブルを二度処理するみたいな。 ちなみに同じオブジェクトを使う時は $itr->reset; こうしてやればイテレータがリセットされます。 この場合、２個のwhileのところでそ
hide-k.net#blog: CentOSでDBIC最新版を使うときの注意
WARNING: DBIx::Class::StartupCheck: This version of Perl is likely to exhibit extremely slow performance for certain critical operations. Please consider recompiling Perl. For more information, see https://bugzilla.redhat.com/show_bug.cgi?id=196836 and/or http://lists.scsys.co.uk/pipermail/dbix-class/2007-October/005119.html. You can suppress this message by setting DBIC_NO_WARN_BAD_PERL=1 in your
Catalyst::Plugin::FormValidator::Simple::AutoでマルチカラムのUNIQUEチェックをする場合 - libnitsuji.so
昨日に引き続き今日もまた躓いています。 FormValidator::Simple::Plugin::DBIC::Uniqueでマルチカラムのユニークチェックをしたい。 たとえば「このID（自分自身）以外で名前が重複するカラムがあるか？」みたいなチェックをするためには SELECT COUNT(*) FROM table WHERE id != ? AND name = ? みたいなSQLが必要で、それをやるためには、 # check multiple columns including '!=' check # set "!" as prefix for key-name FormValidator::Simple->check( $q => [ { unique => [qw/id name email/] } => [ [qw/DBIC_UNIQUE Table !id name m
DBIx::Class::Manual::Glossary - 使われている用語の説明 - perldoc.jp
名前¶ DBIx::Class::Manual::Glossary - 使われている用語の説明 イントロダクション¶ This document lists various terms used in DBIx::Class and attempts to explain them. このドキュメントにはDBIx::Classで使われている様々な用語のリストがあり、 それについて説明します。 用語¶ Inflation(インフレーション)¶ The act of turning database row data into objects in language-space. DBIx::Class further allows you to inflate your data into perl objects which more usefully represent their co
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
おいぬま日報(不定期) - DBIでCan't connect to local MySQL server through socket '/tmp/mysql.sock'
@ [perl] DBIでCan't connect to local MySQL server through socket '/tmp/mysql.sock' MySQLの通信用のソケットファイルをデフォルトの/tmp/mysql.sockから/tmp/mysql-4.0.sockに変えていたのですが、DBIでconnectする時に何も指定しないと「Can't connect to local MySQL server through socket '/tmp/mysql.sock'」というエラーになります。 ぐぐって見るとこんなページにはconnectする際のDSNにport=/tmp/mysql-4.0 とあるのですが、これでも解消しませんでした。んで、DBD::mysqlのドキュメントにmysql_socketというオプションがあったので、 DBI:mysql:database=
CatalystでDBICを使っていてSELECT時にテーブルを結合(JOIN)する | ブログが続かないわけ
前回の間違いを修正しました。 今回はCatalystでDBICを使う際、searchでjoinを実現する方法を説明します。 例アプリケーション名はMyApp。 ユーザー情報を格納しているUser というテーブルがあり、そこには都道府県がコードで格納されている。 都道府県はPref といテーブルにコード(pref_id)と都道府県名(pref_name)が1対1で対応している。 まず、model は下記のヘルパースクリプトで機械的に作っていますよ ね...?script/myapp_create.pl model DBIC DBIC DBI:mysql:mydb user passこれ（Catalyst::Model::DBIC）はあまり推奨されていないようですので、Catalyst::Model::DBIC::Schema を使うようにしましょう。script/myapp_create.p
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, #
[DBIx::Class][Perl] Cache::Memcached と DBIx::Class - cyberlib.enterbrainz.com
[DBIx::Class] [Perl] Cache::Memcached (Cache::FileCache,Catalyst::Plugin::Cache::Memcachedも) はオブジェクトがキャッシュできる。とても便利。 でもDBIx::Classのオブジェクトは、キャッシュできないことがある。 サンプル： #!/usr/bin/perl use strict; use Cache::Memcached; use TestDB; my $memd = new Cache::Memcached {'servers' => [ "127.0.0.1:11211" ]}; my $schema = TestDB->connect("dbi:mysql:testdb;localhost",'user','password'); #OK pattern
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
http://72.14.235.104/search?q=cache:DwXdj01ytvQJ:back-paper.labs.mfac.jp/writer/%3Fwriter_rid%3DkrOMLZxqJo%20join%20%E4%BD%BF%E3%81%84%E6%96%B9%E3%80%80DBIC&hl=ja&ct=clnk&cd=10&gl=jp&lr=lang_ja&client=firefox
delete() - Lazy Programmer :-p
Try chord
Welcome to fang-lang.net
http://www.lost-season.jp/mt/2005/11/2005112322.html