hide-k.net#blog: Catalyst::Model::DBIC::Schemaを使ã£ã¦ã¿ãŸ
Catalyst::Model::DBIC::Schemaを使ã£ã¦ã¿ã¾ã—ãŸã€‚ DBIx::Classã§æ–°ã—ããªã£ãŸSchemaモデルをCatalystã®Modelã¨ã—ã¦ä½¿ã†ã‚¯ãƒ©ã‚¹ãªã®ã§ã™ãŒã€ä»Šã¾ã§ã®Modelã¨å¤§ããé•ã†ã®ã¯ãƒ¢ãƒ‡ãƒ«ã‚’アプリケーションã®å¤–ã«è¿½ã„出ã™ã“ã¨ãŒå‡ºæ¥ã‚‹ç‚¹ã§ã™ã€‚ 例ãˆã°ã€è¤‡æ•°ã®ã‚¢ãƒ—リケーションã§èªè¨¼æƒ…å ±ã‚’ä½¿ã„ã¾ã‚ã—ãŸã„時ã«ã¯ä¾¿åˆ©ã‹ã¨æ€ã‚ã‚Œã¾ã™ã€‚ ã¾ãšã¯ã‚¹ã‚ーマを作りã¾ã™ã€‚(Perl/DBIC - Nekokak's core dumpã«å¤§å¤‰ã‚ã‹ã‚Šã‚„ã™ã„説明ãŒã‚ã‚Šã¾ã™ã€‚) Schema/ Account.pm Account/ Users.pm Schema/Account.pm package Schema::Account; use strict; use warnings; use base 'DBIx::Class::Schema'; __PACKAGE__-
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 /, #å¿…è¦ãª
Class::DBI::Sweet
NAME Class::DBI::Sweet - Making sweet things sweeter SYNOPSIS package MyApp::DBI; use base 'Class::DBI::Sweet'; MyApp::DBI->connection('dbi:driver:dbname', 'username', 'password'); package MyApp::Article; use base 'MyApp::DBI'; use DateTime; __PACKAGE__->table('article'); __PACKAGE__->columns( Primary => qw[ id ] ); __PACKAGE__->columns( Essential => qw[ title created_on created_by ] ); __PACKAGE_
CDBIã§set namesã™ã‚‹ (Re::Monologue)
今更DBICã§ãªãCDBIãƒã‚¿ã€‚事情ã«ã‚ˆã‚Šmy.cnfを書ãæ›ãˆã‚‹äº‹ãŒã§ããªã„ã®ã§set names utf8ã—よã†ã¨ã—ãŸã‚‰ã‚„ã‚Šæ–¹ãŒåˆ¤ã‚‰ãšã€ã—ã°ã‚‰ãã„らã„らã—ãŸã®ã§ãƒ¡ãƒ¢ã€‚ 環境ã¯MySQL 5.0.18 + Class::DBI 3.000014 package MyApp::Model::CDBI; use strict; use base qw[ Catalyst::Model::CDBI Class::DBI::mysql ]; __PACKAGE__->config( dsn => 'DBI:mysql:dbname=データベースå', user => 'データベースユーザ', password => 'データベースパスワード', options => {}, relationships => 1 ); 1; package MyApp::Model::CDBI::Users; u
Catalyst ã® Catalyst::Helper::Model::CDBI ã§ã„ã¤ã‚‚ãƒãƒžã‚‹ãƒ»ãƒ»ãƒ»orz
何ã‹ã€Catalyst ã‚’ã„ã‚ã‚“ãªç’°å¢ƒã«ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã™ã‚‹ãŸã³ã«ã€Helper スクリプトを実行ã—ã¦ã€create model CDBI ã™ã‚‹ã¨ã„ã¤ã‚‚åŒã˜ã‚¨ãƒ©ãƒ¼ã§èº“ãã®ã§å‚™å¿˜éŒ²ã¨ã—ã¦è¨˜äº‹ã«ã—ã¦ãŠã“ã†ã¨æ€ã„ã¾ã—ãŸã€‚ ãã®ï¼‘）Class::DBI::mysql をインストールã—忘れる perl myapp_create.pl model CDBI CDBI dbi:mysql:WebService testid testpw exists "/home/apache/tmp/MyAPP/script/../lib/MyAPP/Model" exists "/home/apache/tmp/MyAPP/script/../t" created "/home/apache/tmp/MyAPP/script/../lib/MyAPP/Model/CDBI.pm" Couldn't require lo
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;
1
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
j次ã®ãƒ–ックマーク
kå‰ã®ãƒ–ックマーク
lã‚ã¨ã§èªã‚€
eコメント一覧を開ã
oページを開ã
nekobara カルゴルニア・ジョン: 7月4æ—¥ã®è¡Œå‹•
DBIC DBIx ã§ã€SQL関数を使ㆠ- Solitaire
http://www.removabletype.net/pods/DBIx/Class/Manual/FAQ.html
http://www.lost-season.jp/mt/2005/11/2005112322.html
{{#tags}}- {{label}}
{{/tags}}