Data::ObjectDriver::SQL
NAME Data::ObjectDriver::SQL - an SQL statement SYNOPSIS my $sql = Data::ObjectDriver::SQL->new(); $sql->select([ 'id', 'name', 'bucket_id', 'note_id' ]); $sql->from([ 'foo' ]); $sql->add_where('name', 'fred'); $sql->add_where('bucket_id', { op => '!=', value => 47 }); $sql->add_where('note_id', \'IS NULL'); $sql->limit(1); my $sth = $dbh->prepare($sql->as_sql); $sth->execute(@{ $sql->{bind} }); m
DBI
NAME DBI - Database independent interface for Perl SYNOPSIS use DBI; @driver_names = DBI->available_drivers; %drivers = DBI->installed_drivers; @data_sources = DBI->data_sources($driver_name, \%attr); $dbh = DBI->connect($data_source, $username, $auth, \%attr); $rv = $dbh->do($statement); $rv = $dbh->do($statement, \%attr); $rv = $dbh->do($statement, \%attr, @bind_values); $ary_ref = $dbh->selecta
DBIx::DataModel
NAME DBIx::DataModel - UML-based Object-Relational Mapping (ORM) framework INTRODUCTION DBIx::DataModel is a framework for building Perl abstractions (classes, objects and methods) that interact with relational database management systems (RDBMS). Working above the DBI module, it provides facilities for generating SQL queries, joining tables automatically, navigating through the results, convertin
TheSchwartz::Simple
NAME TheSchwartz::Simple - Lightweight TheSchwartz job dispatcher using plain DBI SYNOPSIS use DBI; use TheSchwartz::Simple; my $dbh = DBI->connect(...); my $client = TheSchwartz::Simple->new([ $dbh ]); $client->prefix("theschwartz_"); # optional my $job_id = $client->insert('funcname', $arg); my $job = TheSchwartz::Simple::Job->new; $job->funcname("WorkerName"); $job->arg({ foo => "bar" }); $job-
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_
Class::DBI
NAME Class::DBI - Simple Database Abstraction SYNOPSIS package Music::DBI; use base 'Class::DBI'; Music::DBI->connection('dbi:mysql:dbname', 'username', 'password'); package Music::Artist; use base 'Music::DBI'; Music::Artist->table('artist'); Music::Artist->columns(All => qw/artistid name/); Music::Artist->has_many(cds => 'Music::CD'); package Music::CD; use base 'Music::DBI'; Music::CD->table('c
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;
Class::DBI::Sweet - ç´ æ•µãªã‚‚ã®ã‚’ã‚ˆã‚Šç´ æ•µã«ã™ã‚‹ - perldoc.jp
Class::DBI::Sweet - ç´ æ•µãªã‚‚ã®ã‚’ã‚ˆã‚Šç´ æ•µã«ã™ã‚‹ 概è¦Â¶ 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__->has_a( created_on =>
Class::DBI - シンプルãªãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹æŠ½è±¡ã‚¯ãƒ©ã‚¹ - perldoc.jp
åå‰Â¶ Class::DBI - シンプルãªãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹æŠ½è±¡ã‚¯ãƒ©ã‚¹ 概è¦Â¶ package Music::DBI; use base 'Class::DBI'; Music::DBI->connection('dbi:mysql:dbname', 'username', 'password'); package Music::Artist; use base 'Music::DBI'; Music::Artist->table('artist'); Music::Artist->columns(All => qw/artistid name/); Music::Artist->has_many(cds => 'Music::CD'); package Music::CD; use base 'Music::DBI'; Music::CD->table('cd'); Music::CD->c
制御構文 - 2部 Perl言語仕様 - [SMART]
æ¡ä»¶æ–‡ æ¡ä»¶æ–‡ã¯ã„ãã¤ã‹ã®é¸æŠžè‚¢ã‚’コード内ã§å®Ÿç¾ã—ãŸã„éš›ã«ä½¿ç”¨ã—ã¾ã™ã€‚「もã—～ãªã‚‰ã°ã€ãƒ»ãƒ»ãƒ»ã‚’実行ã™ã‚‹ã€ã€ã€Œã‚‚ã—～ãªã‚‰ã°ã€ãƒ»ãƒ»ãƒ»ã‚’実行ã—ãªã„ã€ã¨ã„ã£ãŸã‚ˆã†ã«æ¡ä»¶ã«ã‚ˆã£ã¦å‡¦ç†ã‚’実行ã—ãŸã‚Šã€ã„ãã¤ã‹ã®é¸æŠžè‚¢ã®ä¸ã‹ã‚‰ã²ã¨ã¤ã®å‡¦ç†ã‚’実行ã—ãŸã‚Šã¨ã„ã£ãŸã“ã¨ã‚’実ç¾ã™ã‚‹ã“ã¨ãŒã§ãã¾ã™ã€‚ ifæ–‡ 「もã—～ãªã‚‰ã°ã€ãƒ»ãƒ»ãƒ»ã‚’実行ã™ã‚‹ã€ã¨ã„ã†æ¡ä»¶ã¤ãã®å‘½ä»¤ã‚’実ç¾ã™ã‚‹ãŸã‚ã«ã€if æ–‡ãŒç”¨æ„ã•ã‚Œã¦ã„ã¾ã™ã€‚ifæ–‡ã¯ã€ã‚«ãƒƒã‚³ã®ä¸ã®æ¡ä»¶å¼ã‚’評価ã—ã€TRUE ã®ã¨ãã ã‘ if ブãƒãƒƒã‚¯ã®å‘½ä»¤æ–‡ã‚’実行ã—ã¾ã™ã€‚ if ( æ¡ä»¶å¼ ) { 処ç†.... } 変数 $var ã®å€¤ãŒ A ã®æ™‚ã ã‘出力ã™ã‚‹ã«ã¯æ¬¡ã®ã‚ˆã†ã«ãªã‚Šã¾ã™ã€‚ if ( $var eq 'A' ) { print "Aã§ã™\n"; } æ¡ä»¶å¼ã¯è¤‡æ•°ã‚ã£ã¦ã‚‚ã‹ã¾ã„ã¾ã›ã‚“。複数ã®æ¡ä»¶ã‚’並ã¹ãŸã„ã¨ãã¯ã€è«–ç†æ¼”ç®—åã® and ã‚‚ã—ã㯠or を使ã„ã¾ã™ã€‚ # or: $v
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
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
ã®ã¿ã¾ãã—日記 - Class::DBI update
perl DBD::Pgã®ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã«ã¤ã„㦠- æ•™ãˆã¦ï¼goo
{{#tags}}- {{label}}
{{/tags}}