[B! cpan][DB] BigFatCatã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

BigFatCat id:BigFatCat

cpanã¨DBã«é–¢ã™ã‚‹BigFatCatã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ (8)

${{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}}

Hash::Compactã‚’ä½¿ã£ã¦ã€æ§‹é€ ã‚’ã‚‚ã£ãŸã‚«ãƒ©ãƒ ã®ãƒ‡ãƒ¼ã‚¿ã‚’åŠ¹çŽ‡ã‚ˆãæ‰±ã† - Kentaro Kuribayashi's blog
Hash::Compactã¨ã„ã†ã€HashRefã®key/valueã‚’ã€keyã®ã‚¨ã‚¤ãƒªã‚¢ã‚¹ã‚„ãƒ‡ãƒ•ã‚©ãƒ«ãƒˆã®valueã‚’ã‚µãƒãƒ¼ãƒˆã™ã‚‹ã“ã¨ã§ã‚³ãƒ³ãƒ‘ã‚¯ãƒˆã«è¡¨ç¾ã§ãã‚‹ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ãŒã‚ã‚Šã¾ã™ã€‚ãƒ‰ã‚ãƒ¥ãƒ¡ãƒ³ãƒˆã«ã¯Cache::Memcached::Fastã§ã®åˆ©ç”¨ä¾‹ãŒç¤ºã•ã‚Œã¦ã„ã‚‹ã®ã§ã™ãŒã€ä»Šå›žã¯ãã‚Œã‚’DBã§ä½¿ã†ä¾‹ã‚’ç´¹ä»‹ã—ã¾ã™ã€‚å¿…ãšã—ã‚‚ORMãŒå¿…è¦ãªã‚ã‘ã§ã¯ãªã„ã®ã§ã™ãŒã€èª¬æ˜Žã®ç°¡å˜ã®ãŸã‚ã«ã€Tengã‚’ä½¿ã„ã¾ã™ã€‚ ãƒ†ãƒ¼ãƒ–ãƒ« structã‚«ãƒ©ãƒ ã«ã€JSONã§ã‚·ãƒªã‚¢ãƒ©ã‚¤ã‚ºã—ãŸHashRefã‚’æ ¼ç´ã™ã‚‹ã€ä»¥ä¸‹ã®ã‚ˆã†ãªãƒ†ãƒ¼ãƒ–ãƒ«ãŒã‚ã£ãŸã¨ã—ã¾ã™ã€‚ CREATE TABLE `data` ( `id` int(10) unsigned NOT NULL AUTO_INCREMENT, `struct` blob, PRIMARY KEY (`id`) ); Tengã§ã®ã‚¹ã‚ãƒ¼ãƒžå®šç¾© ä»Šå›žã¯Tengã‚’ä½¿ã†ã®ã§ã€ä»¥ä¸‹ã®ã‚ˆã†ãªã‚¹ã‚
BigFatCat 2011/10/22
perl

DB

cpan

orm
ãƒªãƒ³ã‚¯
ã€Perlã€‘Parallel::ForkManagerãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã§ä¸¦åˆ—å‡¦ç†ãŒä¾¿åˆ©éŽãŽã¦ç”Ÿãã¦ã„ã‚‹ã®ãŒè¾›ã„ - oranie's blog
ã¨ã‚ã‚‹DBã‚’åˆ©ç”¨ã—ãŸãƒãƒƒãƒå‡¦ç†ã‚’ã‚„ã‚‰ã›ã‚ˆã†ã¨ã—ãŸæ™‚ã« #ã‚¹ã‚¯ãƒªãƒ—ãƒˆã®ä¸€éƒ¨åˆ† my @list1 = (é©å½“ãªãƒªã‚¹ãƒˆãã®1); my @list2 = (é©å½“ãªãƒªã‚¹ãƒˆãã®2); foreach my $value1 (@list1){ foreach my $value2(@list2){ #DBã«æŽ¥ç¶šã—ã¦ã€ã‚ã‚‹ãƒ†ãƒ¼ãƒ–ãƒ«ã®ãƒ¬ã‚³ãƒ¼ãƒ‰ä»¶æ•°countã™ã‚‹â†’ #ãã®çµæžœã‚’åˆ¥ãƒ†ãƒ¼ãƒ–ãƒ«ã«UPDATEã™ã‚‹SQLå®Ÿè¡Œå‡¦ç†; } }ã¨ã„ã†ã¾ã‚ã€foreachã§ã‚°ãƒ«ã‚°ãƒ«ã‚°ãƒ«ã‚°ãƒ«å›žã™ã‚¹ã‚¯ãƒªãƒ—ãƒˆã‚’æ›¸ã„ãŸã‚“ã§ã™ãã€‚ ã§ã€ã¾ãã“ã‚ŒãŒã‚¯ã‚½é‡ã‹ã£ãŸã‚“ã§ã™ãã€‚ãƒ†ãƒ¼ãƒ–ãƒ«ã®ãƒ‡ãƒ¼ã‚¿ã¯å…¨éƒ¨ãƒ¡ãƒ¢ãƒªä¸Šã«è¼‰ã£ã¦ã„ã‚‹ã‚“ã§ã™ãŒã€ 10GBï¼ˆ1å„„ãƒ¬ã‚³ãƒ¼ãƒ‰ãã‚‰ã„ï¼‰ãã‚‰ã„ã®ãƒ†ãƒ¼ãƒ–ãƒ«ã§é †ç•ªã«$value1,$value2ã®å¤‰æ•°ã‚’æ¡ä»¶ã«ä½¿ã£ã¦COUNT()ã‚’ä½¿ç”¨ã—ãŸ SELECTæ–‡ã‚’æŠ•ã’ã‚‹ã®ã§ã€ä¸€ã¤ã®SQLæŠ•ã’ãŸã‚‰DBå´ã®CPUã‚³ã‚¢ãŒ100%ã«ãªã£ã¦ã—
BigFatCat 2011/06/05
sql

DB

perl

ä¸¦åˆ—å‡¦ç†

cpan

benchmark
ãƒªãƒ³ã‚¯
å®Ÿè·µTeng â€” Teng-Doc 0.01 documentation
Navigation index next | Teng-Doc 0.01 documentation Â» å®Ÿè·µTengÂ¶ Contents: ã“ã®æ–‡æ›¸ã«ã¤ã„ã¦ ã“ã®æ–‡æ›¸ã¯ä½•ã§ã¯ãªã„ã‹? ã“ã®æ–‡æ›¸ã§èª¬æ˜Žã™ã‚‹ã“ã¨ è¡¨è¨˜ã«ã¤ã„ã¦ Tengã®ç‰¹å¾´ Tengã¨ã¯ ã‚¯ã‚¤ãƒƒã‚¯ã‚¹ã‚¿ãƒ¼ãƒˆ ã¯ã˜ã‚ã« ç’°å¢ƒã®æº–å‚™ DBã®ä½œæˆ ãƒ†ãƒ¼ãƒ–ãƒ«ã®ä½œæˆ ãƒ‡ãƒ¼ã‚¿ã®æŒ¿å…¥ ã‚¯ã‚¨ãƒªã®ç¢ºèª ãƒ‡ãƒ¼ã‚¿ã®æ¤œç´¢ ãƒ‡ãƒ¼ã‚¿ã®å‰Šé™¤ ãƒ‡ãƒ¼ã‚¿ã®å¤‰æ›´ ã¾ã¨ã‚ ã‚„ã£ã¦ã¿ã‚ˆã† é€†å¼•ããƒ¬ã‚·ãƒ” é€†å¼•ããƒ¬ã‚·ãƒ”ã«ã¤ã„ã¦ ä¸€èˆ¬ç·¨ Rowã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆç·¨ SQLç·¨ Indices and tablesÂ¶ Index Module Index Search Page Table Of Contents å®Ÿè·µTeng Indices and tables Next topic ã“ã®æ–‡æ›¸ã«ã¤ã„ã¦ This Page Show Source Quick search Ente
BigFatCat 2011/02/21
perl

cpan

DB

tutorial

document
ãƒªãƒ³ã‚¯
ç”Ÿ DBI ãƒ¦ãƒ¼ã‚¶ãƒ¼ã®ãŸã‚ã® DBI Cookbook (6) - æ—¥å‘å¤ç‰¹æ®Šå¿œæ´éƒ¨éšŠ
ã•ã¦ã€ä»Šæ—¥ã¯ selectcol_arrayref ã§ã™ã€‚æ˜¨æ—¥ã€ä¼šç¤¾ã®ã‚°ãƒ«ãƒ¡ãªåŒåƒšã«æ•™ãˆã¦è²°ã„ã¾ã—ãŸã€‚ ã¡ã‚‡ã†ã© ç”Ÿ DBI ãƒ¦ãƒ¼ã‚¶ãƒ¼ã®ãŸã‚ã® DBI Cookbook (1) - Yet Another Hackadelic ã«ã¦ selectall_arrayref + Slice, selectall_hashref ãªã©ã®ä½¿ã„æ–¹ã‚’æ›¸ãã¾ã—ãŸãŒã€ã“ã¡ã‚‰ã‚‚ã‹ãªã‚Šä¾¿åˆ©ã€‚ CREATE TABLE `application` ( `id` int(10) unsigned NOT NULL, `title` varchar(32) CHARACTER SET sjis NOT NULL, `created_on` timestamp NOT NULL DEFAULT '0000-00-00 00:00:00', `updated_on` timestamp NOT NULL DEFAULT
BigFatCat 2011/01/05
perl

dbi

cpan

DB
ãƒªãƒ³ã‚¯
é…åˆ—ã‹ã‚‰åŠ¹çŽ‡è‰¯ããƒ—ãƒ¬ãƒ¼ã‚¹ãƒ›ãƒ«ãƒ€ã‚’ä½œã‚‹ : ã«ã½ãŸã‚“ç ”ç©¶æ‰€
my @a = qw(foo bar baz); ã“ã‚“ãªé…åˆ—ã‹ã‚‰ ?,?,? ã¨ã„ã†æ–‡å—åˆ—ã‚’ä½¿ã„ãŸã„å ´åˆãŒã‚ã‚Šã¾ã™ã€‚ ä¾‹ãˆã°ã€ SELECT * FROM hoge WHERE user_id IN (?,?,?); ã¿ãŸã„ãª SQL ã«ã™ã‚‹å ´åˆã®ãƒ—ãƒ¬ãƒ¼ã‚¹ãƒ›ãƒ«ãƒ€ã‚’ä½œã‚‹ã¨è¨€ã£ãŸå…·åˆã«ã€‚ ç¤¾å†… IRC ã§ã€clouder ã•ã‚“ãŒè¨€ã„å‡ºã—ã¦ã€ 18:27 <clouder>join(',', map('?', @a)) 18:27 <clouder> ã“ã‚“ãªã®ã—ã‹æ€ã„ã¤ã‹ãªã„ã€‚ã€‚ ã¨è¨€ã†ã€‚ ã¾ãã€ãã‚ŒãŒå¦¥å½“ã¨ã„ã†ã‹ã€æ™®é€šãã‚ŒãŒæ€ã„æµ®ã‹ã¶ã‚ˆãªãƒ¼ã£ã¦æ€ã£ã¦ãŸã‚‰ã€ä¼šç¤¾ã® dos ã•ã‚“ã¨ã„ã†äººãŒ 19:15 <dos> '?,' x @a; ã§ s/,$//; ã¨ã„ã†ï½¿ï¾˜ï½ï½°ï½¼ï½®ï¾ ã¨ã‹ã€ç•°æ§˜ãªã“ã¨ã‚’è¨€ã„å‡ºã—ãŸã€‚ sub placeholder_from_array { return join(',',
BigFatCat 2011/01/02
perl

DB

cpan
ãƒªãƒ³ã‚¯
ãƒ—ãƒã‚¸ã‚§ã‚¯ãƒˆé–‹ç™ºã«ãŠã‘ã‚‹ãƒ†ã‚¹ãƒˆç”¨DBã®(ä½¿ã„|ä½œã‚Š)æ–¹
æ˜”æ›¸ã„ãŸã‚ˆã†ãªæ°—ãŒã—ã¦ãŸã‘ã©æ›¸ã„ã¦ãªã‹ã£ãŸã®ã§ã€‚ ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’ã¤ãã£ã¦ã„ã¦DBå›žã‚Šã®ãƒ†ã‚¹ãƒˆã‚’æ›¸ããŸã„å ´åˆã¯ Test::mysqldã‚„Test::postgresql ã‚’ä½¿ã†ã“ã¨ã€‚ CPANãªã‚“ã‹ã«ä¸Šã’ã‚‹ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã§ã¯ãªãã€ãŠä»•äº‹ãƒ—ãƒã‚¸ã‚§ã‚¯ãƒˆã®ã‚³ãƒ¼ãƒ‰ã‚’æ›¸ã„ã¦ã„ã¦ DBå›žã‚Šã®ãƒ†ã‚¹ãƒˆã‚’æ›¸ããŸã„ã‚±ãƒ¼ã‚¹ã«ã¤ã„ã¦ã§ã™ã€‚ ç§ã¯MySQLã‚’åˆ©ç”¨ã—ã¦ã„ã‚‹ã®ã§ã€Test::mysqldã‚’ã¤ã‹ã£ã¦ã‚‚ã‚ˆã„ã®ã§ã™ãŒã€ èµ·å‹•ã‚³ã‚¹ãƒˆãŒãã‚Œãªã‚Šã«ã‹ã‹ã‚‹ã®ã¨ã€ãƒãƒ¼ã‚«ãƒ«ã®é–‹ç™ºç’°å¢ƒã«ã¯æ—¢ã«MySQLã¯ç«‹ã¡ä¸ŠãŒã£ã¦ã„ã‚‹å‰æãŒã‚ã‚‹ã®ã§ã€ æ—¢ã«ç«‹ã¡ä¸ŠãŒã£ã¦ã„ã‚‹MySQLã‚’ãã®ã¾ã¾åˆ©ç”¨ã™ã‚‹æ–¹æ³•ã‚’ã¨ã£ã¦ã„ã¾ã™ã€‚ ãã“ã§ãƒ†ã‚¹ãƒˆç”¨ã®ãƒ¦ãƒ¼ãƒ†ã‚£ãƒªãƒ†ã‚£ã‚¯ãƒ©ã‚¹ã‚’ç´¹ä»‹ã—ã¦ã¿ã¾ã™ã€‚ package t::Utils; use strict; use warnings; use utf8; use lib './t/'; use Test::Fixtu
BigFatCat 2010/12/19
perl

DB

cpan

test
ãƒªãƒ³ã‚¯
How do you manage triggers in RDBMS. - tokuhirom's blog
RDBMSãƒ¬ãƒ™ãƒ«ã®triggerã¯ã‚¢ãƒ—ãƒªã‚±ãƒ¼ã‚·ãƒ§ãƒ³ãƒ¬ãƒ™ãƒ«ã®ãƒˆãƒªã‚¬ãƒ¼ã«ãã‚‰ã¹ã¦ã‚‚ã‚Œã‚‚ãªãã€å®‰å¿ƒæ„ŸãŒã‚ã£ã¦ã‚ˆã„ã‚‚ã®ã§ã™ãã€‚ ã—ã‹ã—ä¸€æ–¹ã§ã€RDBMS ãƒ¬ãƒ™ãƒ«ã®triggerã¯ã€deploy ãŒã‚€ãšã‹ã—ã„ã¨ã„ã†å•é¡Œã‚‚ã‚ã‚Šã¾ã™ã€‚ ã‚ãŸãã—ã¯ã€ä»¥ä¸‹ã®ã‚ˆã†ãªã‚¹ã‚¯ãƒªãƒ—ãƒˆã‚’ã¤ã‹ã£ã¦ã€ã‚¹ã‚ãƒ¼ãƒžã¨å®Ÿéš›ã®DBã®æ§˜åã‚’ã¤ãã‚ã‚ã›ã¦ã€ã¡ãŒã£ã¦ã„ã‚Œã° DROP ã—ã¦ CREATE ã—ãªãŠã™ã¨ã„ã†ã‚ˆã†ãªã‚¹ã‚¯ãƒªãƒ—ãƒˆã‚’ã‹ã„ã¦ã„ã¾ã™ã€‚ ã¿ãªã•ã‚“ã¯ã©ã®ã‚ˆã†ã«ç®¡ç†ã—ã¦ã„ã¾ã™ã‹? #!/usr/bin/env perl use strict; use warnings; use utf8; use 5.10.0; use autodie; use Log::Minimal; use File::Spec; use Data::Dumper; ... my $dbh = $dbh; my %db_triggers = map { $
BigFatCat 2010/12/19
perl

DB

sql

cpan
ãƒªãƒ³ã‚¯
dbicdump ãŒã‚ã‚‹ã‹ã‚‰ä½¿ã„æ¨ã¦ã‚¹ã‚¯ãƒªãƒ—ãƒˆæ›¸ãå¿…è¦ã¯ãªã‹ã£ãŸ - ç†ç³»å¦ç”Ÿæ—¥è¨˜
Perl ã§ DBIC ã‚’ä½¿ç”¨ã—ã¦ DB ç³»ã®ãƒ—ãƒã‚°ãƒ©ãƒ ã‚’æ›¸ãã¨ãã¯ã€ã‚¹ã‚ãƒ¼ãƒžã‚¯ãƒ©ã‚¹ã®ä½œæˆã®ãŸã‚ã«ã€ã‚ˆã DBIC::Schema::Loader ã® make_schema_at ã‚’ä½¿ã£ãŸä½¿ã„æ¨ã¦ã‚¹ã‚¯ãƒªãƒ—ãƒˆã‚’æ›¸ã„ã¦ã„ã¾ã—ãŸã€‚ã—ã‹ã—ã€ãã‚‚ãã‚‚ãã®å¿…è¦ã¯ãªã‹ã£ãŸã€‚ DBIC::Schema::Loader ã«ã¯ dbicdump ã¨ã„ã†ã‚¹ã‚¯ãƒªãƒ—ãƒˆãŒä»˜å±žã•ã‚Œã¦ã„ã¦ã€ã“ã‚Œã‚’ä½¿ãˆã° DB ã‹ã‚‰ã®ã‚¹ã‚ãƒ¼ãƒžã®èªã¿è¾¼ã¿ã€ãŠã‚ˆã³ã‚¹ã‚ãƒ¼ãƒžã‚¯ãƒ©ã‚¹ã®ä½œæˆã‚’å…¨ã¦è¡Œã£ã¦ãã‚Œã‚‹ã€‚ $ dbicdump -o dump_directory=./lib/ My::Schema 'dbi:SQLite:dbname=db/rank.db' $ find lib/My/Schema lib/My/Schema lib/My/Schema/Result lib/My/Schema/Result/Ranking.pm dbicd
BigFatCat 2010/09/20
perl

cpan

dbi

DB
ãƒªãƒ³ã‚¯
1