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
http://blog.yappo.jp/yappo/archives/000559.html
tokuhirom blog
{{#tags}}- {{label}}
{{/tags}}