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
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 /, #å¿…è¦ãª
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
制御構文 - 2部 Perl言語仕様 - [SMART]
æ¡ä»¶æ–‡ æ¡ä»¶æ–‡ã¯ã„ãã¤ã‹ã®é¸æŠžè‚¢ã‚’コード内ã§å®Ÿç¾ã—ãŸã„éš›ã«ä½¿ç”¨ã—ã¾ã™ã€‚「もã—～ãªã‚‰ã°ã€ãƒ»ãƒ»ãƒ»ã‚’実行ã™ã‚‹ã€ã€ã€Œã‚‚ã—～ãªã‚‰ã°ã€ãƒ»ãƒ»ãƒ»ã‚’実行ã—ãªã„ã€ã¨ã„ã£ãŸã‚ˆã†ã«æ¡ä»¶ã«ã‚ˆã£ã¦å‡¦ç†ã‚’実行ã—ãŸã‚Šã€ã„ãã¤ã‹ã®é¸æŠžè‚¢ã®ä¸ã‹ã‚‰ã²ã¨ã¤ã®å‡¦ç†ã‚’実行ã—ãŸã‚Šã¨ã„ã£ãŸã“ã¨ã‚’実ç¾ã™ã‚‹ã“ã¨ãŒã§ãã¾ã™ã€‚ ifæ–‡ 「もã—～ãªã‚‰ã°ã€ãƒ»ãƒ»ãƒ»ã‚’実行ã™ã‚‹ã€ã¨ã„ã†æ¡ä»¶ã¤ãã®å‘½ä»¤ã‚’実ç¾ã™ã‚‹ãŸã‚ã«ã€if æ–‡ãŒç”¨æ„ã•ã‚Œã¦ã„ã¾ã™ã€‚ifæ–‡ã¯ã€ã‚«ãƒƒã‚³ã®ä¸ã®æ¡ä»¶å¼ã‚’評価ã—ã€TRUE ã®ã¨ãã ã‘ if ブãƒãƒƒã‚¯ã®å‘½ä»¤æ–‡ã‚’実行ã—ã¾ã™ã€‚ if ( æ¡ä»¶å¼ ) { 処ç†.... } 変数 $var ã®å€¤ãŒ A ã®æ™‚ã ã‘出力ã™ã‚‹ã«ã¯æ¬¡ã®ã‚ˆã†ã«ãªã‚Šã¾ã™ã€‚ if ( $var eq 'A' ) { print "Aã§ã™\n"; } æ¡ä»¶å¼ã¯è¤‡æ•°ã‚ã£ã¦ã‚‚ã‹ã¾ã„ã¾ã›ã‚“。複数ã®æ¡ä»¶ã‚’並ã¹ãŸã„ã¨ãã¯ã€è«–ç†æ¼”ç®—åã® and ã‚‚ã—ã㯠or を使ã„ã¾ã™ã€‚ # or: $v
DBI - Ｐｅｒｌ用データベース独立インターフェース
DBIモジュール Ver. 1.19 (日本語ãƒãƒ§ã‚¦è¨³ï¼‰ by Hippo2000(2001/8/2) (2001/9/13) åŽŸç”°ï¼ T.N.Lifesystemsã•ã‚“ã‹ã‚‰ã®æŒ‡æ‘˜ã‚’å—ã‘ã¦ã€èª¤å—を２箇所修æ£ã—ã¾ã—ãŸã€‚ 日本語ãƒãƒ§ã‚¦è¨³ã‚·ãƒªãƒ¼ã‚ºã€€DBIモジュールãªã®ã§ã™ã€‚å‰å›žã®ãƒãƒ§ã‚¦è¨³ï¼ˆ1.14）ã‹ã‚‰ã¿ã‚‹ã¨ã€ã¡ã‚‡ã£ã¨ãšã¤ãƒ‘ワーアップã—ã¦ã„ã¾ã™ã€‚ ã„ã¤ã‚‚ã®ã“ã¨ã§ã™ãŒã€ã‚ã‹ã‚Šã«ãã„（ã‚ã‚„ã—ã„）説明ã¯æœ¬ç‰©ã‚’見ã¦ãã ã•ã„。(^^; 原本ã®è‘—作権ã¯Tim Bunceæ°ãŒãŠæŒã¡ã§ã™ï¼ˆè©³ã—ãã¯è‘—ä½œæ¨©æƒ…å ±ã‚’è¦‹ã¦ãã ã•ã„）。Tim Bunceæ°ã«ã¯ãƒ¡ãƒ¼ãƒ«ã§äº†è§£ã‚’ã„ãŸã ãã¾ã—ãŸã€‚ 内容ç‰ãŒé–“é•ã£ã¦ã„ãŸã‚‰ä¿®æ£ã—ã¾ã™ã€‚ 質å•ãªã©ã‚‚å«ã‚ã¦ã€ã§ãã‚‹ã ã‘DBI日本語メーリングリストã«ã”連絡ãã ã•ã„。 アドレスã¯æŽ¢ã›ã°ã™ãã«è¦‹ã¤ã‹ã‚‹ã¯ãš(^^) 目次 åå‰ æ¦‚è¦ ãƒ˜ãƒ«ãƒ—ã®å–å¾— æ³¨æ„ æœ€è¿‘ã®å¤‰æ›´ç‚¹ 説明 DBIアプリケーショ
1
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
j次ã®ãƒ–ックマーク
kå‰ã®ãƒ–ックマーク
lã‚ã¨ã§èªã‚€
eコメント一覧を開ã
oページを開ã
{{#tags}}- {{label}}
{{/tags}}