DBICã®ãƒªãƒ¬ãƒ¼ã‚·ãƒ§ãƒ³ãŒè‹¦æ‰‹ã§ä½¿ã†ãŸã³ã«èª¿ã¹ãªãŠã™ã®ãŒé¢å€’ãªã®ã§ã¾ã¨ã‚ã¦ã¿ãŸ - (ﾟ∀ﾟ)o彡 sasata299's blog
2009å¹´06月17æ—¥00:13 Perl DBICã®ãƒªãƒ¬ãƒ¼ã‚·ãƒ§ãƒ³ãŒè‹¦æ‰‹ã§ä½¿ã†ãŸã³ã«èª¿ã¹ãªãŠã™ã®ãŒé¢å€’ãªã®ã§ã¾ã¨ã‚ã¦ã¿ãŸ 「DBICã®ãƒªãƒ¬ãƒ¼ã‚·ãƒ§ãƒ³ã¨ã‹ã€æ¯Žå›žä½¿ã†ãŸã³ã«èª¿ã¹ã¦ã¦æ™‚é–“ãŒå‹¿ä½“ç„¡ã„ã€ã¨æ€ã£ã¦ã¾ã¨ã‚ã¦ã¿ã¾ã—ãŸã€‚ç°¡å˜ãªä¾‹ã¨ã—ã¦ã€entryテーブルã¨commentテーブルを考ãˆã¦ã¿ã¾ã—ょã†ã€‚ mysql> desc entry; +---------+--------------+------+-----+---------+----------------+ | Field | Type | Null | Key | Default | Extra | +---------+--------------+------+-----+---------+----------------+ | id | int(11) | NO | PRI | NULL | auto_increment |
DBIC ã§now()ã¨ã‹sysdate() ã¨ã‹ã®SQL関数を使ã„ãŸã„ | ブãƒã‚°ãŒç¶šã‹ãªã„ã‚ã‘
今日もCatalyst & DBIC ã®ãŠè©±ã€‚テーブルã«ãƒ‡ãƒ¼ã‚¿ã‚’INSERTã™ã‚‹ã¨ãã«ã€ãã®ãƒ¬ã‚³ãƒ¼ãƒ‰ã®ä½œæˆæ—¥ã¨ã—ã¦create_date ã¿ãŸã„ãªã‚«ãƒ©ãƒ を用æ„ã™ã‚‹äº‹ã¯å¤šã„よã？ã§ã€ã ã„ãŸã„ãã®ã‚«ãƒ©ãƒ ã«ã¯default ã«now()ã¨ã‹sysdate() ã‚’è¨å®šã™ã‚‹äº‹ãŒå¤šã„ã。 ã§ã‚‚ã€ç„¡ç²¾ã—ã¦default をセットã—ãªã„事も沢山ã‚るよã。ãã®å ´åˆã«ã¯INSERT時ã€ã¤ã¾ã‚ŠDBICã§ã¯create 時ã«now() ã‚’çªã£è¾¼ã¿ãŸããªã‚‹ã€‚ã§ã‚‚ã€ã“ã‚ŒãŒæ„外ã¨ç°¡å˜ã«ã¯ã„ã‹ãªã„。 DBICã§æœ¬å½“ã«å›°ã£ãŸã‚‰ SCALAR REFERNCE を使ãˆã£ã¤ã†ã“ã¨ã§ã€ã‚¹ã‚«ãƒ©ãƒ¼ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã§è§£æ±ºã—ã¾ã—ãŸã€‚ ã“ã‚“ãªæ„Ÿã˜ my $map = $c->model( 'DBIC::TranMatchmake' )->create({ user_id => $c->session->{user_id}, user_name
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, #
Data::Page::Navigationリリースã—ã¾ã—㟠: blog.nomadscafe.jp
Data::Page::Navigationリリースã—ã¾ã—㟠CPANã®indexerãŒå¾©æ´»ã—ãŸã‚ˆã†ãªã®ã§åˆå‰ä¸ã«ã‚¢ãƒƒãƒ—ã—ãŸData::Page::Navigationã‚‚ã§ã¦ãるよã†ã«ãªã‚Šã¾ã—ãŸã€‚ 関連エントリー 1st Data::Pageã¨ãƒšãƒ¼ã‚¸ãƒŠãƒ“ゲーション 2nd Data::Page::Navigation　ã„ã„æ„Ÿã˜ã®ãƒšãƒ¼ã‚¸ãƒŠãƒ“ゲーション 使ã„æ–¹ã¯ã€ use Data::Page::Navigation; ã¨useã™ã‚‹ã ã‘ã§ã™ã€‚ ã‚ã¨ã¯æ™®é€šã« my $pager = Data::Page->new(100,10,2); ã¨Data::Pageã®ã‚ªãƒ–ジェクトを生æˆã—ã¾ã™ã€‚ã™ã‚‹ã¨ã€è¡¨ç¤ºã™ã‚‹ãƒšãƒ¼ã‚¸ç•ªå·ã®ãƒªã‚¹ãƒˆã‚’ã¤ãã‚‹pages_in_navigationメソッドãŒä½¿ãˆã‚‹ã‚ˆã†ã«ãªã£ã¦ã¾ã™ã€‚ my @list = $pager->pages_in_navigation(); Catalys
Catalystã®Chainedアクションを使ã„ã“ãªã™ãŸã‚ã®3ã¤ã®ãƒ«ãƒ¼ãƒ« - (ﾟ∀ﾟ)o彡 sasata299's blog
2009å¹´05月16æ—¥13:45 Perl Catalystã®Chainedアクションを使ã„ã“ãªã™ãŸã‚ã®3ã¤ã®ãƒ«ãƒ¼ãƒ« 僕ã¯æœ€è¿‘ã€Chainedアクションを良ã使ã£ã¦ã„ã¾ã™ã€‚ã ã£ã¦ã¨ã£ã¦ã‚‚便利ãªã‚“ã§ã™ï¼žï¼œ 特㫠http://localhost:3000/hoge/*/*/edit ã¿ãŸã„ãªè¤‡é›‘ãªURLã«å¯¾ã™ã‚‹ã‚¢ã‚¯ã‚·ãƒ§ãƒ³ã‚’作りãŸã„ã¨ããªã©ã€å¤§æ´»èºã§ã™ï¼æœ€è¿‘ã§ã¯autoã¨ã‹beginã‚’Chainedã§ä»£ç”¨ã™ã‚‹ã‚ˆã†ã«ã€‚。。(*´Д｀*) サンプルã¯ã“ã‚“ãªæ„Ÿã˜ã€‚ sub mysetup : Chained('/') PathPart('') CaptureArgs(2) { my ($self, $c, @arg) = @_; $c->log->debug("in mysetup"); $c->log->debug( $arg[0] ); $c->log->debug( $arg[1] ); }
1
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
j次ã®ãƒ–ックマーク
kå‰ã®ãƒ–ックマーク
lã‚ã¨ã§èªã‚€
eコメント一覧を開ã
oページを開ã
Catalyst二発目 - Vox
{{#tags}}- {{label}}
{{/tags}}