https://github.com/tokuhirom/teng-handbook/tree/master/ja
Perlã®O/RマッパーTengã®ç°¡å˜ãªãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ | UCWD-Studio
今回㯠Perl ã® O/Rマッパー Teng を触ã£ã¦ã¿ã¾ã™ã€‚特ã«è§¦ã‚Œãªã„é™ã‚ŠMySQLを利用ã—ã¦ã„ã‚‹ã¨ã„ã†ã“ã¨ã«ã—ã¦ã€ã‚³ãƒ¼ãƒ‰ã®ã‚µãƒ³ãƒ—ル㯠DBå teng_test / 利用ã™ã‚‹ãƒ†ãƒ¼ãƒ–ル㯠users / ãã®ãƒ†ãƒ¼ãƒ–ルレイアウト㯠mysql> SHOW FIELDS FROM users; +---------------+------------------+------+-----+---------+----------------+ | Field | Type | Null | Key | Default | Extra | +---------------+------------------+------+-----+---------+----------------+ | id | int(10) unsigned | NO | PRI | NULL | auto_
ã‚ã‚‹ã‚ã‚‹ ORM ドãƒãƒžãƒªå¤§è¾žå…¸ - Articles Advent Calendar 2011 Dbix
ã“ã¡ã‚‰ Yappo ã®æ—¥ã§ã”ã–ã„ã¾ã™ãŒã€ Yappo ã®åŸ·ç†ãƒšãƒ¼ã‚¹ãŒèŠ³ã—ããªã„ã®ã§ã€æœ¬æ—¥ã‚‚社員ã®ã‚ªã‚ªã‚µãƒ¯ãŒä»£æ‰“ã§ã€ŒDBIã€ã‚„「ORMã€ã«ã¤ã„ã¦æ›¸ã‹ã›ã¦é ‚ããŸã„ã¨æ€ã„ã¾ã™ã€‚ trigger / hook point insert, update, delete クエリã®å‰å¾Œå‡¦ç†ã‚’æ‹¡å¼µã—ã¦ã€ãƒ¬ã‚³ãƒ¼ãƒ‰ä½œæˆæ™‚刻ã®è¨å®šã‚„ update 時刻ã®æ›´æ–°ã¯ãŸã¾ãŸãƒ¬ã‚³ãƒ¼ãƒ‰å‰Šé™¤æ™‚ã«å‰Šé™¤ãƒ†ãƒ¼ãƒ–ルã¸ã®è‡ªå‹•ã‚³ãƒ”ーç‰ã‚’ã€ä¸€åº¦ãƒ™ãƒ¼ã‚¹ã‚¯ãƒ©ã‚¹ä¸Šã§å®šç¾©ã—ã¦ãŠã‘ã°æ–°ã—ã作るテーブルã¸ã‚‚ use parent ã™ã‚‹ç‰ã—ã¦ç°¡å˜ã«é©ç”¨å‡ºæ¥ãるよã†ã«ä¾¿åˆ©ã«ãªã‚Šã¾ã™ãŒã€ã†ã£ã‹ã‚Šã—ã¦ã‚‹ã¨å¾Œç¶šã®é–‹ç™ºè€…ãŒãƒãƒžã£ãŸã‚Šåˆ¶ç´„ãŒå‡ºã¦ãã¾ã™ã€‚ DBMS ã® trigger ORM ã®æ©Ÿèƒ½ã® trigger を多用ã—ã¦ã„ã‚‹ã¨ã€å¾Œç¶šã¯ DBMS 本体㮠trigger を使ã†äº‹ã«èºŠèº‡ã—ã¾ã™ã€‚使ã£ã¡ã‚ƒã„ã‘ãªã„ã¨ã„ã†ã‚ã‘ã§ã¯ãªã„ã§ã—ょã†ãŒã€ä¸€ã¤ã®ã‚¯ã‚¨ãƒªã«å¯¾ã™ã‚‹å‰¯
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 ã‚’è¿½åŠ ã—
DBIã¨forkã®é–¢ä¿‚ - heboi blog
実際ググれã°æ£è§£ã¯ã„ã£ã±ã„出ã¦ãã‚‹ã—ã“ã“ã«è‡ªåˆ†ã‚‚コメントã§æ›¸ã„ã¦ãŸã‚Šã—ã¦ã„ã¾ã•ã‚‰æ›¸ãå¿…è¦ã‚‚ãªã„ã‹ãªã¨æ€ã£ã¦ãŸã‘ã©ä¸€å¿œè‡ªåˆ†ã®ãƒ–ãƒã‚°ã§ã‚‚ã¾ã¨ã‚ã¦ãŠãã¨ã„ã†ã“ã¨ã§ã€‚ 一般的ãªè§£ DBIx::Connectorã¨ã‹DBIx::Handler経由ã§ã‹ãªã‚‰ãš$dbhã‚’å–å¾—ã—ã¦ã‹ã‚‰DBIを使ã†ã€‚ ã‚‚ã—ãã¯fork-safeãªORM(DBIx::Class, DBIx::Skinny, Teng)を使ã†ã€‚ DBIを直接使ã£ã¦ã„ã‚‹å ´åˆ ä¸€èˆ¬çš„ãªã‚³ãƒã‚¯ã‚·ãƒ§ãƒ³ã‚’ä¿æŒã™ã‚‹ã‚¯ãƒ©ã‚¤ã‚¢ãƒ³ãƒˆã¨åŒæ§˜ã«DBIã‚‚forkã—ãŸåä¾›ãŒè¦ªã®ã‚³ãƒã‚¯ã‚·ãƒ§ãƒ³ã‚’ãã®ã¾ã¾ä½¿ã†ã“ã¨ã¯ãƒã‚°ã®åŽŸå› ã«ãªã‚Šã¾ã™ã€‚特ã«ãƒˆãƒ©ãƒ³ã‚¶ã‚¯ã‚·ãƒ§ãƒ³ã®å‡¦ç†ç‰ã§é‡å¤§ãªå•é¡ŒãŒèµ·ã“ã‚‹å¯èƒ½æ€§ãŒã‚る。 解決ç–ã¯ã€ DBIã®ã‚³ãƒã‚¯ã‚·ãƒ§ãƒ³ã‚’親ã§ä½œã‚‰ãªã„ã§ã€åä¾›ã§ç‹¬è‡ªã«ä½œã‚‹ 親ã§ä½œã£ã¦ã—ã¾ã£ãŸã‚³ãƒã‚¯ã‚·ãƒ§ãƒ³ã‚’åä¾›ãŒå®‰å…¨ã«DESTROYã—ã€å†æŽ¥ç¶šã™ã‚‹ ã®ã©ã¡ã‚‰ã‹ã«ãªã‚Šã¾ã™ã€‚ã“ã“ã§å•é¡Œã¯2ã§
生 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 =
1
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
j次ã®ãƒ–ックマーク
kå‰ã®ãƒ–ックマーク
lã‚ã¨ã§èªã‚€
eコメント一覧を開ã
oページを開ã
Handling LONG/LOB Data (Programming the Perl DBI)
http://perlbuzz.com/2007/11/bind-output-variables-in-dbi-for-speed-and-safety.html
https://labs.cybozu.co.jp/blog/kazuho/archives/2007/09/dbi_printf.php
{{#tags}}- {{label}}
{{/tags}}