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

kaz_goto id:kaz_goto

perlã«é–¢ã™ã‚‹kaz_gotoã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ (249)

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

é€±æœ«ã«Remedie ã‚’è©¦ã—ã¦ã¿ãŸ | ãƒ–ãƒã‚°ãŒç¶šã‹ãªã„ã‚ã‘
ãƒ¬ãƒã‚¸ãƒˆãƒªã®ç§»è¡Œã«ä¼´ã„ã€ä¸€éƒ¨ä¿®æ£ã—ãŸ(2009/03/03) Remedie ã‚’è©¦ã™Shibuya.pm ã‚„Yokohama.pm ã®äºˆç¿’ã¨ã—ã¦ã€æœ€æ–°ã®miyagawa ãƒ—ãƒãƒ€ã‚¯ãƒˆã§ã‚ã‚‹Remedie ã‚’è©¦ã—ã¦ã¿ãŸã€‚ Remedie æ¦‚è¦ ( From Google Code) æ‰‹æŠœãã§ã”ã‚ã‚“ãªã•ã„ã€‚Remedie is a perl based media center application with pluggable architecture. You can subscribe to videocast feeds, watch local folder with media files and keep track of your favorite video sites like YouTube, Nico Nico Douga or Hulu. It works as a
kaz_goto 2008/11/17
remedie

plagger

perl
ãƒªãƒ³ã‚¯
Google Code Archive - Long-term storage for Google Code Project Hosting.
Code Archive Skip to content Google About Google Privacy Terms
kaz_goto 2008/11/17
video

software

plagger

perl

media

remedie
ãƒªãƒ³ã‚¯
Template Toolkit Home Page
BackHello, I'm a talking badger. UpMy name is Meles Meles, but you can call me "Badger". NextAbout the Template Toolkit The Badger Book The Template Toolkit is a fast, flexible and highly extensible template processing system. It is Free (in both senses: free beer and free speech), Open Source software and runs on virtually every modern operating system known to man. It is mature, reliable and wel
kaz_goto 2008/11/17
perl

template-toolkit
ãƒªãƒ³ã‚¯
Devel::Profiler ã‚’ä½¿ã£ã¦ã‚¹ã‚¯ãƒªãƒ—ãƒˆã®ãƒãƒ¥ãƒ¼ãƒ‹ãƒ³ã‚°å®Ÿè·µç·¨
Sledge ãƒ•ãƒ¬ãƒ¼ãƒ ãƒ¯ãƒ¼ã‚¯è‡ªèº«ãŒé‡ããªã„ã“ã¨ã¯ä»Šã¾ã§ã®çµŒé¨“ã§ã‚ã‹ã£ã¦ã‚‹ã®ã§ã™ãŒã€ã©ã†ã«ã‚‚ã‚½ãƒ¼ã‚¹ã‚’è¦‹ç›´ã—ã¦ã„ã‚‹ã ã‘ã§ã¯åŽŸå› ãŒç‰¹å®šã§ããªã„ãƒ»ãƒ»ãƒ»ãã‚“ãªæ´»èºã™ã‚‹ã®ãŒãƒ—ãƒãƒ•ã‚¡ã‚¤ãƒ©ã§ã™ã€‚ãƒ—ãƒãƒ•ã‚¡ã‚¤ãƒ©ã®å¾¡é™°ã§é…ã„ãƒ¶æ‰€ã‚’ç‰¹å®šã™ã‚‹ã“ã¨ãŒã§ãã€ç„¡äº‹ã«æƒ³å®šã™ã‚‹ãƒ‘ãƒ•ã‚©ãƒ¼ãƒžãƒ³ã‚¹ã‚’å¾—ã‚‹ã“ã¨ãŒã§ãã¾ã—ãŸã€‚ã“ã®å†…å®¹ã«é–¢ã—ã¦ã¯ã¾ãŸåˆ¥ã‚¨ãƒ³ãƒˆãƒªã«ã¦ã€‚ ã¨æ›¸ãã¾ã—ãŸãŒã€ãƒ—ãƒãƒ•ã‚¡ã‚¤ãƒ©ä½¿ã£ã¦ã„ã‚ã„ã‚è¦‹ã¤ã‹ã£ãŸãƒ‘ãƒ•ã‚©ãƒ¼ãƒžãƒ³ã‚¹åŠ£åŒ–ã‚’æ‹›ããƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã«ã¤ã„ã¦å°‘ã—ã ã‘ã¾ã¨ã‚ã¦ã¿ã¾ã—ãŸã€‚ã‚‚ã¡ã‚ã‚“å…¨ã¦ã®ç’°å¢ƒã§åŒã˜çµæžœã«ãªã‚‹ã¨ã¯é™ã‚Šã¾ã›ã‚“ã—ã€åƒ•ãŒæ›¸ã„ã¦ã‚‹ã‚¢ãƒ—ãƒªã«ä¾å˜ã—ã¾ãã£ã¦ã„ã‚‹å‰æã§ã™ãŒã€ä½•ã‹ã®å‚è€ƒã«ãªã‚Œã°ã¨ã€‚ æƒ³å®šã—ã¦ã„ãŸãƒ‘ãƒ•ã‚©ãƒ¼ãƒžãƒ³ã‚¹ã‚ˆã‚Šï¼‘ï¼å€é…ã„çŠ¶æ…‹ã®æ™‚ã® Devel::Profiler ã®çµæžœã¯ä»¥ä¸‹ã«ç¤ºã™ã¨ãŠã‚Šã€‚ Log::Dispatch::Config::config_dispatcher ãŒå…¨ä½“ã® 50% ç¨‹åº¦ã‚‚å ã‚ã¦ã„ã¾ã™ã€‚ã
kaz_goto 2008/11/14
perl

performance-tuning
ãƒªãƒ³ã‚¯
tokuhirom blog
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
kaz_goto 2008/11/13
perl

web

framework
ãƒªãƒ³ã‚¯
NanoB ã¨ã„ã†ã‚¦ã‚§ãƒ–ã‚¢ãƒ—ãƒªã‚±ã‚·ãƒ§ãƒ³ãƒ•ãƒ¬ãƒ¼ãƒ ãƒ¯ãƒ¼ã‚¯æ›¸ã„ãŸ - kazuhoã®ãƒ¡ãƒ¢ç½®ãå ´
MENTA (http://d.hatena.ne.jp/tokuhirom/20081112/1226460761) ã¯äº‹å‰ã‚³ãƒ³ãƒ‘ã‚¤ãƒ«åž‹ã ã‘ã©ã€ã‚ãƒ£ãƒƒã‚·ãƒ¥æ–¹å¼ã§ã©ã“ã¾ã§ãƒ‘ãƒ•ã‚©ãƒ¼ãƒžãƒ³ã‚¹ãŒå‡ºã‚‹ã‹ã€‚ã¨åŒæ™‚ã«ã€CGI ã§æœ€é€Ÿ WAF ã‚’ä½œã‚ã†ã¨æ€ã†ã¨ã€ã‚³ãƒ³ãƒˆãƒãƒ¼ãƒ©æ¯Žã« index.cgi ã‚’ç”Ÿæˆã™ã‚‹ã®ãŒä¸€ç•ªé€Ÿã„ã ã‚ã†ã¨ã„ã†ã®ã¯ã€åˆæ„ãŒå¾—ã‚‰ã‚Œã‚‹ã¨ã“ã‚ã ã‚ã†ã€‚ã¨ã„ã†ã‚ã‘ã§ã€apache ã®ãƒªã‚¯ã‚¨ã‚¹ãƒˆã«å¿œã˜ã¦ã€cgi ã‚’å‹•çš„ã«ç”Ÿæˆï¼æ›´æ–°ã™ã‚‹ã‚¦ã‚§ãƒ–ã‚¢ãƒ—ãƒªã‚±ãƒ¼ã‚·ãƒ§ãƒ³ãƒ•ãƒ¬ãƒ¼ãƒ ãƒ¯ãƒ¼ã‚¯ã‚’ä½œã£ã¦ã¿ã¾ã—ãŸã€‚ã‚ãã¾ã§ã‚‚è©•ä¾¡ç›®çš„ (ï¼ãƒã‚¿) ãªã®ã§ã€åå‰ã‚‚ NanoB ã¨ã„ã†ã‚„ã‚‹æ°—ã®ãªã„ã‚‚ã®ã€‚ çµè«–ï¼š ã‚„ã‚„å¤ã„ MENTA ã«å¯¾ã—ã¦ 13% å¢—ã®é€Ÿåº¦ (156.67 reqs/s vs. 138.27 reqs/s) å–ã£ãŸæ‰‹æ³•ã¨ã—ã¦ã¯ã€ä»¥ä¸‹ã®ã¨ãŠã‚Šã€‚ CGI ç”Ÿæˆ CGI ãŒã€cache ãƒ‡ã‚£ãƒ¬ã‚¯ãƒˆãƒªä»¥ä¸‹ã«ã‚³ãƒ³ãƒˆãƒãƒ¼
kaz_goto 2008/11/13
perl

web

framework
ãƒªãƒ³ã‚¯
YappoLogs: Yacafi ã¨ã„ã†è»½é‡CGIãƒ•ãƒ¬ãƒ¼ãƒ ãƒ¯ãƒ¼ã‚¯æ›¸ã„ãŸã‚ˆ
Yacafi ã¨ã„ã†è»½é‡CGIãƒ•ãƒ¬ãƒ¼ãƒ ãƒ¯ãƒ¼ã‚¯æ›¸ã„ãŸã‚ˆ MENTA ã¨ã„ã†ã‚¦ã‚§ãƒ–ã‚¢ãƒ—ãƒªã‚±ãƒ¼ã‚·ãƒ§ãƒ³ãƒ•ãƒ¬ãƒ¼ãƒ ãƒ¯ãƒ¼ã‚¯ã‚’ã‹ã„ã¦ã¿ãŸ - TokuLog æ”¹ã‚Bæ—¥è¨˜ã‚„ã‚‰NanoA ã¨ã„ã†ã‚¦ã‚§ãƒ–ã‚¢ãƒ—ãƒªã‚±ãƒ¼ã‚·ãƒ§ãƒ³ãƒ•ãƒ¬ãƒ¼ãƒ ãƒ¯ãƒ¼ã‚¯ã‚’ã‹ã„ã¦ã¿ãŸ - id:kazuhookuã®ãƒ¡ãƒ¢ç½®ãå ´ã‚„ã‚‰ã¨è»½é‡CGIãƒ•ãƒ¬ãƒ¼ãƒ ãƒ¯ãƒ¼ã‚¯ä½œã‚ŠãŒæµè¡Œã£ã¦ã‚‹ã‚ˆã†ãªã®ã§æ˜¼é£¯é£Ÿã£ãŸå¾Œã«20åˆ†ãã‚‰ã„ã§æ›¸ã„ãŸã‚ˆã€‚ Yacafi(Yet another CGI application framework interface)ã¨è¨€ã„ã¾ã™ã€‚ http://svn.coderepos.org/share/lang/perl/Yacafi/trunkã‹ã‚‰svn coã§ãã‚‹ã‘ã©ã€Yacafiã¯ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ä¸€å€‹ã ã‘ã‚ã‚Œã°å‹•ãã‚ˆã†ã«ã—ã¦ã‚ã‚‹ã®ã§http://svn.coderepos.org/share/lang/perl/Yacafi/trunk/lib/Yac
kaz_goto 2008/11/13
perl

web

framework
ãƒªãƒ³ã‚¯
ç·¨é›†è·é›¢ï¼ˆãƒ¬ãƒ¼ãƒ™ãƒ³ã‚·ãƒ¥ã‚¿ã‚¤ãƒ³è·é›¢ï¼‰ã®è¨ˆç®— - Ceekz Logs (Move to y.ceek.jp)
æ–‡å—åˆ—é–“ã®é¡žä¼¼åº¦ã‚’æ±‚ã‚ã‚‹æ–¹æ³•ã®ä¸€ã¤ã¨ã—ã¦ã€ç·¨é›†è·é›¢ãŒæŒ™ã’ã‚‰ã‚Œã¾ã™ã€‚ç·¨é›†è·é›¢ã¯ã€è€ƒæ¡ˆè€…ã«ã¡ãªã¿ãƒ¬ãƒ¼ãƒ™ãƒ³ã‚·ãƒ¥ã‚¿ã‚¤ãƒ³è·é›¢ã¨ã‚‚å‘¼ã°ã‚Œã¾ã™ãŒã€å…·ä½“çš„ã«ã¯ã€æŒ¿å…¥ã‚„å‰Šé™¤ã€ç½®æ›ã«ã‚ˆã£ã¦ã€ä¸€æ–¹ã®æ–‡å—åˆ—ã‹ã‚‰ä»–æ–¹ã®æ–‡å—åˆ—ã«å¤‰æ›ã™ã‚‹ãŸã‚ã«å¿…è¦ãªä½œæ¥ã®æœ€å°å›žæ•°ã§ã™ã€‚ use List::Util; sub levenshtein_distance { my ($list_1, $list_2) = @_; my $len_1 = scalar(@{$list_1}); my $len_2 = scalar(@{$list_2}); my @d; foreach my $i (0 .. $len_1) { $d[$i][0] = $i; } foreach my $j (0 .. $len_2) { $d[0][$j] = $j; } foreach my $i (1 .. $len_1) { foreach my
kaz_goto 2008/11/12
textmining

algorithm

perl
ãƒªãƒ³ã‚¯
Perl ã‚¹ã‚¯ãƒªãƒ—ãƒˆã§é…ã„å ´æ‰€ã‚’ç‰¹å®šã™ã‚‹æ–¹æ³• - Devel::Profiler / Devel::NYTProf
ä»Šä»•äº‹ã§æ›¸ã„ã¦ã‚‹ Sledge ã‚¢ãƒ—ãƒªãŒã‚ã‚‹ã®ã§ã™ãŒã€å…ˆæ—¥è² è·ãƒ†ã‚¹ãƒˆã‚’è¡Œã£ãŸçµæžœã³ã£ãã‚Šã™ã‚‹ã“ã¨ã«ç¾è¡Œã‚¢ãƒ—ãƒªã®ï¼‘ï¼å€é…ã„ã“ã¨ãŒåˆ¤æ˜Žã—ã¦ã—ã¾ã„ã¾ã—ãŸãƒ»ãƒ»ãƒ»orz Sledge ãƒ•ãƒ¬ãƒ¼ãƒ ãƒ¯ãƒ¼ã‚¯è‡ªèº«ãŒé‡ããªã„ã“ã¨ã¯ä»Šã¾ã§ã®çµŒé¨“ã§ã‚ã‹ã£ã¦ã‚‹ã®ã§ã™ãŒã€ã©ã†ã«ã‚‚ã‚½ãƒ¼ã‚¹ã‚’è¦‹ç›´ã—ã¦ã„ã‚‹ã ã‘ã§ã¯åŽŸå› ãŒç‰¹å®šã§ããªã„ãƒ»ãƒ»ãƒ»ãã‚“ãªæ´»èºã™ã‚‹ã®ãŒãƒ—ãƒãƒ•ã‚¡ã‚¤ãƒ©ã§ã™ã€‚ãƒ—ãƒãƒ•ã‚¡ã‚¤ãƒ©ã®å¾¡é™°ã§é…ã„ãƒ¶æ‰€ã‚’ç‰¹å®šã™ã‚‹ã“ã¨ãŒã§ãã€ç„¡äº‹ã«æƒ³å®šã™ã‚‹ãƒ‘ãƒ•ã‚©ãƒ¼ãƒžãƒ³ã‚¹ã‚’å¾—ã‚‹ã“ã¨ãŒã§ãã¾ã—ãŸã€‚ã“ã®å†…å®¹ã«é–¢ã—ã¦ã¯ã¾ãŸåˆ¥ã‚¨ãƒ³ãƒˆãƒªã«ã¦ã€‚ ã•ã¦ã€ãƒ—ãƒãƒ•ã‚¡ã‚¤ãƒ©ã‚’ä½¿ã†ã¨ãƒ—ãƒã‚°ãƒ©ãƒ å®Ÿè¡Œæ™‚ã®å„ç¨®æƒ…å ±ã‚’åŽé›†ã—ã€æ€§èƒ½è§£æžã‚’è¡Œã†ã“ã¨ãŒå¯èƒ½ã§ã™ã€‚ãƒ—ãƒãƒ•ã‚¡ã‚¤ãƒ©ã«ã¤ã„ã¦ã‚‚ã†å°‘ã—è©³ã—ãã—ã‚‹ã«ã¯ã€€æ€§èƒ½è§£æž - Wikipediaã€€ã‚ãŸã‚Šã‚’èªã‚€ã¨è‰¯ã„ã§ã—ã‚‡ã†ã€‚ ãƒ—ãƒãƒ•ã‚¡ã‚¤ãƒ©ï¼ˆè‹±: Profilerï¼‰ã¯æ€§èƒ½è§£æžãƒ„ãƒ¼ãƒ«ã§ã‚ã‚Šã€ãƒ—ãƒã‚°ãƒ©ãƒ å®Ÿè¡Œæ™‚ã®å„ç¨®æƒ…å ±ã‚’åŽé›†ã™ã‚‹ã€‚ç‰¹ã«ã€é–¢æ•°å‘¼ã³å‡ºã—ã®
kaz_goto 2008/11/10
perl

performance-tuning
ãƒªãƒ³ã‚¯
Plaggerã§Twitterã‹ã‚‰Tumblrã¸Favã‚’æµã™ - As a Futurist...
æ›¸ãç›´ã—ã¾ã—ãŸï¼ ã‚ã–ã‚ã–ãƒã‚°ã‚¤ãƒ³ã—ãªãã¦ã‚‚ Fav ã®ãƒ•ã‚£ãƒ¼ãƒ‰ã¯å–ã‚Œã‚‹ã®ã§æ›¸ãç›´ã—ã¾ã—ãŸï¼ Plagger ä½¿ã£ã¦ Twitter ã® Fav ã‚„ãµãã¼ã£ãŸãƒ¼ã‚’ Tumblr ã«æµã™ãƒ—ãƒ©ã‚°ã‚¤ãƒ³ä½œã£ãŸã‚ˆ â€“ As a Futuristâ€¦ ãšã£ã¨ã‚„ã‚ŠãŸã‹ã£ãŸã“ã¨ã‚’ã‚„ã£ã¦ã—ã¾ã„ã¾ã—ãŸï¼Žåƒ•ã¯ Twitter ã‚’è¦‹ã¦ã„ã‚‹ã¨ãã«ã€Œã“ã‚Œã¯ç§€é€¸ï½—ï½—ï½—ã€ã¨ã„ã† ãƒã‚¹ãƒˆãŒã‚ã£ãŸã‚‰ã¡ã‚‡ãã¡ã‚‡ã Fav ã—ã¦ã„ã¾ã™ï¼Žã§ãã‚Œã°å¤šãã®äººã«ã“ã‚Œã‚‰ã®å„ªã‚ŒãŸãƒã‚¹ãƒˆã‚’è¦‹ã¦æ¬²ã—ã„ã®ã§ã™ãŒ ã†ã¾ã„ã‚„ã‚Šæ–¹ãŒãªãã¦ï¼Œãã‚Œã ã£ãŸã‚‰ Tumblr ã«æµã—ã¦ã—ã¾ãˆã°ã„ã„ã˜ã‚ƒãªã„ã‹ã¨æ€ã£ãŸæ¬¡ç¬¬ã§ã™ï¼Ž å®Ÿéš›ï¼ŒTumblr ã«ã¯ Tombloo çµŒç”±ã§æµã‚Œã¦ãã‚‹ãƒã‚¹ãƒˆãŒçµæ§‹ã‚ã‚Šã¾ã™ï¼Žã¾ã•ã‹è‡ªåˆ†ã§ Fav ã—ãŸãƒã‚¹ãƒˆã‚’ é–‹ã„ã¦ Tombloo ã™ã‚‹ã¨ã‹ã¯ã‚ã‚Šãˆãªã„ã®ã§ï¼Œã“ã“ã¯ Plagger ã¨ã„ãã¾ã—ã‚‡ã†ï¼Ž Twitter ã®è‡ªåˆ†ã® Fav
kaz_goto 2008/11/09
twitter

plagger

perl
ãƒªãƒ³ã‚¯
ã‚³ã‚µã‚¤ãƒ³å°ºåº¦ï¼ˆã‚³ã‚µã‚¤ãƒ³é¡žä¼¼åº¦ï¼‰ã®è¨ˆç®— - Ceekz Logs (Move to y.ceek.jp)
æ–‡æ›¸é–“ã®é¡žä¼¼åº¦ã‚’æ±‚ã‚ã‚‹æ–¹æ³•ã®ä¸€ã¤ã¨ã—ã¦ã€ã‚³ã‚µã‚¤ãƒ³å°ºåº¦ãŒæŒ™ã’ã‚‰ã‚Œã¾ã™ã€‚ã‚³ã‚µã‚¤ãƒ³å°ºåº¦ã¨ã¯ã€2ã¤ã®ãƒ™ã‚¯ãƒˆãƒ«ã®ãªã™è§’åº¦ã§ã‚ã‚Šã€æ–‡æ›¸ã‚’ãƒ™ã‚¯ãƒˆãƒ«åŒ–ã™ã‚‹ã“ã¨ã«ã‚ˆã‚Šã€æ–‡æ›¸é–“ã®é¡žä¼¼åº¦ã‚’æ±‚ã‚ã‚‹ã“ã¨ãŒå‡ºæ¥ã¾ã™ã€‚ sub cosine_similarity { my ($vector_1, $vector_2) = @_; my $inner_product = 0.0; map { if ($vector_2->{$_}) { $inner_product += $vector_1->{$_} * $vector_2->{$_}; } } keys %{$vector_1}; my $norm_1 = 0.0; map { $norm_1 += $_ ** 2 } values %{$vector_1}; $norm_1 = sqrt($norm_1); my $norm_2 = 0.0; map { $nor
kaz_goto 2008/11/05
algorithm

perl
ãƒªãƒ³ã‚¯
Mojolicious Web Framework
Did everything just taste purple for a second? Mojolicious is a fresh take on Perl web development, based on years of experience developing the Catalyst framework, and utilizing the latest web standards and techno logies. You can get started with your project quickly, with a framework that grows with your needs. The Mojo stack provides a consistent set of components that can be used in any project.
kaz_goto 2008/11/05
ã¾ã é–‹ç™ºä¸ã¿ãŸã„ã ã‘ã©æ–°ã—ã„ã‚¦ã‚§ãƒ–ã‚¢ãƒ—ãƒªãƒ•ãƒ¬ãƒ¼ãƒ ãƒ¯ãƒ¼ã‚¯ã¿ãŸã„

perl

fra
ãƒªãƒ³ã‚¯
remedie - file-glob ã“ã¨ k.daibaã®æ—¥è¨˜
ãƒ¡ãƒ¢ãƒ¡ãƒ¢ å®®å·ã•ã‚“ã«remedieã£ã¦"Pluggable media center application"ã®project memberã«åŠ ãˆã¦ã‚‚ã‚‰ã£ãŸã®ã§ï¼Œè‡ªåˆ†ãªã‚‰ã©ã‚“ãªä½œã‚Šã«ãªã‚‹ã®ã‹è€ƒãˆã¦ã‚‹ã¨ã“ã‚ ã‚·ãƒŠãƒªã‚ª ã“ã‚“ãªæ„Ÿã˜ã®ã“ã¨ãŒã§ãã‚Œã°ã„ã„ã®ã‹ãª è¨å®šãƒ•ã‚¡ã‚¤ãƒ«ã§ã©ã“ã‚’å·¡å›žã™ã‚‹ã®ã‹è¨˜è¼‰ã—ã¦ãŠãã¨ å®šæœŸçš„ã«å·¡å›žã—ã¦ãã®ã‚µã‚¤ãƒˆã®æœ€æ–°æƒ…å ±ã‚’å–å¾—ã™ã‚‹ å–å¾—ã—ãŸæœ€æ–°æƒ…å ±ãŒæ—¢çŸ¥ã§ã‚ã‚Œã°å»ƒæ£„ã—ï¼Œæ–°è¦ã§ã‚ã‚Œã°ç™»éŒ²ã™ã‚‹ ç™»éŒ²ã—ãŸæƒ…å ±ã‚’ãƒ¦ãƒ¼ã‚¶ã«ä¸€è¦§è¡¨ç¤ºã—ï¼Œãƒ¦ãƒ¼ã‚¶ãŒï¼š æ—¢èªãƒ•ãƒ©ã‚°ã‚’ä»˜ã‘ãŸå ´åˆã¯ï¼Œã‚‚ã†è¡¨ç¤ºã—ãªã„ æœªèªãƒ•ãƒ©ã‚°ã‚’ä»˜ã‘ãŸå ´åˆã¯ï¼Œæ¬¡å›žã‚‚è¡¨ç¤ºã™ã‚‹ ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ãƒ•ãƒ©ã‚°ã‚’ä»˜ã‘ãŸå ´åˆã¯ï¼ŒæŒ‡å®šã®ï¼ˆã‚½ãƒ¼ã‚·ãƒ£ãƒ«ï¼‰ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ã«ç™»éŒ²ã— ä¿å˜ãƒ•ãƒ©ã‚°ã‚’ä»˜ã‘ãŸå ´åˆã¯ï¼ŒDLNAã‚µãƒ¼ãƒã«ã‚³ãƒ³ãƒ†ãƒ³ãƒ„ã”ã¨ä¿å˜ å†ç”Ÿãƒ•ãƒ©ã‚°ã‚’ä»˜ã‘ãŸå ´åˆã¯ï¼Œãƒ¦ãƒ¼ã‚¶ãŒåˆ©ç”¨ã™ã‚‹ãƒ„ãƒ¼ãƒ«ã«ä½µã›ãŸå½¢å¼ã§æƒ…å ±æä¾› DLNAã‚µãƒ¼ãƒã‚‚å·¡å›žå¯¾è±¡ã«ãªã£ã¦ã„ã‚‹ ã“ã†è€ƒãˆã‚‹ã¨
kaz_goto 2008/11/03
perl

dlna
ãƒªãƒ³ã‚¯
Affelio - -The Open Social Network-
Affelio(ã‚¢ãƒ•ã‚§ãƒªã‚ª)ã¯ã€ã‚ãªãŸã®å‹ã ã¡é–¢ä¿‚ã«ã€Œå®‰å¿ƒã€ã€Œæ¥½ã—ã•ã€ã€Œä¾¿åˆ©ã•ã€ã‚’æ•™ãˆã¦ãã‚Œã‚‹ã€æ–°ã—ã„SNSã®ã—ãã¿ã§ã™ã€‚Affelioã¯ã€ä¸€è¨€ã§è¨€ãˆã°ã€ŒMixiã‚„GREEã®ä¸ã ã‘ã§ãªãã€ã‚¤ãƒ³ã‚¿ãƒ¼ãƒãƒƒãƒˆä¸å…¨ä½“ã‚’SNSã«ã—ã¦ã—ã¾ãŠã†ã‚ˆï¼ã€ã¨ã„ã†ã‚ˆã†ãªä»•çµ„ã¿ã§ã™ã€‚ ä»Šç¾åœ¨ã©ã‚“ã©ã‚“ãƒ¦ãƒ¼ã‚¶ãƒ¼æ•°å¢—åŠ ä¸ã§ã™ã‚ˆï¼ã‚ãªãŸã‚‚ã¯ã˜ã‚ã¦ã¿ã¾ã—ã‚‡ã†ï¼æœ¬å½“ã®SNSï¼ Affelioã£ã¦ã©ã‚“ãªã‚‚ã®ï¼Ÿ Affelioã¯ã€GREEã‚„Mixiãªã©ã®æ—¢å˜ã®ã„ã‚ã‚†ã‚‹ã€ŒSNSã€ã¨ã¯ã¾ã£ãŸãé•ã†ã€æ¬¡ä¸–ä»£ã®SNSã®ã—ãã¿ã§ã™ã€‚ Mixiãªã©ã®SNSã§ã¯ã€è‡ªåˆ†ã®ãƒ—ãƒãƒ•ã‚£ãƒ¼ãƒ«ï¼æ—¥è¨˜ãªã©ã‚’Mixi.jpã®ä¸ã«é›†ä¸çš„ã«ä½œã‚Šã¾ã™ãŒã€Affelioã‚’ä½¿ãˆã°ã€ã‚ãªãŸã®ã€ŒAffelioãƒšãƒ¼ã‚¸ã€ã‚’ ã‚¤ãƒ³ã‚¿ãƒ¼ãƒãƒƒãƒˆä¸ã©ã“ã§ã‚‚ã€å¥½ããªWebã‚¹ãƒšãƒ¼ã‚¹ã«ä½œã‚‹ã“ã¨ãŒã§ãã¾ã™ï¼ ãã—ã¦è‡ªåˆ†ã®Affelioãƒšãƒ¼ã‚¸ã¨å‹é”ã®Affelioã‚’ãƒšãƒ¼ã‚¸ã‚’Affelioç‹¬è‡ªã®
kaz_goto 2008/11/02
sns

open

source

perl
ãƒªãƒ³ã‚¯
mizzy.org : Catalystã§ajax - å®Ÿè·µç·¨
Catalystã§ajax - å®Ÿè·µç·¨ Posted by Gosuke Miyashita Sat, 30 Apr 2005 13:28:59 GMT æ¦‚è¦ å‰å›žã®ã‚¨ãƒ³ãƒˆãƒªã«é–¢ã—ã¦ã€MM/Memoã§ã€ã€Œã†ãƒ¼ã‚“ã€ä¾¿åˆ©ãªã®ã‹ãªãƒ¼ã€‚perlï¼ˆã¨ã‹ã®ã‚µãƒ¼ãƒã‚µã‚¤ãƒ‰ï¼‰ã‚³ãƒ¼ãƒ‰ä¸ã«javascriptãŒæ··ã–ã‚‹ã®ã£ã¦å«Œãªæ°—ãŒã™ã‚‹ã‘ã©ã€‚ã€ã¨æ›¸ã„ã¦ã„ã‚‹æ–¹ãŒã„ã‚‰ã£ã—ã‚ƒã£ãŸã®ã§ã™ãŒã€ã¡ã‚‡ã£ã¨å‹˜é•ã„ã‚’ã•ã‚Œã¦ã„ã‚‹ã‚ˆã†ãªæ°—ãŒã—ã¾ã™ã€‚è‡ªåˆ†ã§Javascriptã®ã‚³ãƒ¼ãƒ‰ã‚’ä¸€åˆ‡æ›¸ã‹ãšã«æ¸ˆã¾ã›ã‚‹ãŸã‚ã®ã€HTML::Prototypeãªã‚‰ã³ã«Catalyst::Plugin::Prototypeã§ã™ã‹ã‚‰ã€‚ ãªã®ã§ã€ä»Šå›žã¯å®Ÿè·µç·¨ã£ã¤ãƒ¼ã“ã¨ã§ã€Javascriptã‚’ä¸€åˆ‡æ›¸ã‹ãšã«ajaxãªã‚¦ã‚§ãƒ–ã‚¢ãƒ—ãƒªï¼ˆã£ã¦ã»ã©ã®ã‚‚ã®ã§ã¯ãªã„ã‘ã©ï¼‰ã‚’Catalystã§ä½œã£ã¦ã¿ãŸã„ã¨æ€ã„ã¾ã™ã€‚ã¨ã„ã£ã¦ã‚‚ã€ã‘ã‚“ãŸã‚ã•ã‚“ã®Catalyst ã§ä½œã‚‹ç°¡å˜ Web
kaz_goto 2008/11/02
catalyst

perl

ajax
ãƒªãƒ³ã‚¯
Any-Template-1.015
Tools Download (16.44KB) MetaCPAN Explorer Permissions Subscribe to distribution Install Instructions Dependencies File::Spec Log::Trace Test::Assertions Test::More and possibly others Reverse dependencies CPAN Testers List Dependency graph Permalinks This version Latest version
kaz_goto 2008/11/02
perl

cpan
ãƒªãƒ³ã‚¯
http://antipop.zapto.org/mt/archives/001280.php
kaz_goto 2008/11/02
catalyst

perl

ajax
ãƒªãƒ³ã‚¯
EUC ã®æ£è¦è¡¨ç¾ - Ceekz Logs (Move to y.ceek.jp)
æœ€è¿‘ã¯ã€ãƒ‹ãƒ¥ãƒ¼ã‚¹æ¤œç´¢ã«æ–°ãŸãªæ©Ÿèƒ½ã‚’è¿½åŠ ã—ã‚ˆã†ã¨è©¦è¡ŒéŒ¯èª¤ã—ã¦ã„ã¾ã™ã€‚ EUC ã®æ–‡å—åˆ—ãŒæ–‡å—åŒ–ã‘ã—ã¦ã„ãªã„ã‹ã©ã†ã‹ã‚’ãƒã‚§ãƒƒã‚¯ã™ã‚‹å¿…è¦ãŒã‚ã‚Šã¾ã—ãŸã€‚ãƒã‚§ãƒƒã‚¯è‡ªä½“ã¯é›£ã—ããªãã€å˜ã« EUC ã®ç¯„å›²å¤–ã®æ–‡å—ãŒå«ã¾ã‚Œã¦ã„ã‚‹ã‹ã©ã†ã‹ã‚’èª¿ã¹ã‚Œã°ã‚ˆã„ã®ã§ã™ã€‚ EUC ã® 1byte æ–‡å—ã¯ã€ä»¥ä¸‹ã®ã‚ˆã†ã«è¡¨ç¾ã™ã‚‹ã“ã¨ãŒå‡ºæ¥ã¾ã™ã€‚ã¨ã„ã†ã‹ã€ã™ã¹ã¦ã® ASCII æ–‡å— ã¯ã“ã‚Œã€‚ [\x00-\x7F] ã—ã‹ã—ã€ã‚ˆãã‚ˆãè€ƒãˆã‚‹ã¨ã€ã“ã®è¡¨ç¾ã«ã¯åˆ¶å¾¡æ–‡å—ã‚‚å«ã¾ã‚Œã¦ã„ã‚‹ã‚“ã§ã™ã‚ˆãã€‚ãªã®ã§ã€ã“ã®ã¾ã¾ãƒžãƒƒãƒã•ã›ã‚‹ã¨æ–‡å—åŒ–ã‘ã‚’ç™ºè¦‹ã™ã‚‹ã“ã¨ãŒå‡ºæ¥ãªã„ã‚ã‘ã§ã™ã€‚ãªã®ã§ã€åˆ¶å¾¡æ–‡å—ã‚’é™¤ã„ã¦ãƒžãƒƒãƒã•ã›ã‚‹ã®ãŒå‰ã ã¨æ€ã†ã€‚ [\x20-\x7E] ã¨ã„ã†ã“ã¨ã§ã€åƒ•ã¯ã€ä»¥ä¸‹ã®ã‚ˆã†ã«å®šç¾©ã—ã¦æ–‡å—åŒ–ã‘ãŒç„¡ã„ã‹ã©ã†ã‹ã‚’èª¿ã¹ã¦ã„ã¾ã™ã€‚ $euc = '[\x20-\x7E]|[\x8E\xA1-\xFE][\xA1-\xFE]|\x8F[\xA1-
kaz_goto 2008/11/02
regexp

euc-jp

perl
ãƒªãƒ³ã‚¯
DBIx::MoCo ã‚’ãªã‚“ã¨ãªãæŠŠæ¡ - Yappo::ã‚¿ãƒ¯ã‚·
ã‚½ãƒ¼ã‚¹èªã‚“ã ã ã‘ã ã‘ã©ï¼žï¼œ moco ã® session ã¯ã€ç‰¹å®šã®ç¯„å›²ã§ä½¿ã‚ã‚Œã‚‹cacheã®ã‚ˆã†ãªç‰©ãŒã‚ã‚‹ã€‚ é€šå¸¸ã®Cacheã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã‚ˆã‚Šã‚‚å„ªå…ˆçš„ã«ä½¿ã‚ã‚Œã‚‹ã€‚ __PACKAGE__->is_in_session ã§ã€ç¾åœ¨ã®ã‚»ãƒƒã‚·ãƒ§ãƒ³ã®ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã‚’ã¨ã‚‹ã‚ˆã€‚ session ã¯å¤‰æ›´ã®ã‚ã£ãŸrowã‚’ä¿å˜ã—ã¨ã„ã¦ãã‚Œã¦ã€end_sessionã®æ™‚ã«ã¾ã¨ã‚ã¦saveã—ã¦ãã‚Œã‚‹ã€‚ object_id ãŒå„ãƒ¬ã‚³ãƒ¼ãƒ‰ã®ãƒ¦ãƒ‹ãƒ¼ã‚¯ãªkeyã‚’ä½œã‚Œã‚‹ã¨ã€‚ retrieveã€€ã¯å¼•æ•°ã‹ã‚‰ object_id ã‚’ä½œã£ã¦ã‚ãƒ£ãƒƒã‚·ãƒ¥ã‚’å¼•ã„ã¦ã‚‹ã€‚ã‚ãƒ£ãƒƒã‚·ãƒ¥ç„¡ã‘ã‚Œã°retrieve_by_db ã§DBã‹ã‚‰å¼•ã„ã¦ã‚ãƒ£ãƒƒã‚·ãƒ¥ã«æŠ•å…¥ã€‚DBãŒnullè¿”ã—ã¦ãã¦ã‚‚åŸºæœ¬çš„ã«ã¯nullã‚’ã‚ãƒ£ãƒƒã‚·ãƒ¥ã™ã‚‹ã€‚ retrieve_multi ã¯ã‚ãƒ£ãƒƒã‚·ãƒ¥ã‹ã‚‰å¼•ã„ã¦ãã¦ã‚ãƒ£ãƒƒã‚·ãƒ¥ã«ãªã„object_idã¯DBã‹ã‚‰ã¨ã£ã¦ãã‚‹ã€‚ retriev
kaz_goto 2008/10/29
perl

moco
ãƒªãƒ³ã‚¯
ORMã‚’ä½œã‚‹ãŸã‚ã«æœ€ä½Žé™å¿…è¦ãª4+1ã®ã‚³ãƒ³ãƒãƒ¼ãƒãƒ³ãƒˆ - Yappo::ã‚¿ãƒ¯ã‚·
çŸæœŸé–“ã§CPANã«ä¸ŠãŒã£ã¦ã‚‹åãŒé€šã£ãŸO/Rãƒžãƒƒãƒ‘+Î±ã‚’ç›®ã‚’é€šã—ã¦ã€ORMãƒžãƒƒãƒ‘ã®å¿…è¦æœ€ä½Žé™ãªã‚³ãƒ³ãƒãƒ¼ãƒãƒ³ãƒˆã‚’æ•´ç†ã—ãŸã€‚ã¶ã£ã¡ã‚ƒã‘ã‚‚ã£ã¨å‰Šã£ã¦ã‚‚è‰¯ã„ãŒä¸€èˆ¬çš„ã«ã™ã‚‹ãŸã‚ã«ã‚‚ãƒªã‚¹ãƒˆã‚¢ãƒƒãƒ—ã€‚ ORM åŸºå¹¹çš„ãªã‚¯ãƒ©ã‚¹ã§ä½¿ã„æ–¹ã¯ORMã«ã‚ˆã‚Šã‘ã‚Šã§ã€ç‰¹ã«ç„¡ãã¦ã‚‚è‰¯ã„ã€‚ ORM::Schema ãƒ†ãƒ¼ãƒ–ãƒ«å®šç¾©ã‚’è¡Œã†å ´æ‰€ã€‚ç‰©ã«ã‚ˆã£ã¦ã¯ãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹ã®å®šç¾©ã ã‘è¡Œã£ã¦ã€‚ãƒ†ãƒ¼ãƒ–ãƒ«ã®å®šç¾©ã¯ORM::Tableçš„ãªç‰©ã§è¡Œã†ã€‚ ã©ã£ã¡ã«ã—ã‚ãƒ†ãƒ¼ãƒ–ãƒ«ã®å®šç¾©ã«ã¯å¤‰ã‚ã‚‰ãªã„ã€‚ å¤§ã–ã£ã±ã«è¨€ã†ã¨ã€ã“ã®ã‚¯ãƒ©ã‚¹ã‹ã‚‰selectç³»ã®ãƒ¡ã‚½ãƒƒãƒ‰ãŒç”Ÿãˆã¦ã„ã‚‹ã€‚ ORM::Iterator çµæžœã®è¡Œã‚’å–ã‚Šæ‰±ã†ã‚¤ãƒ†ãƒ¬ãƒ¼ã‚¿ã€‚ DBICãªã‚‰DBIx::Class::Cursorã«ãªã‚ŠMoCoãªã‚‰DBIx::MoCo::ListãŒæ‹…å½“ã€‚ ORM::Row çµæžœã®è¡Œã”ã¨ã®ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã€‚ã ã„ãŸã„ã¯ORM::Schema or Table ã§å®šç¾©ã—ã¦ã‚‹co
kaz_goto 2008/10/29
perl

orm

dbic

moco
ãƒªãƒ³ã‚¯
1 2 3 4 5 6 7 8 9 10 æ¬¡ã®ãƒšãƒ¼ã‚¸