[B! perl][dbi] issmã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

issm id:issm

perlã¨dbiã«é–¢ã™ã‚‹issmã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ (30)

${{author_name}}$

{{{comment_expanded}}}

{{label}}

{{#is_bookmark}}ãƒªã‚¹ãƒˆ{{/is_bookmark}}{{^is_bookmark}}ãƒªãƒ³ã‚¯{{/is_bookmark}}

${{author_name}}$
{{author_name}}{{created}}
{{ #comment }}{{ comment }}{{ /comment }}
- {{ label }}

${{author_name}}$

{{{comment_expanded}}}

{{label}}

{{#is_bookmark}}ãƒªã‚¹ãƒˆ{{/is_bookmark}}{{^is_bookmark}}ãƒªãƒ³ã‚¯{{/is_bookmark}}

DBI->connectã®ç¬¬4å¼•æ•°ã®å†…å®¹ã¯è¨å®šãƒ•ã‚¡ã‚¤ãƒ«ã«æ›¸ã‹ãªã„ã»ã†ãŒè‰¯ã„ | ãŠãã‚‰ãã¯ãã‚Œã•ãˆã‚‚å¹³å‡¡ãªæ—¥ã€…
Perlã§ãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹ã«æŽ¥ç¶šã™ã‚‹å ´åˆã¯ä»¥ä¸‹ã®æ§˜ãªæ„Ÿã˜ã«ãªã‚Šã¾ã™ã€‚ã©ã‚“ãªORMãªã‚Šãƒ©ãƒƒãƒ‘ãƒ¼ãªã‚Šã‚‚DBIã‚’åˆ©ç”¨ã—ã¦ã„ã‚‹ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã¯å†…éƒ¨çš„ã«ã¯ã“ã†ã„ã†ã“ã¨ã‚’ã—ã¦ã„ã‚‹ã‚ã‘ã§ã™ã€‚ DBI->connect($dsn, $user, $password, { mysql_enable_utf8 => 1, RaiseError => 1, PrintError => 0, ShowErrorStatement => 1, AutoInactiveDestroy => 1, }); ç¬¬1ã€œç¬¬3å¼•æ•°ã¯ç’°å¢ƒã«ã‚ˆã£ã¦å·®ç•°ãŒã‚ã‚‹ã®ã§è¨å®šãƒ•ã‚¡ã‚¤ãƒ«ã«æƒ…å ±ã‚’æŒãŸã›ã‚‹ã¨æ€ã„ã¾ã™ã€‚ãŸã ã€ãã‚Œã«ã¤ã‚‰ã‚Œã¦ç¬¬4å¼•æ•°ã‚‚è¨å®šãƒ•ã‚¡ã‚¤ãƒ«ã«æ›¸ã„ã¦ã—ã¾ã†ã®ãŒæ•£è¦‹ã•ã‚Œã¾ã™ãŒã€ã“ã‚Œã¯è‰¯ããªã„ã€‚ ç¬¬4å¼•æ•°ã®å€¤ã¯ãƒ—ãƒã‚¸ã‚§ã‚¯ãƒˆã§ã¯å›ºå®šã«æ±ºã¾ã£ã¦ã„ã‚‹ã®ã§ã€è¨å®šãƒ•ã‚¡ã‚¤ãƒ«ã«ã‚ˆã£ã¦è‡ªç”±åº¦ã‚’æŒãŸã›ã‚‹å¿…è¦æ€§ãŒå…¨ãç„¡ã„ã¨ã„ã†ã‹ã‚€ã—ã‚æ‚ªã€‚ã“ã®äººã®ç’°å¢ƒã§ã¯ãƒ†ã‚¹ãƒˆã«é€š
issm 2014/03/03
dbi

perl

db
ãƒªãƒ³ã‚¯
prepare() and/or prepare_cached()
issm 2014/01/09
dbi

perl
ãƒªãƒ³ã‚¯
dbi: prepare vs prepare_cached -- which is best ?
issm 2013/11/13
perl

dbi
ãƒªãƒ³ã‚¯
DBD::mysqlã®DBI->connect()ã§å°‘ã—åµŒã‚‹ - é–‹ç™ºã‚ã‚‚ï¼’
ç’°å¢ƒ ubuntu lampp perl DBI DBD::mysql perlã§ DBI->connect()ã—ã‚ˆã†ã¨ã—ãŸã‚‰ failed: Can't connect to local MySQL server through socket '/var/run/mysqld/mysqld.sock' (2) at insert.pl line 11 ã¨ã„ã†ã‚ˆã†ãªã‚¨ãƒ©ãƒ¼ãŒç™ºç”Ÿã—ã¦è»½ãã¤ã¾ã£ãŸã€‚ å¤šãã®äººãŒ ã€ŒDBIã§Can't connect to local MySQL server through socket '/tmp/mysql.sock'ã€ http://diary.lampetty.net/20060926.html ã«ã¦è§£æ±ºã—ã¦ã‚‹ãŒã€è‡ªåˆ†ã¯ãƒ€ãƒ¡ã ã£ãŸã€‚ my.cnfã‚’æ›¸ãç›´ã—ã¦ã‚‚ã€ perlã®å‡ºåŠ›ã™ã‚‹ã‚¨ãƒ©ãƒ¼ã¯ä¾ç„¶ã¨ã—ã¦ failed: Can't connect to l
issm 2013/10/19
dbi

mysql

perl
ãƒªãƒ³ã‚¯
DBI-tip: Private State Variables : D-7 <altijd in beweging>
ä¸»ã«è‡ªåˆ†ç”¨ãƒ¡ãƒ¢ã€‚ä¾‹ãˆã°ä»¥ä¸‹ã®ã‚ˆã†ãªã‚³ãƒ¼ãƒ‰ã‹ã‚‰DBIãƒãƒ³ãƒ‰ãƒ«ã‚’å–å¾—ã—ã¦ã‚‹ã¨ã™ã‚‹ use strict; use DBI; sub get_dbh { DBI->connect_cached(....); } sub foo { my $dbh = get_dbh(); $dbh->do(...); } sub bar { my $dbh = get_dbh(); $dbh->do(...); } foo(); bar(); .... ã§ã€ã¾ãSET NAMES utf8ã‚’è‡ªå‹•çš„ã«ç™ºè¡Œã—ãŸã„ãªãƒ¼ã¨æ€ã£ãŸã®ã§ã€get_dbhã«æ‰‹ã‚’å…¥ã‚Œã‚‹ sub get_dbh { my $dbh = DBI->connect_cached(...); $dbh->do("SET NAMES 'utf8'"); return $dbh; } ãã†ã™ã‚‹ã¨get_dbh()å†…ã§ DBIãƒãƒ³ãƒ‰ãƒ«è‡ªä½“ã¯connect_c
issm 2013/08/27
dbi

perl
ãƒªãƒ³ã‚¯
DBIã®ãƒ—ãƒ¬ãƒ¼ã‚¹ãƒ›ãƒ«ãƒ€ãƒ¼ã§èµ·ã“ã£ãŸè¬ŽãªæŒ™å‹• - $shibayu36->blog;
å…ˆæ—¥DBIã‚’ä½¿ã£ã¦ã„ã¦ã€è¬ŽãªæŒ™å‹•ã«éé‡ã—ãŸã®ã§æ›¸ã„ã¦ã¿ã‚‹ã€‚LIMIT, OFFSETå¥ã§ãƒ—ãƒ¬ãƒ¼ã‚¹ãƒ›ãƒ«ãƒ€ãƒ¼ã‚’ç”¨ã„ãŸæ™‚ã«èµ·ã“ã£ãŸã€‚DBI + DBD::mysqlã‚’ä½¿ã£ã¦ã„ãŸã€‚ DBI: 1.616 DBD::mysql: 4.022 LIMITã¨OFFSETã‚’ä¸¡æ–¹ã«ãƒ—ãƒ¬ãƒ¼ã‚¹ãƒ›ãƒ«ãƒ€ãƒ¼ã‚’ä½¿ã† LIMITã¨OFFSETã‚’ä¸¡æ–¹ã‚’?ã«ã™ã‚‹ã®ã¯ã†ã¾ãã„ãã€‚ $res = $dbh->prepare_cached(q[ SELECT * FROM user WHERE name = ? LIMIT ? OFFSET ? ])->execute('shiba_yu36', 1, 1); LIMITã®ã¿ãƒ—ãƒ¬ãƒ¼ã‚¹ãƒ›ãƒ«ãƒ€ãƒ¼ LIMITã®ã¿?ã§ã‚‚ã†ã¾ãã„ãã€‚ $res = $dbh->prepare_cached(q[ SELECT * FROM user WHERE name = ? LIMIT ? OFFSET
issm 2013/03/04
dbi

perl

mysql
ãƒªãƒ³ã‚¯
DBIx::Tracerã‚’ä½¿ã£ã¦æµã‚Œã¦ã„ã‚‹SQLã®ãƒ†ã‚¹ãƒˆã‚’ã—ã¦ã¿ãŸè©± - $shibayu36->blog;
DBIx::QueryLogã‚’ä½¿ã£ã¦ã¡ã‚ƒã‚“ã¨SQLãŒæµã‚Œã¦ã„ã‚‹ã‹ãƒ†ã‚¹ãƒˆã™ã‚‹ - $shibayu36->blog;ã§ã€æµã‚Œã¦ã„ã‚‹SQLã‚’ãƒ†ã‚¹ãƒˆã—ãŸã„ã¨è¨€ã†è©±ã‚’ã—ãŸã‚‰ã€tokuhiromã•ã‚“ã«DBIx::Tracerã‚’ä½¿ãˆã°ã‚‚ã†å°‘ã—ã‚·ãƒ³ãƒ—ãƒ«ã«ã‹ã‘ã‚‹ã¨è¨€ã‚ã‚ŒãŸã®ã§ã€ã‚„ã£ã¦ã¿ã¾ã—ãŸã€‚ (å†æŽ²) ãƒ†ã‚¹ãƒˆã—ãŸã„çŠ¶æ³ package My::DBI; use strict; use warnings; use DBI; sub connect { my ($dsn, $username, $password) = @_; my $dbh = DBI->connect($dsn, $username, $password, { Callbacks => { connected => sub { my $dbh = shift; $dbh->do("SET NAMES utf8") or warn $db
issm 2013/01/22
perl

dbi

dbix-tracer
ãƒªãƒ³ã‚¯
DBIã®connect_cachedã®ã„ã‚ã„ã‚ - $shibayu36->blog;
æœ€è¿‘DBã¸ã®æŽ¥ç¶šã‚’ãƒªã‚¯ã‚¨ã‚¹ãƒˆå˜ä½ã§ã¯ãªããƒªã‚¯ã‚¨ã‚¹ãƒˆã‚’å‡¦ç†ã™ã‚‹ãƒ—ãƒã‚»ã‚¹å˜ä½(Starmanã®workerãƒ—ãƒã‚»ã‚¹å˜ä½)ã§ã‚ãƒ£ãƒƒã‚·ãƒ¥ã—ãŸã„ã¨ã„ã†ã“ã¨ãŒã‚ã£ã¦ã€DBIã®connect_cachedã‚’ä½¿ã†ã“ã¨ã«ãªã£ãŸã€‚Scope::Container::DBIã§ã‚‚ã‚‚ã—ã‹ã—ãŸã‚‰å‡ºæ¥ã‚‹ã®ã‹ã‚‚ã—ã‚Œãªã„ã‘ã©ã€ã¨ã‚Šã‚ãˆãšconnect_cachedã§å®Ÿè£…ã—ãŸã€‚ãã“ã§ã„ã‚ã„ã‚ã¯ã¾ã£ãŸã®ã§ãƒ¡ãƒ¢ã€‚ connect_cachedã«ã¤ã„ã¦ perldocã« connect_cached is like "connect", except that the database handle returned is also stored in a hash associated with the given parameters. If another call is made to connect_cached wit
issm 2013/01/11
perl

db

dbi

process

fork
ãƒªãƒ³ã‚¯
DBI->connect æ™‚ã«ä½¿ã†é‰„æ¿ã‚ªãƒ—ã‚·ãƒ§ãƒ³ã‚’æ•™ãˆã¦ï¼ - blog.nomadscafe.jp
perlã§ãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹ã‚’ä½¿ã†æ™‚ã«èª°ã‚‚ãŒå¿…ãšä½¿ã†DBIã€‚ãã®æŽ¥ç¶šæ™‚ã«ä½¿ã†connectãƒ¡ã‚½ãƒƒãƒ‰ã®ç¬¬4å¼•æ•°ã«è¨å®šã—ã¦ã„ã‚‹ã‚ªãƒ—ã‚·ãƒ§ãƒ³ãŒã‚µãƒ¼ãƒ“ã‚¹ã«ã‚ˆã‚Šã¾ã¡ã¾ã¡ãªã‚“ã ã‘ã©ã€ã ã‚Œã‹é‰„æ¿è¨å®šã‚’æ•™ãˆã¦ãã ã•ã„ã€‚ åƒ•ãŒä½¿ã†ã®ãŒã€ my $dbh = DBI->connect($dsn, $user, $password, { AutoCommit => 1, PrintError => 0, RaiseError => 1, ShowErrorStatement => 1, AutoInactiveDestroy => 1, }); ã“ã‚Œã€‚ åŠ ãˆã¦ã€mysqlã§ã‚ã‚Œã° mysql_enable_utf8 => 1 mysql_auto_reconnect => 0, SQLiteã ã¨ sqlite_unicode => 1 sqlite_use_immediate_transaction => 1 ã‚’è¿½åŠ ã—
issm 2012/11/27
dbi

perl

db

mysql

sqlite
ãƒªãƒ³ã‚¯
DBIx::TransactionManager ã®ç›®çš„ã¨ã€ãã®ä½¿ç”¨æ³•ã«ã¤ã„ã¦ - tokuhirom's blog
ãŠã¯ã‚ˆã†ã”ã–ã„ã¾ã™ã€‚ DBI ã§ã¯å½“ãŸã‚Šå‰ã®ã‚ˆã†ã« $dbh->do('BEGIN') ã¨ $dbh->do('COMMIT') ã‚’ã¤ã‹ãˆã°ãƒˆãƒ©ãƒ³ã‚¶ã‚¯ã‚·ãƒ§ãƒ³ãŒã¤ã‹ãˆã‚‹ã‚ã‘ã§ã™ãŒã€ãªãœ DBIx::TransactionManager ã®ã‚ˆã†ãªã‚‚ã®ãŒå¿…è¦ã«ãªã£ãŸã®ã§ã—ã‚‡ã†ã‹ã€‚ ãã‚Œã¯å‹¿è«–ã€DBI ã§ç›´æŽ¥ transaction ã‚’ã¨ã‚Šã‚ã¤ã‹ã†ã¨å•é¡ŒãŒç™ºç”Ÿã™ã‚‹ã‚±ãƒ¼ã‚¹ãŒå˜åœ¨ã™ã‚‹ã‹ã‚‰ã§ã™ã€‚ ãƒˆãƒ©ãƒ³ã‚¶ã‚¯ã‚·ãƒ§ãƒ³ã¨ RAIIä¸€ç•ªãŠãŠãã„ã®ã¯ã€ãƒˆãƒ©ãƒ³ã‚¶ã‚¯ã‚·ãƒ§ãƒ³ãŒä¸é€”åŠç«¯ãªçŠ¶æ…‹ã«ãªã£ã¦ã—ã¾ã†ã“ã¨ã‚’é˜»æ¢ã™ã‚‹ã“ã¨ã§ã™ã€‚ãŸã¨ãˆã°ã€ä»¥ä¸‹ã®ã‚ˆã†ãªã‚±ãƒ¼ã‚¹ã§ã¯ã€ãŠã‹ã—ãªã“ã¨ã«ãªã£ã¦ã—ã¾ã„ã¾ã™ã€‚ my $dbh = DBI->connect(...); for (@stuff) { eval { $dbh->do("BEGIN"); $dbh->do(q{INSERT INTO t1 (v) VALUES (?)}, $_
issm 2012/10/22
dbi

dbix-transactionmanager

db

transaction

perl
ãƒªãƒ³ã‚¯
DBIã‚’ä½¿ã£ã¦schemaã‚’ã‚³ãƒ”ãƒ¼ã™ã‚‹ - $shibayu36->blog;
mysqladminã¨ã‹ã‚’ä½¿ã£ã¦ã‚‚è‰¯ã„ã®ã§ã™ãŒã€ãªã‚“ã¨ãªãDBIã‚’ä½¿ã£ã¦å…¨éƒ¨å®Œçµã•ã›ã¦ã¿ãŸã€‚ã“ã‚“ãªæ„Ÿã˜ã®æ™®é€šã«ä»–ã«ã‚ã‚‹ã¨ã¯æ€ã†ã‘ã©ã€ã¾ã‚å†å®Ÿè£…ã¿ãŸã„ãªæ„Ÿã˜ã§ã€‚
issm 2012/03/29
dbi

perl
ãƒªãƒ³ã‚¯
Big Sky :: Vimã§DBãŒæ“ä½œã§ãã‚‹ vdbi-vim ä½œã£ãŸã€‚
DBæ“ä½œãƒ„ãƒ¼ãƒ« Emacs DBI ã‚’ä½œã£ã¦ã¿ãŸ - æŠ€è¡“æ—¥è¨˜ï¼ kiwanami ã“ã®ãƒ„ãƒ¼ãƒ«ã®ç›®çš„ã¯ã€ã‚¯ãƒã‚¹ãƒ—ãƒ©ãƒƒãƒˆãƒ•ã‚©ãƒ¼ãƒ ã§ä¾¿åˆ©ãªDBæ“ä½œç’°å¢ƒã‚’å®Ÿç¾ã™ã‚‹ã“ã¨ã§ã™ã€‚ pgAdmin ã‚„ MySQL Query Browser ã®ã‚ˆã†ãªGUIã®è‰¯ã•ã‚’CUIã§å®Ÿç¾ã—ã¦ã¿ã‚ˆã†ã¨ã—ã¦ã¿ã¾ã—ãŸã€‚ã™ãªã‚ã¡ã€ã¼ãã®ã‹ã‚“ãŒãˆãŸã•ã„ãã‚‡ã†ã®DBãƒ„ãƒ¼ãƒ«ã§ã™ã€‚ã¡ãªã¿ã«ã€ã“ã®ãƒ„ãƒ¼ãƒ«ã«ã¨ã£ã¦Emacsã¯ãŸã ã®å®Ÿè¡Œç’°å¢ƒã§ã™ã€‚Emacsä½¿ã‚ãªã„äººã§ã‚‚ä½¿ã†ã¨ä¾¿åˆ©ã ã¨æ€ã„ã¾ã™ã€‚ http://d.hatena.ne.jp/kiwanami/20120305/1330939440 Vimã‚‚ãƒ¼Vimã‚‚ãƒ¼ï¼ ã£ã¦äº‹ã§ä½œã‚Šã¾ã—ãŸã€‚ mattn/vdbi-vim - GitHub Database client for Vim https://github.com/mattn/vdbi-vim Emacsç‰ˆã¯epcã¨ã„ã†RPCãƒ—ãƒãƒˆ
issm 2012/03/07
vim

db

dbi

perl
ãƒªãƒ³ã‚¯
DBæ“ä½œãƒ„ãƒ¼ãƒ« Emacs DBI ã‚’ä½œã£ã¦ã¿ãŸ - æŠ€è¡“æ—¥è¨˜ï¼ kiwanami
åŽ»å¹´ã‹ã‚‰ã»ãã¼ãã¨ä½œã£ã¦ããŸã€Emacsã‹ã‚‰DBã‚’æ“ä½œã§ãã‚‹ãƒ„ãƒ¼ãƒ« Emacs DBI ã‚’ç´¹ä»‹ã—ã¾ã™ã€‚ Emacs DBI ã®ç°¡å˜ãªç´¹ä»‹ ã“ã®ãƒ„ãƒ¼ãƒ«ã®ç›®çš„ã¯ã€ã‚¯ãƒã‚¹ãƒ—ãƒ©ãƒƒãƒˆãƒ•ã‚©ãƒ¼ãƒ ã§ä¾¿åˆ©ãªDBæ“ä½œç’°å¢ƒã‚’å®Ÿç¾ã™ã‚‹ã“ã¨ã§ã™ã€‚ pgAdmin ã‚„ MySQL Query Browser ã®ã‚ˆã†ãªGUIã®è‰¯ã•ã‚’CUIã§å®Ÿç¾ã—ã¦ã¿ã‚ˆã†ã¨ã—ã¦ã¿ã¾ã—ãŸã€‚ã™ãªã‚ã¡ã€ã¼ãã®ã‹ã‚“ãŒãˆãŸã•ã„ãã‚‡ã†ã®DBãƒ„ãƒ¼ãƒ«ã§ã™ã€‚ã¡ãªã¿ã«ã€ã“ã®ãƒ„ãƒ¼ãƒ«ã«ã¨ã£ã¦Emacsã¯ãŸã ã®å®Ÿè¡Œç’°å¢ƒã§ã™ã€‚Emacsä½¿ã‚ãªã„äººã§ã‚‚ä½¿ã†ã¨ä¾¿åˆ©ã ã¨æ€ã„ã¾ã™ã€‚ ãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹ç”»é¢ e2wmã§3ãƒšã‚¤ãƒ³ã®ç”»é¢ æ©Ÿèƒ½æ¦‚è¦ ä»¥ä¸‹ã®ã‚ˆã†ãªæ©Ÿèƒ½ãŒã‚ã‚Šã¾ã™ã€‚ Emacsã¨DBæŽ¥ç¶šå¯èƒ½ãªPerlãŒå‹•ã‘ã°ã‚¿ãƒ¼ãƒŸãƒŠãƒ«ã§ã‚‚ä½•å‡¦ã§ã‚‚å‹•ã DBå®šç¾©ã€ãƒ†ãƒ¼ãƒ–ãƒ«å®šç¾©ãŒã™ãè¦‹ã‚Œã‚‹ auto-complete ã«ã‚ˆã‚‹SQLè£œå®Œ æŽ¥ç¶šå…ˆDBã«ã‹ã‚‰ã‚ãƒ¼ãƒ¯ãƒ¼ãƒ‰ã€åž‹åã€ãƒ†ãƒ¼ãƒ–ãƒ«åã€ã‚«ãƒ©ãƒ åãªã©
issm 2012/03/05
emacs

db

dbi

perl
ãƒªãƒ³ã‚¯
DBI ã®ãŠä¾›ã«ãªã‚Šãã†ãªãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ãŸã¡ - Articles Advent Calendar 2011 Dbix
å¸«èµ°ã«ã‚‚é–¢ã‚ã‚‰ãšé¢¨é‚ªã‚’å¼•ã„ã¦ã—ã¾ã—ã¾ã—ãŸã€‚ã“ã‚“ã°ã‚“ã¯ã€zigorou ã§ã™ã€‚ ä»Šæ—¥ã¯ DBI ã®ãŠä¾›ã«ãªã‚Šãã†ãªæ‹™ä½œãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ãŸã¡ã‚’ã”ç´¹ä»‹ã—ã¾ã™ã€‚ Data::RuledFactory p5-data-ruledfactory ã§é–‹ç™ºä¸ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã§ã™ã€‚ ä¸»è¦æ©Ÿèƒ½ã¯å¤§ä½“å‡ºæ¥ã¦ã‚‹ã‚“ã§ã™ãŒã€å¾Œã¯ãƒ†ã‚¹ãƒˆã‚’å……å®Ÿã•ã›ã¦ pod ã‚’ãã¡ã‚“ã¨æ›¸ã„ãŸã‚‰ãƒªãƒªãƒ¼ã‚¹ã—ã‚ˆã†ã‹ãªã¨ã‹æ€ã£ã¦ã‚‹æ‰€ã§ã™ã€‚ ã¨ã¯ã„ãˆç¾æ™‚ç‚¹ã§ã‚‚ã‚„ã‚ŠãŸã„ãªã¨æ€ã£ã¦ã„ã‚‹äº‹ã¯æ—¢ã«å‡ºæ¥ã¾ã™ã€‚ è«–ã‚ˆã‚Šè¨¼æ‹ ã¨è¨€ã†äº‹ã§ã€examples ãƒ•ã‚©ãƒ«ãƒ€ã«ã‚ã‚‹ 001_define_rules.pl ã«ã¤ã„ã¦ã¡ã‚‡ã£ã¨è§£èª¬ã€‚ #!/usr/bin/env perl use strict; use warnings; use FindBin; use lib "$FindBin::Bin/../lib"; use DateTime; use Data::RuledF
issm 2012/03/01
perl

dbi

data-ruledfactory
ãƒªãƒ³ã‚¯
SQLã‚’æ›¸ããƒ—ãƒã‚¸ã‚§ã‚¯ãƒˆã®ãŸã‚ã®DBIx::Sunnyã£ã¦ã®ã‚’æ›¸ã„ã¦ã„ã‚‹ - blog.nomadscafe.jp
å¤§è¦æ¨¡ãªã‚µã‚¤ãƒˆã§ã¯ã€ORMã§ã¯SQLãƒ¬ãƒ™ãƒ«ã®ãƒãƒ¥ãƒ¼ãƒ‹ãƒ³ã‚°ãŒã—ã«ãã„ã®ã§(Class::DBIã§è‹¦åŠ´ã—ã¦ã‚‹)ã€SQLã‚’ç›´æŽ¥æ›¸ãã“ã¨ãŒå¤šã„ã¨æ€ã„ã¾ã™ã€‚ãã®éš›SQLã‚’ã„ã‚ã„ã‚ãªãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã«æ›¸ã„ã¦ã—ã¾ã†ã¨ã€ã‚ã¨ã‹ã‚‰ALTERã‚„ãƒ‘ãƒ¼ãƒ†ã‚£ã‚·ãƒ§ãƒ‹ãƒ³ã‚°ã—ã‚ˆã†ã¨ã—ãŸæ™‚ã«æ‚²åŠ‡ã¨ãªã‚Šã¾ã™ã€‚ã§ãã‚‹ã ã‘1ã¤ã®ãƒ†ãƒ¼ãƒ–ãƒ«ãƒ»ãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹ã®SQLã¯ï¼‘ã¤ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã«ãŠã•ã‚ã¦ãŠãäº‹ãŒãŠã™ã™ã‚ã§ã™ã€‚ DBIx::Sunnyã¯ãã®ã‚ˆã†ãªãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’æ›¸ãæ™‚ã«ä½¿ãˆãã†ãªãƒ©ã‚¤ãƒ–ãƒ©ãƒªã§ã€SQLã‚’ç®¡ç†ã™ã‚‹ã¨å…±ã«ã‚¯ã‚¨ãƒªå®Ÿè¡Œæ™‚ã«æ¸¡ã•ã‚ŒãŸå€¤ã®ãƒãƒªãƒ‡ãƒ¼ã‚·ãƒ§ãƒ³ã‚‚ã§ãã‚‹æ§˜ã«ãªã£ã¦ã„ã¾ã™ã€‚ã¾ã ã¾ã å®Ÿé¨“ä¸ã§ã™ãŒã€githubã«ã‚½ãƒ¼ã‚¹ã‚³ãƒ¼ãƒ‰ã‚ã‚Šã¾ã™ã€‚ ä½¿ã„æ–¹ã¯ã“ã‚“ãªæ„Ÿã˜ã€‚ã¾ãšSQLã‚’æ›¸ãã‚¯ãƒ©ã‚¹ã‚’DBIx::Sunnyã‚’ç¶™æ‰¿ã—ã¦ä½œã‚Šã¾ã™ã€‚queryã€select_oneã€select_rowã€select_allã£ã¦ã®ãŒSQLã‚’ç®¡ç†ã™ã‚‹ç”¨ã®æš®ã‚‰ã™ãƒ¡ã‚½ãƒƒãƒ‰ã¨ã—
issm 2012/02/23
dbix-sunny

dbi

perl
ãƒªãƒ³ã‚¯
DBI#cloneã¨ã„ã†ãƒ¡ã‚½ãƒƒãƒ‰ - blog.nekokak.org
http://search.cpan.org/dist/DBI/DBI.pm#clone DBIã«cloneãƒ¡ã‚½ãƒƒãƒ‰ãŒã‚ã‚‹ã“ã¨ã‚’@nihenã•ã‚“ãŒã¿ã¤ã‘ã¾ã—ãŸã€‚ #ã„ã‚„ãƒ¼DBIã®ãƒ‰ã‚ãƒ¥ãƒ¡ãƒ³ãƒˆã¯è‰¯ãèªã‚€ã¨ä¾¿åˆ©ãƒ¡ã‚½ãƒƒãƒ‰ãŒä¸€æ¯ã‚ã‚Šã¾ã™ã Tengã¨ã‹Skinnyã§ã¯connect_infoã‚’å—ã‘å–ã‚‹ã ã‘ã§ãªãã€ $dbhã‚’å—ã‘å–ã£ã¦åˆ©ç”¨ã™ã‚‹ä»•çµ„ã¿ã‚‚æä¾›ã—ã¦ã„ã‚‹ã®ã§ã™ãŒã€ ãã“ã§ä¸€ç•ªå•é¡Œã«ãªã£ã¦ã„ãŸã®ã¯dbã¸ã®æŽ¥ç¶šãŒãƒ–ãƒã‚®ãƒ¬ãŸå ´åˆã®reconnectã®å•é¡Œã§ã—ãŸã€‚ connect_infoãŒã‚ã‚‹å ´åˆã¯æŽ¥ç¶šæƒ…å ±ã‚’è‡ªåˆ†ã§æŒã£ã¦ãŠã‚Šã€ç°¡å˜ã«å†æŽ¥ç¶šã§ãã‚‹ã‚“ã§ã™ãŒ $dbhã—ã‹ãªã„å ´åˆã¯ã„ã¾ã¾ã§ã§ããªã„ã¨ãŠã‚‚ã£ã¦ã„ã¾ã—ãŸã€‚ DBIçš„ã«ã‚‚æŽ¥ç¶šæ™‚ã«ã¤ã‹ã£ãŸpasswordã‚’å–ã‚‹ã‚¤ãƒ³ã‚¿ãƒ•ã‚§ãƒ¼ã‚¹ãŒãªã‹ã£ãŸã€‚ ãªã®ã§$dbhã‚’æ¸¡ã•ã‚ŒãŸå ´åˆã¯è‡ªå‹•reconnectã¯è¡Œã‚ãšã«ã‚¨ãƒ©ãƒ¼ã§æ»äº¡ã«ã™ã‚‹ã‚ˆã†ã«ãªã£ã¦ãŸã‚“ã§ã™ãŒã€ D
issm 2011/11/17
perl

dbi

db

teng

dbix-skinny
ãƒªãƒ³ã‚¯
Perlã®DBIã®cloneã®å†æŽ¥ç¶šã‚’æ¤œè¨¼ã™ã‚‹ã‚µãƒ³ãƒ—ãƒ«ã‚³ãƒ¼ãƒ‰ã¨ã‹ | hirobanex.net
Perlã®DBIãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã®cloneãƒ¡ã‚½ãƒƒãƒ‰ãŒã„ã„ã‚‰ã—ã„ ã€ŽDBIã¨forkã®é–¢ä¿‚ã€ã¨ã‹ã€ŽDBI#cloneã¨ã„ã†ãƒ¡ã‚½ãƒƒãƒ‰ã€ã¨ã‹ã§ã€å–ã‚ŠæŒ™ã’ã‚‰ã‚Œã¦ã„ã‚‹DBIã®cloneãƒ¡ã‚½ãƒƒãƒ‰ã‚’å®Ÿæ„Ÿã™ã‚‹ãŸã‚ã®ã‚µãƒ³ãƒ—ãƒ«ã‚³ãƒ¼ãƒ‰ã€‚ #!/usr/bin/env perl use strict; use warnings; use DBI; my $dbh = DBI->connect('dbi:mysql:;', 'test', 'test'); warn $dbh->do('show processlist'); $dbh->disconnect; warn $dbh->do('show processlist'); $dbh = $dbh->clone; warn $dbh->do('show processlist'); ã‚³ãƒã‚¯ã‚·ãƒ§ãƒ³ã®å†æŽ¥ç¶šãŒãªã‚“ã¨ãŠæ‰‹è»½! ã‚³ãƒã‚¯ã‚·ãƒ§ãƒ³ã®ç¶æŒã«é–¢ã—ã¦ã¯ã€ŽScope::
issm 2011/11/17
perl

dbi

db
ãƒªãƒ³ã‚¯
DBIã¨forkã®é–¢ä¿‚ - heboi blog
å®Ÿéš›ã‚°ã‚°ã‚Œã°æ£è§£ã¯ã„ã£ã±ã„å‡ºã¦ãã‚‹ã—ã“ã“ã«è‡ªåˆ†ã‚‚ã‚³ãƒ¡ãƒ³ãƒˆã§æ›¸ã„ã¦ãŸã‚Šã—ã¦ã„ã¾ã•ã‚‰æ›¸ãå¿…è¦ã‚‚ãªã„ã‹ãªã¨æ€ã£ã¦ãŸã‘ã©ä¸€å¿œè‡ªåˆ†ã®ãƒ–ãƒã‚°ã§ã‚‚ã¾ã¨ã‚ã¦ãŠãã¨ã„ã†ã“ã¨ã§ã€‚ ä¸€èˆ¬çš„ãªè§£ DBIx::Connectorã¨ã‹DBIx::HandlerçµŒç”±ã§ã‹ãªã‚‰ãš$dbhã‚’å–å¾—ã—ã¦ã‹ã‚‰DBIã‚’ä½¿ã†ã€‚ ã‚‚ã—ãã¯fork-safeãªORM(DBIx::Class, DBIx::Skinny, Teng)ã‚’ä½¿ã†ã€‚ DBIã‚’ç›´æŽ¥ä½¿ã£ã¦ã„ã‚‹å ´åˆ ä¸€èˆ¬çš„ãªã‚³ãƒã‚¯ã‚·ãƒ§ãƒ³ã‚’ä¿æŒã™ã‚‹ã‚¯ãƒ©ã‚¤ã‚¢ãƒ³ãƒˆã¨åŒæ§˜ã«DBIã‚‚forkã—ãŸåä¾›ãŒè¦ªã®ã‚³ãƒã‚¯ã‚·ãƒ§ãƒ³ã‚’ãã®ã¾ã¾ä½¿ã†ã“ã¨ã¯ãƒã‚°ã®åŽŸå› ã«ãªã‚Šã¾ã™ã€‚ç‰¹ã«ãƒˆãƒ©ãƒ³ã‚¶ã‚¯ã‚·ãƒ§ãƒ³ã®å‡¦ç†ç‰ã§é‡å¤§ãªå•é¡ŒãŒèµ·ã“ã‚‹å¯èƒ½æ€§ãŒã‚ã‚‹ã€‚ è§£æ±ºç–ã¯ã€ DBIã®ã‚³ãƒã‚¯ã‚·ãƒ§ãƒ³ã‚’è¦ªã§ä½œã‚‰ãªã„ã§ã€åä¾›ã§ç‹¬è‡ªã«ä½œã‚‹ è¦ªã§ä½œã£ã¦ã—ã¾ã£ãŸã‚³ãƒã‚¯ã‚·ãƒ§ãƒ³ã‚’åä¾›ãŒå®‰å…¨ã«DESTROYã—ã€å†æŽ¥ç¶šã™ã‚‹ ã®ã©ã¡ã‚‰ã‹ã«ãªã‚Šã¾ã™ã€‚ã“ã“ã§å•é¡Œã¯2ã§
issm 2011/11/17
perl

dbi

db

fork
ãƒªãƒ³ã‚¯
ç¬¬9å›žã€€é«˜é€ŸãªWeb APIã®å®Ÿè£…ã¨ãƒ†ã‚¹ãƒˆâ€•Mobage APIã‚’æ”¯ãˆã‚‹ãƒŽã‚¦ãƒã‚¦ï¼ˆ1ï¼‰ | gihyo.jp
æœ¬é€£è¼‰ã§ã¯ç¬¬ä¸€ç·šã®Perl ãƒãƒƒã‚«ãƒ¼ãŒå›žæ›¿ã‚ã‚Šã§åŸ·ç†ã—ã¦ã„ãã¾ã™ã€‚ä»Šå›žã®ãƒãƒƒã‚«ãƒ¼ã¯DeNAã®å¶‹ç”°è£•äºŒã•ã‚“ã§ã€ãƒ†ãƒ¼ãƒžã¯ã€Œé«˜é€ŸãªWeb APIã®å®Ÿè£…ã¨ãƒ†ã‚¹ãƒˆã€ã§ã™ã€‚ Web APIã®åŸºç¤ŽçŸ¥è˜ ã¯ã˜ã‚ã¾ã—ã¦ã€DeNAã§Mobageã‚ªãƒ¼ãƒ—ãƒ³ãƒ—ãƒ©ãƒƒãƒˆãƒ•ã‚©ãƒ¼ãƒ ã®Web APIï¼ˆä»¥é™Mobage APIï¼‰ã‚’å®Ÿè£…ã—ã¦ã„ã‚‹xai cronã§ã™ã€‚Mobageã‚ªãƒ¼ãƒ—ãƒ³ãƒ—ãƒ©ãƒƒãƒˆãƒ•ã‚©ãƒ¼ãƒ ã¯ã€Mobageã®æ©Ÿèƒ½ã‚’Web APIã‚’é€šã—ã¦å¤–éƒ¨ã®é–‹ç™ºè€…ã«å…¬é–‹ã™ã‚‹ã“ã¨ã«ã‚ˆã‚Šã€ã‚½ãƒ¼ã‚·ãƒ£ãƒ«ã‚²ãƒ¼ãƒ ã‚’ãƒ¦ãƒ¼ã‚¶ã«æä¾›ã™ã‚‹ã‚µãƒ¼ãƒ“ã‚¹ã§ã™ã€‚ ç°¡å˜ã«èª¬æ˜Žã™ã‚‹ã¨Web APIã¨ã¯ã€HTTPã‚’åˆ©ç”¨ã—ã¦ãƒãƒƒãƒˆãƒ¯ãƒ¼ã‚¯è¶Šã—ã«å‡¦ç†ã‚’è¡Œã„ã€çµæžœã‚’è¿”ã™ã—ãã¿ã§ã™ã€‚æœ€è¿‘ã§ã¯JSONï¼ˆJavaScript Object Notationï¼‰ã¨ã„ã†ãƒ•ã‚©ãƒ¼ãƒžãƒƒãƒˆã‚’åˆ©ç”¨ã—ã¦ãƒ‡ãƒ¼ã‚¿ã®ã‚„ã‚Šã¨ã‚Šã‚’ã™ã‚‹ã“ã¨ãŒå¤šããªã£ã¦ãŠã‚Šã€Mobage APIã‚‚åŸºæœ¬çš„ã«ã¯JSONã‚’å—ã‘å–ã£ã¦å‡¦ç†ã‚’è¡Œ
issm 2011/10/03
perl

webapi

webapp

dbi

http

json
ãƒªãƒ³ã‚¯
DBIx::Inspector - introspection for DBI - tokuhirom's blog
use DBIx::Inspector; my $dbh = DBI->connect(...) or die; my $inspector = DBIx::Inspector->new(dbh => $dbh); my @tables = $inspector->tables; for my $table (@tables) { print " pk:\n"; for my $pk ($table->primary_key) { print " ", $pk->name, "\n"; } print " columns:\n"; for my $column ($table->columns) { print " ", $column->name, "\n"; } }DBI supports introspection, but it is a too generic and funct
issm 2010/12/01
tokuhirom

dbix-inspector

perl

dbi
ãƒªãƒ³ã‚¯
1 2 æ¬¡ã®ãƒšãƒ¼ã‚¸