第3回 DBIx::Classでデータベース操作（2） | gihyo.jp
Schema::Loaderの利用 第3回（1）でResultクラスには各テーブルがどのようなカラムを持っているかを定義する必要があると書きましたが、「そのようなテーブル情報はデータベースから自動的に取得できるのでは？」と思った方もいるかもしれません。DBIx::Class::Schema::Loaderという別で配布されているモジュールを使用すると、Resultクラスでのテーブル情報の定義を省略できます。 Schema::Loaderを使うべきか 軽いデータベース操作であればSchema::Loaderがお手軽ですが、そうではない場合はResultクラスにテーブル定義をしっかりと書くのがお勧めです。Resultクラスにテーブル定義を書くべき理由は主に2つあります。 ●DBIx::Classからデータベースを作成できる Resultクラスにテーブル定義を書くと、DBIx::Classから
SQL::Abstract を使い倒す - JPerl Advent Calendar 2009
SQL::Abstract を使い倒す - JPerl Advent Calendar 2009 Perl に関するちょっとした Tips をのっけてみるよ。ちゃんと続くかな？ 今更、携帯小説にハマってる id:ZIGOROu です。モバゲーのオンライン3って小説が面白いですよ！ 今日は SQL::Abstract を使い倒すと言うネタで行きます。 まず超基本編 簡単な SQL 文の生成から始めましょう。 use strict; use warnings; use Data::Dump qw(dump); use SQL::Abstract; my $s = SQL::Abstract->new; my ($stmt, @bind) = $s->select( "activity", # tables [qw/id title sender created_on/], # columns
DBIC で生の SQL を実行したいときは $storage->dbh_do() と $storage->dbh() どちらが適切？ - @kyanny's blog
DBIC で生の SQL を実行したいときは $storage->dbh_do() を使えば良いということを知った。 my @stuff = $schema->storage->dbh_do( sub { my ($storage, $dbh, @args) = @_; $dbh->do("DROP TABLE authors"); }, @column_list ); http://search.cpan.org/~frew/DBIx-Class-0.08114/lib/DBIx/Class/Storage/DBI.pm#dbh_do もういっこ $storage->dbh() てのもあり、こちらは見た通り $dbh を返す。これをふつうに DBI を扱うときのように使ってもいけるようだ。 http://search.cpan.org/~frew/DBIx-Class-0.08114/l
DBIC で検索結果のレコードをハッシュで受け取る方法 - Craftworks Tech Blog - Branch
なぜか、perldoc DBIx::Class::ResultSet に get_column() は載ってるのに、get_columns() が載っていなかったのでメモです。 $col1 = $rs->get_column('column1'); とかじゃなくて、 { 'column1' => 'value1', 'column2' => 'value2', 'column3' => 'value3', . . . }みたいに一気に取りたい時は、 my $rs = $schema->resultset('Table')->find($id); $row = +{ $rs->get_columns }; で行けます。search() で取った複数レコードの場合とかは、 my @rows = map +{ $_->get_columns }, $rs->all; で。 as_fdat() で
DBIC での SQL 覗き見と Log::Dispatch - daily dayflower
今まで $schema->storage->debug(1) として標準出力に出力される SQL 文を監視していたのですが，なぜか早く終わるリクエストでとらえきれなくなってしまいました。 やむなくロガーを導入することにしました。Log::Log4perl は仕様が重そうなので（log4j のときも設定とかめんどくさかったなぁ）パス。Log::Agent とかなかなか魅力的と思ったのですが，Log::Dispatch の設計思想にやや惹かれてこちらを使うことに…あ，Log::Log4perl ってこれをバックエンドにしてたんですか。作者の Dave Rolsky さんは DateTime のメンテナでもあるんですね。ふむふむ。 インストール自体はさっくり終了（というかテストスクリプトが簡潔すぎ）しました。DBIx::Class::Storage::DBI には debugcb というデバッグ
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 - Japan Perl Association Wiki
トレース DBIx::Classで複雑なクエリを行っている場合、実際に発行されているクエリをみる必要がある場合があります。そのような場合は環境変数DBIC_TRACEを設定してスクリプトを実行すると実行されているクエリをみることができます： DBIC_TRACE=1 myscript.pl クエリが多くて一度に追うのが難しい場合はこの出力をファイルに向けることもできます。 DBIC_TRACE=1=/path/to/query.log myscript.pl トランザクション DBIx::Class 0.08100以上をお使いであれば、明示的に何も指定しなくてもDBIx::Class::Storage::TxnScopeGuardを使用することができます。 #!/usr/bin/perl use strict; use MyApp::Schema; my $schema = MyApp::
どんぞこ日誌(2009-09-18) - YAPC::Asia特別研修にいってきました
* [Perl][近況] YAPC::Asia特別研修にいってきました YAPC::Asia特別研修のDBIX::ClassとMySQLによるPerlアプリケーションのスケーリング術（講師：John Napiorkowskiさん）に参加しました。 午前中はDBIx::Class関連とスケーリング、パフォーマンス向上のための技術の紹介。まず最初にカードの山から特定のものを取り出す作業を通じて、一人より数人同時が、数人同時より予めindexした方が早いということを体験。→しかしその後の話には絡まない。 話は結構行きつ戻りつで、あまり体系だってはいなかったので、大雑把にまとめると： DBICとかSQL関連 DBICが吐くSQLは遅い件について→最近はかなり良くなってきている 複雑なjoinも可能。ドキュメント、tディレクトリ参照。 DBIC_TRACE=1は友達。実行SQL全部吐かせる。さらに1
DBIC勉強しつつ、SQL書き方ドリル読んだメモ -2- - IMAKADO::BLOG
p175〜 相関副問い合わせ。 SELECT p.ProductName, s1.Quantity, s1.saledate FROM Sales AS s1 JOIN Products AS p ON p.ProductID = s1.ProductID WHERE s1.Quantity > ( SELECT AVG(s2.Quantity) FROM Sales AS s2 WHERE s2.ProductID = s1.ProductID ) ; my $avg = $schema->resultset('Sales')->get_column('Quantity')->func('AVG'); $schema->resultset('Sales')->search( { 'me.Quantity' => {'>' => $avg}, }, { select => [qw/ Pro
DBIC勉強しつつ、SQL書き方ドリル読んだメモ - IMAKADO::BLOG
DBは SQL書き方ドリル のサンプルです。 そこから DBIx::Class::Schema::Loader をつかって schema dump して relation とか書きました。 毎日ちょっとずつやっていこうかと思っております。 Util dumpするやつ。 sub p { my ($rs) = @_; my @rows = $rs->isa('DBIx::Class::ResultSet') ? $rs->all : @_; my $colums_ref_encode = sub { my $hsh = {$_[0]->get_columns}; $dev->encode('utf8', $hsh); $hsh; }; my $ret = [ map{ $colums_ref_encode->($_) } @rows ]; use Data::Dumper; print Dum
[O] DBICのリレーションシップ
« TaskPadを使いながら作業作業 | トップページ | 新宿 磯善 » DBICのリレーションシップ [Perl] やっぱり、DBIx::Class::Relationshipを読み直すことにした。 こういうのをちゃんと理解しておかないと足をすくわれるし。 ちょっとづつ書いたら、何日もかかった。ションボリ。 まずは前提となるデータ こんな感じで、Authorテーブルと、Bookテーブルがあるとする。 ID | Name | Age ------------------ 1 | Fred | 30 2 | Joe | 32 ID | Author | Name -------------------- 1 | 1 | Rulers of the universe 2 | 1 | Rulers of the galaxy リレーションシップなしの場合 もしもリ
mizzy.org : Re: DBICとDBIx::Class::Schema::Loader 僕のいろいろな勘違い
ブログが続かないわけ | DBICとDBIx::Class::Schema::Loader 僕のいろいろな勘違い にて、 とはいえ、僕の稼働中のアプリはすでに手動型のSchema で動いている。スキーマを作り直したら、リレーションの設定を全てしなおさなければならないので、それは現実的じゃない。inflate, deflate の指定は、やっぱりすべてのSchema にかかなきゃだめそうだ。 とあったので、これに関して少し楽ができる方法をコメントしようと思ったけれど、コメント欄ではうまく伝えられる自信がないので、こちらで書いてみることにしました。 load_components で 読み込む方法 DBIx::Class::Schema::Loader ではなく DBIx::Class::Schema を継承したスキーマの場合には、各スキーマファイルに以下の様に書いてあげれば OK です。（既
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)
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 ＋ Catalyst::View::JSON（２） - ヒルズで働く@robarioの技ログ
以前書いたエントリの修正です。 get_columnsだとinflateを通らないようなので、明示的にアクセサを呼ぶように修正しました。使い方には変更ありません。 sub inflate_row { my $row = shift; my %data; foreach my $column ( $row->result_source->columns ) { $data{$column} = $row->$column; } return \%data; } sub inflate_resultset { my $rs = shift; return [ map { inflate_row($_) } $rs->all ]; } sub inflate_dbic { my ( $c, $obj ) = @_; if ( !Scalar::Util::blessed($obj) ) { re
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::Schema::Loaderの手動スキーマ生成、初心者向けチュートリアル - Yet Another Hackadelic
と言う訳で自分なりに色々調べてみた。 テスト用データベース定義 CREATE TABLE `User` ( `user_id` bigint(20) NOT NULL auto_increment, `name` varchar(255) character set latin1 default NULL, `created_on` datetime default NULL, `updated_on` datetime default NULL, PRIMARY KEY (`user_id`) ) ENGINE=InnoDB DEFAULT CHARSET=utf8; CREATE TABLE `Book` ( `book_id` bigint(20) NOT NULL auto_increment, `name` varchar(255) character set latin1 de
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
まぐまぐ！ - 読みたいメルマガ、きっと見つかる。
今日のCPANモジュール（跡地） 目次