autoboxã§DBIã¨ã‹ - Hatena::Diary::Neko::kak 500 Internal Server Error
sql->doã¨ã‹ã§ããŸã‚‰ãŠã‚‚ã‚ã„ã‹ãªã¨ãŠã‚‚ã£ã¦ã‚„ã£ã¦ã¿ãŸã€‚ use strict; use warnings; use autobox; use autobox::DBI ['dbi:SQLite:/tmp/autobox_dbi.db'], {RaiseError => 1,AutoCommit =>1}; use Test::More tests => 8; 'CREATE TABLE foo(id INT, body TEXT)'->do; 'INSERT INTO foo(id,body) VALUES(1,"fooo")'->do; ['INSERT INTO foo(id,body) VALUES(?,?)','2','bar']->do; ['INSERT INTO foo(id,body) VALUES(?,?)','3','baz']->do; my @list = '
autoboxãŒã‹ã£ã“ã„ã„件 - ã¯ã“ã¹ã«ã£ã ♨
ActiveSupport equivalent to Perlã§çŸ¥ã£ãŸautoboxãŒã‹ã£ã“ã„ã„。上ã®miyagawaã•ã‚“ã®ã‚³ãƒ¼ãƒ‰ã‚’引用ã•ã›ã¦ã‚‚らã†ã¨ã€DateTimeオブジェクトã®ç”ŸæˆãŒ use autobox; use autobox::DateTime::Duration; print 1->day->ago, "\n"; # 2008-01-14T23:25:53 print 2->minutes->from_now, "\n"; # 2008-01-15T23:28:20 ã¨ã„ã†ã‚ˆã†ã«ActiveSupportã£ã½ã書ã‘ãŸã‚Šã™ã‚‹ã€‚autoboxを使ã£ãŸãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã¯çµæ§‹ç°¡å˜ã«ã‹ã‘ã‚‹ã®ã§ã€ä»¥ä¸‹ã®ã‚ˆã†ã«ä½¿ãˆã‚‹ã€autobox::URI::Fetchを書ã„ã¦ã¿ãŸã€‚ my $res = 'http://d.hatena.ne.jp'->fetch; # URI::Fetch::Respo
Perl ã® autobox ã§éŠã¶ - 2008-01-19 - naoyaã®ã¯ã¦ãªãƒ€ã‚¤ã‚¢ãƒªãƒ¼
autobox を使ã£ãŸã‚³ãƒ¼ãƒ‰ã‚’ã“ã“最近よã見㟠ã®ã§ã€ã‚„ã‚„ã„ã¾ã•ã‚‰ã§ã™ãŒè‡ªåˆ†ã‚‚ã™ã“ã—éŠã‚“ã§ã¿ã¾ã—ãŸã€‚autobox 㯠Perl ã®çµ„ã¿è¾¼ã¿ã®ãƒ‡ãƒ¼ã‚¿ (bless ã•ã‚Œã¦ã„ãªã„スカラーã€ãƒªã‚¹ãƒˆã€ãƒãƒƒã‚·ãƒ¥ã»ã‹) をファーストクラスオブジェクトã¨ã—ã¦æ‰±ã†ãŸã‚ã®æ©Ÿæ§‹ã‚’æä¾›ã™ã‚‹ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«(レã‚シカルプラグマ)ã§ã™ã€‚ #!/usr/local/bin/perl use strict; use warnings; use FindBin::libs; use autobox; use autobox::Core; use autobox::Encode; use autobox::Hatena::Feed; use autobox::Accessor; shift->b(qw/perl autobox/)->items->foreach(sub { $_[0]->title->encode('utf
1
ランã‚ング
ランã‚ング
ランã‚ング
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
処ç†ã‚’実行ä¸ã§ã™
j次ã®ãƒ–ックマーク
kå‰ã®ãƒ–ックマーク
lã‚ã¨ã§èªã‚€
eコメント一覧を開ã
oページを開ã
{{#tags}}- {{label}}
{{/tags}}