Perl Advent Calendar 2011 - Less Tedium, More Transactions
A frequent pattern when writing database-backed applications with the DBI is to connect to the database and cache the database handle somewhere. A simplified example: package MyApp::DB; use DBI; use strict; my $DBH = DBI->connect('DBI:SQLite:dbname=myapp.db', '', '', { PrintError => 0, RaiseError => 1, AutoCommit => 1, sqlite_unicode => 1, }); sub dbh { $DBH } Just load MyApp::DB anywhere in your
DBIx::QueryLog 㧠DBI ã§å®Ÿè¡Œã•ã‚ŒãŸ SQL を丸見ãˆã«ã™ã‚‹ï¼ - Articles Advent Calendar 2011 Dbix
ã“ã‚“ã«ã¡ã¯ã€æœ€è¿‘ PSP1000 ã®é›»æ± ãŒä¸€çž¬ã§åˆ‡ã‚Œã¦ã—ã¾ã£ã¦ã¾ã¨ã‚‚ã«ã‚²ãƒ¼ãƒ ãŒã§ããªã„ xaicron ã§ã™ã€‚ ã•ã¦ã€ã¿ãªã•ã‚“㯠DBI ã‹ã‚‰åã‹ã‚ŒãŸ SQL ã‚’ã¿ãŸã„ãªãƒ¼ã¨æ€ã†ã“ã¨ã‚‚ã‚ã‚‹ã§ã—ょã†ã€‚ ãã‚“ãªæ™‚ã¯ã€$ENV{DBI_TRACE} = 2 ã¨ã‹ã—ã¦ã¿ã‚‹ã¨ã€ãƒ‰ãƒãƒ¼ãƒƒã¨ã„ã£ã±ã„デãƒãƒƒã‚°ãƒã‚°ãŒå‡ºã¦ãã¦ã€ ãã®ä¸ã«å®Ÿéš›ã«ç™ºè¡Œã•ã‚ŒãŸ SQL ãŒã¡ã‚‡ã‚ã£ã¨å‡ºã¦ãŸã‚Šã™ã‚‹ã®ã§ã“ã„ã¤ã‚’é ‘å¼µã£ã¦ãƒ‘ースã™ã‚Œã°ã„ã„æ„Ÿã˜ã§ã™ãï¼ ã£ã¦ã„ã†ã®ã¯ã ã„ã¶é¢å€’ã ã£ãŸã‚Šã—ã¾ã™ã。ã‚ãŸã‚Šã¾ãˆã§ã™ã。 ãã“ã§ã€use ã™ã‚‹ã ã‘ã§ã¨ã‚Šã‚ãˆãšå…¨éƒ¨ã®ç™ºè¡Œã•ã‚ŒãŸ SQL ã‚’ STDERR ã«ã¯ã„ã¦ãれるモジュールを書ãã¾ã—ãŸã€‚ ãã®åã‚‚ DBIx::QueryLog ã§ã™ã€‚ãã®ã¾ã¾ã§ã™ã。 ã¤ã‹ã„ã‹ãŸ 使ã„æ–¹ã¯è‡³æ¥µç°¡å˜ã§ã€ã©ã£ã‹ã§é©å½“ã« use ã™ã‚‹ã ã‘ã§ã™ã€‚ã»ã‹ã«ã¯ä½•ã‚‚ã„ã‚Šã¾ã›ã‚“。 ãã†ã™ã‚‹ã¨ã€ä»¥ä¸‹ã®ã‚ˆã†ãªæ„Ÿã˜ã§ STDE
DBIx::Simple ãµãŸãŸã³ - Articles Advent Calendar 2011 Dbix
タイガー＆ãƒãƒ‹ãƒ¼ã®ã€åŽŸç¨¿ãŒé…ã‚ŒãŒã¡ãªæ–¹ã€ãƒˆãƒŸãƒ¼ãƒ«ã§ã™ï¼ 今日㯠DBI ã¸ã®ã‚·ãƒ¥ã‚¬ãƒ¼ã‚·ãƒ³ã‚¿ãƒƒã‚¯ã‚¹ã‚’è¿½åŠ ã™ã‚‹ãƒ©ãƒƒãƒ‘ーã€DBIx::Simple ã®ç´¹ä»‹ã§ã™ã€‚ 実㯠DBI ãã®ã‚‚ã®ã£ã¦ç›¸å½“高機能ã§ã‚ã‚‹ï¼ã€ã¨ã„ã†ã®ã¯ã“ã®ã‚¢ãƒ‰ãƒ™ãƒ³ãƒˆã‚«ãƒ¬ãƒ³ãƒ€ãƒ¼ã§ã‚‚ã„ã‚ã„ã‚紹介ã•ã‚Œã‚‹ã¨æ€ã„ã¾ã™ã€‚ãŒã€ã‚„ã‚„ä¸è¦ªåˆ‡ãªãƒ¡ã‚½ãƒƒãƒ‰ã®å¼•æ•°ã®æ„Ÿã˜ã‚’見ã¦ã€ã‚´ãƒã‚´ãƒ DBI ã®ãƒ©ãƒƒãƒ‘ーãŒä½œã‚‰ã‚Œã¦ã„ãŸã‚Šã—ã¾ã™ã€‚ãã‚“ãªãªã‹ DBIx::Simple ãŒã‚„ã¯ã‚Šè‰¯ã„ã¨æ€ã†ã®ã¯ã‚ã‹ã‚Šã‚„ã™ãシンプル㪠API ã‚’æä¾›ã™ã‚‹ã€ã¨ã„ã†ç‚¹ã§ä¸€å®šã®æˆåŠŸã‚’åŽã‚ã¦ã„ã‚‹ã¨æ€ã†ç‚¹ã§ã™ã€‚ ※ ãŸã ã—ã‚ã‹ã‚Šã‚„ã™ã„ API ã®ãƒˆãƒ¬ãƒ¼ãƒ‰ã‚ªãƒ•ã¨ã—ã¦ã€çµæžœã®ã‚¹ãƒ†ãƒ¼ãƒˆãƒ¡ãƒ³ãƒˆãƒãƒ³ãƒ‰ãƒ«ã‚’ bless ã™ã‚‹ã‚¿ã‚¤ãƒ—ã§ã™ã€‚ã‚‚ã— blessã™ã‚‹ï¼ˆçµæžœã‚ªãƒ–ジェクトを作æˆã™ã‚‹ï¼‰ã‚³ã‚¹ãƒˆãŒå•é¡Œã«ãªã‚‹ã‚ˆã†ãªãƒãƒ¼ãƒ‰ã‚³ã‚¢ãªç’°å¢ƒã§é–‹ç™ºã•ã‚Œã¦ã„ã‚‹æ–¹ã¯æ™®é€šã« DBI ã‚’ç´ ã§ä½¿ãˆã°ã‚ˆã„ã¨æ€ã„ã¾ã™ã€‚ DBIx::
ãã‚ŒCallbacks㧠- DBIxを作りã ã™å‰ã« - Articles Advent Calendar 2011 Dbix
ã©ã†ã‚‚kazeburoã§ã™ã€‚DBIx Trackãªã®ã«ã€DBIxを作らãªã„話。 myfinderã•ã‚“ãŒDBIxを作る第一æ©ã¨ã—ã¦DBIã®ã‚µãƒ–クラスã®ä½œã‚Šæ–¹ã‚’紹介ã—ã¾ã—ãŸãŒã€å®Ÿéš›ã«DBIxを作り出ã™å‰ã«ã€ãã®æ©Ÿèƒ½ãŒDBIã®æ¨™æº–機能ã§ã§ããªã„ã‹èª¿ã¹ã‚‹ã®ãŒã‚ªã‚¹ã‚¹ãƒ¡ã§ã™ã€‚ Callbacksã®åŸºæœ¬ Callbacksã¯DBIã«æ¨™æº–ã§ç”¨æ„ã•ã‚Œã¦ã„ã‚‹Hook機能ã§ã™ã€‚ my $dbh = DBI->connect('dbi:SQLite:dbname=test.db','','', { RaiseError => 1, PrintError => 0, Callbacks => { connected => sub { ... } } }); 接続時ã®Attributesã«Callbacksã‚’è¿½åŠ ã—ã¾ã™ã€‚上ã§ã¯æŽ¥ç¶šãŒå®Œäº†(connected)ã—ãŸã‚‰coderefãŒå‘¼ã³å‡ºã•ã‚Œã¾ã™ã€‚ 接続時ã«ãƒ†ãƒ¼ãƒ–ルを作
Web テクノãƒã‚¸ãƒ¼ã‚»ãƒŸãƒŠãƒ¼ in Hokkaido 㨠Hokkaido.pm ã®ã‚¹ãƒ©ã‚¤ãƒ‰ã‚’公開ã—ã¾ã™ - æ—¥å‘å¤ç‰¹æ®Šå¿œæ´éƒ¨éšŠ
ã¡ã‚‡ã£ã¨å¿™ã—ã„ã®ã§æ„Ÿæƒ³ã¨ã‹ã¯å¾Œã§ï¼žï¼œ ã¨ã„ã†ã‚ã‘ã§è¡Œã£ã¦å‚ã‚Šã¾ã—ãŸåŒ—æµ·é“。å‰æ—¥é ‘å¼µã£ã¦ã‚¹ãƒ©ã‚¤ãƒ‰æ›¸ã„ã¦ã¯å‘‘ã‚“ã§ã‚¹ãƒ©ã‚¤ãƒ‰æ›¸ã„ã¦ã¯å‘‘ã‚“ã§ã®ç¹°ã‚Šè¿”ã—ã§ãƒ›ãƒ†ãƒ«ã®æœé£Ÿã‚’二度ã¨ã‚‚逃ã™ã¨ã„ã†ä½“ãŸã‚‰ãã¶ã‚Šã§ã—ãŸï½— Web テクノãƒã‚¸ãƒ¼ã‚»ãƒŸãƒŠãƒ¼ in Hokkaido mbga Open Platform and PerlView more presentations from zigorou. 一応補足的ã«è¨€ã£ã¦ãŠãã¨ã€è¨è¨ˆæŒ‡é‡è¾ºã‚Šã§å‰æã¨ã—ã¦ä»Šå›žä½œã£ã¦ã„ã‚‹ã®ã¯ Web Application ã§ã¯ãªã㦠Web API ã§ã‚ã‚‹ã¨ã„ã†äº‹ã§ã€å¯èƒ½ãªé™ã‚Šé€Ÿãレスãƒãƒ³ã‚¹è¿”ã—ãŸã„ã®ã§ä½™è¨ˆãªã“ã¨ã¯ã—ãŸããªã„ã£ã¦ã®ãŒã‚ã‚Šã¾ã™ã€‚ ã¨ã„ã†è¨³ã§ WAF ã¨ã‹è¦ã‚‰ã‚“よãーã£ã¦è¨€ã†è©±ã«ã¤ãªãŒã‚‹è¨³ã§ã™ã€‚一般的㪠Web Application を書ãéš›ã¯ã‚«ã‚¹ã‚¿ãƒ ã§æ›¸ã‹ãªãã¦ã‚‚ WAF ã‹ã‚‰æ›¸ã„ã¦ã‚‚良ã„ã—ã€å¥½ãã«ãŠã‚ŒãŠã‚Œ WAF 作
生 DBI ユーザーã®ãŸã‚ã® DBI Cookbook (5) - æ—¥å‘å¤ç‰¹æ®Šå¿œæ´éƒ¨éšŠ
ã¾ã•ã‹ã®ç¶šç·¨ã§ã™ã‚ˆï½—ï½—ï½— HandleError を使ã£ã¦ã‚ˆã‚Šè©³ã—ã„エラーを得る 今日ã€å¸°ã‚Šã« @myfinder ã•ã‚“ã¨è©±ã—ã¦ã„ã¦ã€syslog-ng ã«åã‹ã‚Œã‚‹ã‚¨ãƒ©ãƒ¼ã§ Too many connection ã¨ã‹ã‚’ã¡ã‚ƒã‚“ã¨ç›£è¦–ã—ã¤ã¤ã‚‚ã€ã‚¨ãƒ©ãƒ¼ãƒ¡ãƒ¼ãƒ«ãƒœãƒ ã«ã‚ˆã£ã¦å¤§äº‹ãªæ€ã„出ãŒæ¶ˆãˆãŸã‚Šã—ãªã„よã†ã«ã—ãŸã„ãー的ãªã“ã¨ã‚’話ã—ã¦ã„ã¦ã€ãã®å ´åˆã¯ã‚¨ãƒ©ãƒ¼ãƒŠãƒ³ãƒãƒ¼ã‚’ãã¡ã‚“ã¨è¨˜éŒ²ã™ã‚‹ã ã®ã€ã‚¨ãƒ©ãƒ¼ãŒèµ·ã“ã£ãŸ DB ã® host åã ã¨ã‹ã§è‰¯ã—ãªã«ã‚¨ãƒ©ãƒ¼é€šçŸ¥é–“隔を制御ã—ãŸã„よãã¨ã€‚ ãã†ã„ã†éš›ã«ã‚„ã£ã±ã‚Š DB ã®ãƒ›ã‚¹ãƒˆåã ã¨ã‹è¿½åŠ æƒ…å ±ãŒã‚¨ãƒ©ãƒ¼æ–‡å—列ã«å…¥ã£ã¦ã‚‹ã¨ä¾¿åˆ©ã ã‚ã†ãªã¨ã„ã†ã“ã¨ã§ã“ã‚“ãªã‚½ãƒªãƒ¥ãƒ¼ã‚·ãƒ§ãƒ³ã¯ã©ã†ã‹ã¨ã€‚ #!/usr/bin/perl use strict; use warnings; use Test::More; use Test::Exception; use Carp; use Dat
DBIx::ProfileManager 㧠SQL Profiling | BLOG - DeNA Engineering
風邪を引ãã£ã±ãªã—ã§å…¨ç„¶æ²»ã‚‰ãªã„å±±å£ã§ã™ã€‚æらããƒãƒƒãƒˆä¸Šã§ã¯ zigorou ã¨è¨€ã†ãƒãƒ³ãƒ‰ãƒ«ã§ã”å˜çŸ¥ã®æ–¹ã‚‚ã„らã£ã—ゃるã‹ã‚‚ã—ã‚Œã¾ã›ã‚“。 ã¾ãšã¯æŠ€è¡“ç³»ã®ãƒã‚¿ã®ç¬¬1å¼¾ã§ã™ã€‚ 今回ã¯å®Ÿéš›ã«ãƒ¢ãƒã‚²ãƒ¼ã‚ªãƒ¼ãƒ—ンプラットフォームã§ç”¨ã„ã¦ã„ã‚‹ SQL Profiling ã®æ–¹æ³•ã‚’ã”紹介致ã—ã¾ã™ã€‚ DBI::Profile ã«ã¤ã„㦠モãƒã‚²ãƒ¼ã‚¿ã‚¦ãƒ³ ã§ã¯ãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹ã¯ MySQL を用ã„ã¦ãŠã‚Šã€ã‚µãƒ¼ãƒãƒ¼ã‚µã‚¤ãƒ‰ãƒ—ãƒã‚°ãƒ©ãƒ ã‹ã‚‰ç®¡ç†ãƒ„ールã¾ã§ã®ã»ã¨ã‚“ã©ãŒ Perl ã§æ›¸ã‹ã‚Œã¦ãŠã‚Šã€ 当然ãªãŒã‚‰ DBI モジュールã¾ãŸã¯ãれを利用ã—ãŸãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’使ã£ã¦ DB アクセスをã—ã¦ã„ã¾ã™ã€‚ 今回ã€ã‚ªãƒ¼ãƒ—ンプラットフォームãƒãƒ¼ãƒ ã§ä½œã£ãŸ OpenSocial RESTful API ã§ã™ãŒã€ãƒ¢ãƒã‚²ãƒ¼ã‚¿ã‚¦ãƒ³å†…ã®ãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹ã«å¤§é‡ã«ã‚¢ã‚¯ã‚»ã‚¹ã™ã‚‹ç‚ºã«æ—¥ã€…ã©ã®ã‚ˆã†ãªã‚¯ã‚¨ãƒªãŒå®Ÿè¡Œã•ã‚Œã€ã©ã‚Œãらã„ã®å®Ÿè¡Œæ™‚é–“ãŒæŽ›ã‹ã£ã¦ã„ã‚‹ã‹ã¯å¸¸ã«æ°—ã«ãªã‚‹
oinume journal
Raycastを使ã„始ã‚ã¦1年経ã£ãŸã®ã§ã€ã©ã†ã„ã†ã“ã¨ã«ä½¿ã£ã¦ã„ã‚‹ã‹ã‚’振り返ã£ã¦ã¿ã‚‹ã€‚去年書ã„㟠Alfredã‹ã‚‰Raycastã«ç§»è¡Œã—㟠- oinume journal ã®è¨˜äº‹ã‹ã‚‰å°‘ã—使ã„æ–¹ãŒå¤‰ã‚ã£ã¦ã„ã‚‹ã¨ã“ã‚ã‚‚ã‚ã‚‹ã®ã§ãƒ¡ãƒ¢ãŒã¦ã‚‰ã€‚ 基本的ãªä½¿ã„æ–¹ Cmd + Qã‚’Raycastèµ·å‹•ã®ã‚·ãƒ§ãƒ¼ãƒˆã‚«ãƒƒãƒˆã¨ã—ã¦å‰²ã‚Šå½“ã¦ã¦ã„る。Pro版ã¯ä½¿ã£ã¦ã„ãªã„ã®ã§AI機能ãªã©ã¯ä½¿ã£ãŸã“ã¨ãŒãªã„。 ブラウザã®ãƒ–ックマーク検索ãªã©ã€ã‚ˆã使ã†ã‘ã©HotKeyを割り当ã¦ã‚‹ã»ã©ã§ã‚‚ãªã„Raycastコマンドã¯bmã®ã‚ˆã†ã«Aliasã‚’è¨å®šã—ã¦ã„る。 Cmd + Qã§Raycastã‚’èµ·å‹•ã—ã¦bmã¨å…¥åŠ›ã™ã‚‹ã¨ãƒ–ックマークã®æ¤œç´¢ãŒã§ãã‚‹ã®ã§æ¥½ã¡ã‚“ アプリケーションランãƒãƒ£ãƒ¼æ©Ÿèƒ½ アプリケーションを起動ã™ã‚‹ã¨ãã®ãƒ©ãƒ³ãƒãƒ£ãƒ¼ã¨ã—ã¦ä½¿ã£ã¦ã„る。よã使ã†ã‚¢ãƒ—リã«ã¯Hot Key(ショートカット)を割り当ã¦ã¦ã‚‹ã€‚ Clipboar
生 DBI ユーザーã®ãŸã‚ã® DBI Cookbook (4) - æ—¥å‘å¤ç‰¹æ®Šå¿œæ´éƒ¨éšŠ
ã•ã¦ã¨ã€ãƒ¢ãƒã‚²ãƒ¼ã‚ªãƒ¼ãƒ—ンプラットフォームãŒå…ˆæ—¥ã‚„ã£ã¨å§‹ã¾ã‚Šã¾ã—ãŸï¼¾ï¼¾ ã¿ãªã•ã‚“是éžéŠã‚“ã§ä¸‹ã•ã„ã§ã™ã€‚ d:id:ZIGOROu:20091125:1259163476 ã®ã•ã‚‰ã«ç¶šç·¨ã§ã™ã€‚ ShowErrorStatement ã§ã‚¨ãƒ©ãƒ¼æ™‚ã«ç™ºè¡Œã•ã‚Œã¦ã„ãŸã‚¯ã‚¨ãƒªã‚’表示ã™ã‚‹ #!/usr/bin/perl use Carp; use DBI; my $dbh; eval { $dbh = DBI->connect("dbi:mysql:db=test;host=localhost", "root", "", +{ RaiseError => 1, AutoCommit => 0, ShowErrorStatement => 1, PrintWarn => 0, PrintError => 0, }) or croak($DBI::errstr); $dbh->selectall_arrayref
生 DBI ユーザーã®ãŸã‚ã® DBI Cookbook (3) - æ—¥å‘å¤ç‰¹æ®Šå¿œæ´éƒ¨éšŠ
d:id:ZIGOROu:20090814:1250262134 ã®ã•ã‚‰ã«ç¶šç·¨ã§ã™ã€‚ ç¾åœ¨æŽ¥ç¶šã—ã¦ã„ã‚‹ dbh å…¨ã¦ã‚’ disconnect ã—ãŸã„å ´åˆ use strict; use warnings; use DBI; ### ãªã‚“ã‹ã„ã£ã±ã„接続ã—ãŸã‚Šã¨ã‹ã™ã‚‹ my %drhs = DBI->installed_drivers; for my $drh ( values %drhs ) { for my $dbh (@{$drh->{ChildHandles}}) { eval { $dbh->disconnect; }; } } ã“ã‚“ãªæ„Ÿã˜ã€‚永続環境ã§1リクエストをã•ã°ã間㯠DBI->connect_cached() ã§æŽ¥ç¶šã™ã‚‹ã¨ã—ã¦ã€ãれらを最後ã«æ˜Žç¤ºçš„ã« disconnect ã™ã‚‹ã¨ã‹ã§ä½¿ãˆã‚‹ã¨æ€ã†ã€‚ SEE ALSO 生 DBI ユーザーã®ãŸã‚ã® DBI Cookbook (
myfinder's blog: DBIx::Encodingã¨ã„ã†ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’書ã„ãŸ
YAPCãŠã¤ã‹ã‚Œã•ã¾ã§ã—ãŸã€‚YAPCä¸ã€ä»Šã¾ã•ã«èª²é¡Œã«ãªã£ã¦ã„ã‚‹DB周りã®å•é¡Œã‚’解消ã™ã¹ãDBIx::Encodingã¨ã„ã†ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’書ãã¾ã—ãŸã€‚ã“ã®DBIx::Encodingã¯DBIã®ã‚µãƒ–クラスã§ã€executeã¨fetchã®éš›ã«æŒ‡å®šã—ãŸæ–‡å—コードã§encode/decodeã—ã¦ãれるもã®ã§ã™ã€‚ãã‚‚ãã‚‚DBã®æ–‡å—コードè¨å®šãŒUTF8ãªã‚‰ä½™ã‚Šæ‚©ã‚€ã“ã¨ã‚‚ãªã„ã®ã§ã™ãŒã€ä¸–ã®ä¸ã„ã‚ã„ã‚ã¨äº‹æƒ…ãŒã‚ã£ã¦DBå´ã‚’変更ã§ããªã„事も多ã„ã§ã—ょã†ã€‚ãã‚“ãªã¨ãã«ã“ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’使ã†ã¨ã€DBIå´ã§æ–‡å—コードをencodeã—ã¦insert/updateã—ã¦ãã‚Œã€selectã—ãŸã¨ãã«ã¯utf8 flagを有効ã«ã—ãŸæ–‡å—列を返ã—ã¦ãã‚Œã¾ã™ã€‚使ã„æ–¹ã¯SYNOPSISã«ã‚‚ã‚ã‚Šã¾ã™ãŒã€ä¸‹è¨˜ã®é€šã‚Šmy @dsn = ( 'dbi:mysql:host=localhost;database=mysql;
生 DBI ユーザーã®ãŸã‚ã® DBI Cookbook (2) - æ—¥å‘å¤ç‰¹æ®Šå¿œæ´éƒ¨éšŠ
ã•ã¦ã€ã¾ã•ã‹ç¶šç·¨æ›¸ãã¨æ€ã‚ãªã‹ã£ãŸã‘ã©ã€d:id:ZIGOROu:20090731:1249050735 ã®ç¶šãã§ã™ã€‚ 追記 (2009-08-15T00:30:56+09:00) ã¡ãªã¿ã«ã€ä¸‹è¨˜ã§ç´¹ä»‹ã—ã¦ã‚‹æ–¹æ³•ã¯ä¸€èˆ¬çš„ã«ã¯ DBI ã®è³‡ç”£ãŒãŸãã•ã‚“åˆã£ã¦ãƒ¢ã‚´ãƒ¢ã‚´ãªçŠ¶æ³ã‚’ã©ã†ã™ã‚‹ã‹â€¦ã¿ãŸã„ãªçŠ¶æ³ã®äººå‘ã‘ã§ã™ã€‚ 一般的ã«ã¯å®œã—ããªã„ã§ã™ã€ã¨è¨€ã†ã“ã¨ã‚’è¸ã¾ãˆã¦ã©ã†ãžã€‚ DBI ã®æ‹¡å¼µã‚’サブクラスを用ã„ã¦è¡Œã† Subclassing the DBI ã«ã¡ã‚ƒã‚“ã¨æ›¸ã„ã¦ã‚ã‚‹ã‚“ã§ã™ãŒã€DBI ã¯ã‚µãƒ–クラスを作る為ã®ç’°å¢ƒãŒæ•´ã£ã¦ã„ã¾ã™ã€‚ è«–ã‚ˆã‚Šè¨¼æ‹ ã€å®Ÿéš›ã®ä¾‹ã§ã™ã€‚ #!/usr/bin/perl use strict; use warnings; use DBI; use YAML; { package DBIx::Hideki; use base qw(DBI); package DBIx::Hide
生 DBI ユーザーã®ãŸã‚ã® DBI Cookbook (1) - Yet Another Hackadelic
ã¡ã‚‡ã£ã¨å‰ã¾ã§ DBI ã§éžåŒæœŸã‚¢ã‚¯ã‚»ã‚¹ãªã‚¨ãƒ³ãƒˆãƒªãŒå„所ã§ä¸ŠãŒã£ã¦ã„ã¾ã—ãŸãŒçš†ã•ã‚“如何ãŠéŽã”ã—ã§ã—ょã†ã‹ï¼Ÿ ã•ã¦ã¨ã€ã€ã€æ´å²çš„ãªçµŒç·¯ã¨ã‹æ´å²çš„ãªçµŒç·¯ã¨ã‹ã§ç”Ÿ DBI 相当を使ã£ã¦ã‚‹æ–¹ã‚‚ãã‚Œãªã‚Šã«ã„ã‚‹ã§ã—ょã†ã€‚奥ã•ã‚“ã€å¤§äº‹ãªäº‹ãªã‚“ã§äºŒåº¦è¨€ã„ã¾ã—ãŸã‚ˆï¼ DBI ã®ã‚¤ãƒ³ã‚¿ãƒ¼ãƒ•ã‚§ãƒ¼ã‚¹ã£ã¦ã¾ããã‚“ãªä½¿ã„ã‚„ã™ã„物ã˜ã‚ƒãªã„ã‚“ã§ã™ãŒã€å·¥å¤«æ¬¡ç¬¬ã§å‡ºæ¥ã‚‹äº‹ã‚‚ã‚ã‚Šã¾ã™ã€‚ ã¡ãªã¿ã«ã‚µãƒ³ãƒ—ルデータベースã¨ã—ã¦ã€MySQL Documentation - Example Databases ã® world データベースを使ã£ã¦ã„ã¾ã™ã€‚ fetchall_arrayref ã§ãƒ‡ãƒ¼ã‚¿æ•´å½¢ ã¾ãšä»¥ä¸‹ã®ã‚ˆã†ã«ä½¿ã£ã¦ã¿ã¾ã™ã€‚ #!/usr/bin/perl use strict; use warnings; use Data::Dump qw(dump); use DBI; use Perl6::Say; my $dbh =
ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®çµ‚了日を2020å¹´1月31æ—¥(金)ã«æ±ºå®šã—ã¾ã—㟠- ã¯ã¦ãªã®å‘ŠçŸ¥
ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®çµ‚了日を2020å¹´1月31æ—¥(金)ã«æ±ºå®šã—ã¾ã—㟠以下ã®ã‚¨ãƒ³ãƒˆãƒªã®é€šã‚Šã€ä»Šå¹´æœ«ã‚’目処ã«ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—を終了予定ã§ã‚る旨をãŠçŸ¥ã‚‰ã›ã—ã¦ãŠã‚Šã¾ã—ãŸã€‚ 2019年末を目処ã«ã€ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®æ供を終了ã™ã‚‹äºˆå®šã§ã™ - ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—日記 ã“ã®ãŸã³ã€æ£å¼ã«çµ‚了日を決定ã„ãŸã—ã¾ã—ãŸã®ã§ã€ä»¥ä¸‹ã®é€šã‚Šã”確èªãã ã•ã„。 終了日: 2020å¹´1月31æ—¥(金) エクスãƒãƒ¼ãƒˆå¸Œæœ›ç”³è«‹æœŸé™:2020å¹´1月31æ—¥(金) 終了日以é™ã¯ã€ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®é–²è¦§ãŠã‚ˆã³æŠ•ç¨¿ã¯è¡Œãˆã¾ã›ã‚“。日記ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆãŒå¿…è¦ãªæ–¹ã¯ä»¥ä¸‹ã®è¨˜äº‹ã«ã—ãŸãŒã£ã¦æ‰‹ç¶šãã‚’ã—ã¦ãã ã•ã„。 ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã«æŠ•ç¨¿ã•ã‚ŒãŸæ—¥è¨˜ãƒ‡ãƒ¼ã‚¿ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆã«ã¤ã„㦠- ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—日記 ã”利用ã®ã¿ãªã•ã¾ã«ã¯ã”迷惑をãŠã‹ã‘ã„ãŸã—ã¾ã™ãŒã€ã©ã†ãžã‚ˆã‚ã—ããŠé¡˜ã„ã„ãŸã—ã¾ã™ã€‚ 2020-06-25 追記 ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—日記ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆãƒ‡ãƒ¼ã‚¿ã¯2020å¹´2月28
Mint's log: London Perl Workshopメモãã®2：DBD::Gofer: A Scalable Stateless DBI Proxy. For SOA and more!（DBD::Goferã¯ã‚¹ã‚±ãƒ¼ãƒ©ãƒ–ルã§ã‚¹ãƒ†ãƒ¼ãƒˆãƒ¬ã‚¹ãªDBIプãƒã‚シ）
2008å¹´1月23æ—¥ London Perl Workshopメモãã®2：DBD::Gofer: A Scalable Stateless DBI Proxy. For SOA and more!（DBD::Goferã¯ã‚¹ã‚±ãƒ¼ãƒ©ãƒ–ルã§ã‚¹ãƒ†ãƒ¼ãƒˆãƒ¬ã‚¹ãªDBIプãƒã‚シ） DBD::Goferã¯DBD::Proxyã¨åŒã˜ã‚ˆã†ã«å‹•ã。大ããªé•ã„ã¯DBD::GoferãŒã‚¹ãƒ†ãƒ¼ãƒˆãƒ¬ã‚¹ã€ã¤ã¾ã‚Šå¯¾è±¡ã¨ã®æŽ¥ç¶šçŠ¶æ…‹ã‚’ç¶æŒã—ãªã„ã¨ã„ã†ã“ã¨ã§ã‚る。å‰å›žã®ã‚¹ãƒ†ãƒ¼ãƒˆãŒå¿…è¦ãªã¨ãã«ã¯ã€å¿…è¦ãªæƒ…å ±ã‚’å†é€ã™ã‚‹ã€‚使ã†ã«ã¯DSNã®ã®æœ€åˆã«ã€Œdbi:Gofer:transport=;ã€ã¨ã™ã‚Œã°ã„ã„ãŒã€ãŠã™ã™ã‚ã¯ç’°å¢ƒå¤‰æ•°DBI_AUTOPROXYã‚’è¨å®šã™ã‚‹ã“ã¨ã€‚ãã†ã™ã‚Œã°ã‚³ãƒ¼ãƒ‰ã®å¤‰æ›´ã‚’ã¾ã£ãŸãã›ãšã«DBI::GoferãŒä½¿ãˆã‚‹ã€‚サãƒãƒ¼ãƒˆã—ã¦ã„るトランスãƒãƒ¼ãƒˆã¯nullã€sshã€httpãªã©ã«åŠ ãˆGearmanã‚‚ã‚る。SSHを使ã£ã¦ã„
DBD::Oracle - DBIモジュールã®ãŸã‚ã®Oracleデータベース・ドライム- perldoc.jp
åå‰Â¶ DBD::Oracle - DBIモジュールã®ãŸã‚ã®Oracleデータベース・ドライム概è¦Â¶ use DBI; $dbh = DBI->connect("dbi:Oracle:$dbname", $user, $passwd); $dbh = DBI->connect("dbi:Oracle:host=$host;sid=$sid", $user, $passwd); # 完全ãªè©³ç´°ã«ã¤ã„ã¦ã¯ã€DBIモジュールã®ãƒ‰ã‚ュメントをã”覧下ã•ã„。 # Oracleã®åž‹ã®å€¤ãŒå¿…è¦ã‹ã‚‚ã—ã‚Œãªã„ã¨ãã®ã‚ˆã‚Šé«˜åº¦ãªå½¢å¼ï¼š use DBD::Oracle qw(:ora_types); 説明¶ DBD::Oracleã¯DBIモジュールã¨ä¸€ç·’ã«æ©Ÿèƒ½ã—ã€Oracleデータベース（version7ã¨8ã®ä¸¡æ–¹ï¼‰ã¸ã® アクセスをæä¾›ã™ã‚‹Perlモジュールã§ã™ã€‚ Oracleã¸ã®æŽ¥ç¶šÂ¶ ã“ã‚Œã¯ã‚ˆãå•é¡Œã‚’èµ·ã“ã™ãƒˆ
DBI recipes
Clear questions and runnable code get the best and fastest answer Programming with the DBI becomes a matter of habit. You may choose to code directly with the DBI rather than using on of the many wrappers available on CPAN because of efficiency concerns, or because you are dealing with legacy code, or simply because you want to have a grip at the core of things. Whichever reason for using the DBI
Class::DBI関連モジュール : blog.nomadscafe.jp
Class::DBI関連モジュール ã„ã¾ä½œã£ã¦ã„ã‚‹Webアプリã§ã€Class:DBIã‚’ã¯ã˜ã‚ã¦ãã¡ã‚“ã¨ä½¿ã£ãŸã€‚ ã„ã‚ã„ã‚ã¨Pluginを使ã£ãŸã®ã§ãƒ¡ãƒ¢ã€‚ ベースクラスã«ã¯ã€ package Object; use strict; use base qw(Class::DBI::mysql); use Class::DBI::AbstractSearch; use Class::DBI::Plugin::NoCache; use Class::DBI::Plugin::AbstractCount; use Class::DBI::Plugin::RetrieveAll; use Class::DBI::Plugin::Iterator qw(prefetch=>10); use Class::DBI::Pager; __PACKAGE__->nocache(1); __PACKAGE__->
1
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
j次ã®ãƒ–ックマーク
kå‰ã®ãƒ–ックマーク
lã‚ã¨ã§èªã‚€
eコメント一覧を開ã
oページを開ã
725640’s gists
SQL-Interp-1.27
{{#tags}}- {{label}}
{{/tags}}