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

dk19810313 id:dk19810313

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

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

ã‚†ãƒ¼ã™ã‘ã¹ãƒ¼æ—¥è¨˜
ã‚µã‚ã¨ã¯å½¼å¥³ã®è‡ªå®…è¿‘ãã€æ¹˜å—å°é§…å‰ã®ã‚¹ãƒ¼ãƒ‘ãƒ¼ãƒžãƒ¼ã‚±ãƒƒãƒˆã§å¾…ã¡åˆã‚ã›ã‚’ã—ãŸã€‚å½¼å¥³ã¯è‡ªè»¢è»Šã§å¾Œã‹ã‚‰è¿½ã„ã¤ãã¨è¨€ã„ã€åƒ•ã¯å¤§ããªã‚³ã‚¤ãƒ³ãƒ‘ãƒ¼ã‚ãƒ³ã‚°ã¸è»Šã‚’åœã‚ãŸã€‚ç…™è‰ã‚’ä¸€æœ¬å¸ã£ã¦ã‹ã‚‰ã‚¹ãƒ¼ãƒ‘ãƒ¼ãƒžãƒ¼ã‚±ãƒƒãƒˆã¸å‘ã‹ã†ã¨ã€ã²ã£ãã‚Šãªã—ã«ä¸»å©¦çš„ãªå¥³æ€§ã‹ãŠã°ã‚ã¡ã‚ƒã‚“ãŒå…¥ã‚Šå£ã‚’å‡ºãŸã‚Šå…¥ã£ãŸã‚Šã—ã¦ã„ãŸã€‚æ™‚åˆ»ã¯åˆå¾Œ5æ™‚ã«ãªã‚‹ã€‚æ™‚è¨ˆã‹ã‚‰ç›®ã‚’ä¸Šã’ã‚‹ã¨ã€å¾…ãŸã›ã¡ã‚ƒã£ãŸã‚ãã¨å¤§ã—ã¦æ‚ªã³ã‚Œã¦ãªã„æ§˜åã§ã‚µã‚ãŒæ‰‹ã¶ã‚‰ã§ã‚„ã£ã¦ããŸã€‚ ãŠç¤¼ã«æ–™ç†ã‚’ä½œã‚‹ã¨ã¯ã„ãˆã€ã‚µã‚ã®å®¶ã«ã¯é£ŸæãŒååˆ†è¶³ã‚Šã¦ã„ãªã„ã‚‰ã—ãã€ã“ã†ã—ã¦ã‚¹ãƒ¼ãƒ‘ãƒ¼ãƒžãƒ¼ã‚±ãƒƒãƒˆã«å¯„ã‚‹ã“ã¨ã«ãªã£ãŸã€‚ã‚µã‚ã¯é‡Žèœã‚³ãƒ¼ãƒŠãƒ¼ã‹ã‚‰ç²¾è‚‰ã‚³ãƒ¼ãƒŠãƒ¼ã¾ã§ã€ã¾ã‚‹ã§å„ªç§€ãªã‚«ãƒ¼ãƒŠãƒ“ã«å°Žã‹ã‚Œã‚‹ã‚ˆã†ã«ç„¡é§„ãªãç‚¹æ¤œã—ã¦ã„ã£ãŸã€‚æ¬²ã—ã„é£ŸæãŒã‚ã‚‹ã¨ã€2ç§’é–“ç¨‹åº¦ãã‚Œã‚‰ã‚’å‡è¦–ã—ã€ä¸€åº¦æ‰‹ã«å–ã£ãŸã˜ã‚ƒãŒã„ã‚‚ã‚„ã‚‰è±šè‚‰ã‚„ã‚‰ã‚’è¿·ã†ã“ã¨ãªãåƒ•ãŒæŒã£ã¦ã„ã‚‹ã‚«ã‚´ã«æ”¾ã‚Šè¾¼ã‚“ã ã€‚æœ€å¾Œã«ã‚¢ãƒ«ã‚³ãƒ¼ãƒ«é£²æ–™ãŒå†·ã‚„ã•ã‚Œã¦ã„ã‚‹æ£šã®å‰ã¸è¡Œãã¨ã€ç§ãŒé£²ã‚€ã‹ã‚‰ã¨ãƒ
dk19810313 2012/03/01
perl
ãƒªãƒ³ã‚¯
Perl Hackers Hubï¼šç¬¬4å›žã€€Twitterã‹ã‚‰å¦ã¶ï¼ŒWeb APIã®ã‚ãƒ›ãƒ³ï¼ˆ3ï¼‰ï½œgihyo.jp â€¦ æŠ€è¡“è©•è«–ç¤¾
ã‚µãƒ³ãƒ—ãƒ«ã‚¢ãƒ—ãƒªã‚±ãƒ¼ã‚·ãƒ§ãƒ³ã‚’å‹•ã‹ã—ã¦ã¿ã‚ˆã† ã•ã¦ã€ã“ã“ã¾ã§ã§æ¬¡ã®3ã¤ã®è‚ã‚’æŠ¼ã•ãˆã¾ã—ãŸã€‚ URIãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã§ãƒªã‚¯ã‚¨ã‚¹ãƒˆURIã®æ§‹ç¯‰ LWP::UserAgent ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã§URI ã¸ã®ãƒªã‚¯ã‚¨ã‚¹ãƒˆï¼ãƒ¬ã‚¹ãƒãƒ³ã‚¹ã®å–å¾— JSONãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã§ãƒ¬ã‚¹ãƒãƒ³ã‚¹ã‚³ãƒ³ãƒ†ãƒ³ãƒ„ã®ãƒ‘ãƒ¼ã‚¹ ã“ã‚Œã‚‰ã®æµã‚Œã‚’è¿½ãˆã°Twitter Search APIã‚’ä½¿ã£ãŸã‚¢ãƒ—ãƒªã‚±ãƒ¼ã‚·ãƒ§ãƒ³ã®æ§‹ç¯‰ãŒå¯èƒ½ã§ã™ã€‚Twitter Search APIã‚’åˆ©ç”¨ã—ãŸã‚·ãƒ³ãƒ—ãƒ«ãªã‚¢ãƒ—ãƒªã‚±ãƒ¼ã‚·ãƒ§ãƒ³ã¨ã—ã¦ã€ã€Œâ ãŠã¯ã‚ˆã†ã€ã¨ã„ã†è¨€è‘‰ãŒå«ã¾ã‚ŒãŸæœ€è¿‘ã®ãƒ„ã‚¤ãƒ¼ãƒˆã‚’å–å¾—ã—è¡¨ç¤ºã™ã‚‹ã ã‘ã®ã‚³ãƒžãƒ³ãƒ‰ãƒ©ã‚¤ãƒ³ã‚¹ã‚¯ãƒªãƒ—ãƒˆã‚’ä½œã£ã¦ã¿ã¾ã—ã‚‡ã†ã€‚ use LWP::UserAgent; use URI; use JSON qw(decode_json); use Encode qw(encode_utf8); use utf8; my $query = 'ãŠã¯ã‚ˆã†'; my $uri
dk19810313 2010/12/03
perl
ãƒªãƒ³ã‚¯
ç¬¬1å›žã€€PSGI/Plackâ€•ãƒ•ãƒ¬ãƒ¼ãƒ ãƒ¯ãƒ¼ã‚¯ã¨ã‚µãƒ¼ãƒã‚’ã¤ãªãã‚¨ãƒ³ã‚¸ãƒ³ã€€ï¼ˆ2ï¼‰ | gihyo.jp
Plackâ”€â â”€PSGIãƒ¦ãƒ¼ãƒ†ã‚£ãƒªãƒ†ã‚£ PSGIã®ãŠã‹ã’ã§ã€ãƒ•ãƒ¬ãƒ¼ãƒ ãƒ¯ãƒ¼ã‚¯ã¯CGIã‚„FastCGIã€mod_perlã¨ã„ã£ãŸç’°å¢ƒã®å·®ç•°ã‚’å¸åŽã™ã‚‹ãŸã‚ã®ã‚³ãƒ¼ãƒ‰ã‚’æ›¸ãå¿…è¦ã¯ãªããªã‚Šã€PSGIã®ã‚¤ãƒ³ã‚¿ãƒ•ã‚§ãƒ¼ã‚¹ã ã‘ã‚’å®Ÿè¡Œã™ã‚Œã°ã‚ˆããªã‚Šã¾ã—ãŸã€‚å®Ÿéš›ã«å¤šãã®ãƒ•ãƒ¬ãƒ¼ãƒ ãƒ¯ãƒ¼ã‚¯ãŒã™ã§ã«PSGIã‚’ã‚µãƒãƒ¼ãƒˆã—ã¦ã„ã¾ã™ãŒã€ã•ã¦ã€ãã†ã—ãŸã‚¢ãƒ—ãƒªã‚±ãƒ¼ã‚·ãƒ§ãƒ³ã‚’ã©ã†ã‚„ã£ã¦å‹•ã‹ã›ã°ã‚ˆã„ã®ã§ã—ã‚‡ã†ã‹ã€‚ Apacheãªã©æ—¢å˜ã®Webã‚µãƒ¼ãƒã§PSGIã‚¢ãƒ—ãƒªã‚±ãƒ¼ã‚·ãƒ§ãƒ³ã‚’å‹•ã‹ã™ã«ã¯ã€CGIã€FastCGIã€mod_perlãªã©ã®ã‚¤ãƒ³ã‚¿ãƒ•ã‚§ãƒ¼ã‚¹ã‚’PSGIã«å¤‰æ›ã™ã‚‹å¿…è¦ãŒã‚ã‚Šã¾ã™ã€‚ã¾ãŸã€PSGIã‚’ãƒã‚¤ãƒ†ã‚£ãƒ–ã§å®Ÿè¡Œã§ãã‚‹Perlãƒ™ãƒ¼ã‚¹ã®HTTPã‚µãƒ¼ãƒã‚‚ã»ã—ã„ã¨ã“ã‚ã§ã™ã€‚ Plackã¯ãã†ã—ãŸè¦ä»¶ã‚’æº€ãŸã™ãŸã‚ã®ãƒ¦ãƒ¼ãƒ†ã‚£ãƒªãƒ†ã‚£ã§ã€ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹å®Ÿè£…ã¨ã—ã¦ã®PSGIã‚µãƒ¼ãƒã‚„ãã‚Œã‚‰ã¸ã®ã‚¢ãƒ€ãƒ—ã‚¿ã€å‘¨è¾ºãƒ©ã‚¤ãƒ–ãƒ©ãƒªã‚„å¾Œè¿°ã™ã‚‹ãƒŸãƒ‰ãƒ«ã‚¦ã‚§ã‚¢ãŒå«ã¾ã‚Œã¦ã„ã¾ã™ã€‚
dk19810313 2010/12/03
perl
ãƒªãƒ³ã‚¯
PSGI/Plack - Perl Superglue for Web Frameworks and Web Servers
Superglue interface between perl web application frameworks and web servers, just like Perl is the duct tape of the internet. PSGI is an interface between Perl web applications and web servers, and Plack is a Perl module and toolkit that contains PSGI middleware, helpers and adapters to web servers. PSGI and Plack are inspired by Python's WSGI and Ruby's Rack. Documentation PSGI specification Freq
dk19810313 2010/12/03
perl
ãƒªãƒ³ã‚¯
ç¬¬4å›žã€€Twitterã‹ã‚‰å¦ã¶ã€Web APIã®ã‚ãƒ›ãƒ³ï¼ˆ2ï¼‰ | gihyo.jp
ãƒªã‚¯ã‚¨ã‚¹ãƒˆURIã‚’æ§‹ç¯‰ã™ã‚‹ URIã‚¨ã‚¹ã‚±ãƒ¼ãƒ— ã„ã‚ˆã„ã‚ˆPerlã‚’ä½¿ã£ã¦Web APIã‚’åˆ©ç”¨ã—ã¦ã„ãã‚ã‘ã§ã™ãŒã€ãã®å‰ã«ãƒªã‚¯ã‚¨ã‚¹ãƒˆURIã‚’ä½œã‚‹éš›ã®ç´„æŸäº‹ã‚’ç¢ºèªã—ã¾ã—ã‚‡ã†ã€‚ URIã®ä»•æ§˜ã§ã¯ã€ASCIIï¼ˆAmerican Standard Code for Information Interchangeï¼‰æ–‡å—ä»¥å¤–ã®æ–‡å—ã€ã¤ã¾ã‚Šæ—¥æœ¬èªžãªã©ã¯URIã§ä½¿ç”¨ã§ããªã„ã¨å®šã‚ã‚‰ã‚Œã¦ã„ã¾ã™ã€‚URIã§æ—¥æœ¬èªžã‚’ä½¿ã„ãŸã„å ´åˆã¯ã€URIã‚¨ã‚¹ã‚±ãƒ¼ãƒ—ã‚’è¡Œã†å¿…è¦ãŒã‚ã‚Šã¾ã™ã€‚ ãŸã¨ãˆã°Twitter Search APIã§ã€ŒãŠã¯ã‚ˆã†ã€ã‚’ã‚ãƒ¼ãƒ¯ãƒ¼ãƒ‰ã«æ¤œç´¢ã—ãŸã„å ´åˆã€ http://search.twitter.com/search.json?q=ãŠã¯ã‚ˆã† ã¨æ—¥æœ¬èªžã‚’ç›´æŽ¥å…¥ã‚Œã¦ã¯ã„ã‘ã¾ã›ã‚“ã€‚æ¬¡ã®ã‚ˆã†ã«URIã‚¨ã‚¹ã‚±ãƒ¼ãƒ—ã™ã‚‹å¿…è¦ãŒã‚ã‚Šã¾ã™ã€‚ http://search.twitter.com/search.json?q=%E3%8
dk19810313 2010/12/02
perl
ãƒªãƒ³ã‚¯
Hello Acme World! - Articles Advent Calendar 2010 Acme
(firstly written in Japanese, later in English) çš†ã•ã‚“ã“ã‚“ã«ã¡ã¯ã€‚ ã€ŒPerlã¨è¨€ãˆã°Acmeã€‚Acmeã¨è¨€ãˆã°Perlã€ã¨100äººä¸3äººãã‚‰ã„ã¯æ€ã£ã¦ã„ã‚‹ã‚“ã˜ã‚ƒãªã„ã‹ã¨æ·¡ã„æœŸå¾…ã‚’æŠ±ã„ã¦æ‚¶ã€…ã¨ã—ãŸæ—¥ã€…ã‚’éŽã”ã—ã¦ã„ã‚‹makamakaã§ã™ã€‚ ã“ã®ã‚¢ãƒ‰ãƒ™ãƒ³ãƒˆã‚«ãƒ¬ãƒ³ãƒ€ãƒ¼ã§ã¯Acmeã«é–¢ã™ã‚‹ã“ã¨ã‚’å–ã‚Šä¸Šã’ã¾ã™ã€‚ åˆæ—¥ã®ä»Šæ—¥ã¯Acmeãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã®ç´¹ä»‹ã¨ã„ã†ã‚ˆã‚Šã¯ã€ã€Œç§ã®Acmeã®æ¥½ã—ã¿æ–¹ã€ã«ã¤ã„ã¦èªžã‚ŠãŸã„ã¨æ€ã„ã¾ã™ã€‚ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ç´¹ä»‹ã‚’æœŸå¾…ã—ãŸæ–¹ã€ã”ã‚ã‚“ãªã•ã„ï¼žï¼œã€€ã€€æœ¬æ—¥ã®Acmeã¨ã‹Acmeå¤§å…¨ã§å‰²ã¨æº€ãŸã•ã‚Œã¦ã„ã‚‹ã¨ã„ã†ã‹ã€ã‚ã¾ã‚Šæ–°ã—ã„ãƒã‚¿ãŒãªã„ã‚“ã§ã™ï¼ˆæ¶™ï¼‰ ã§ã‚‚æ˜Žæ—¥ä»¥é™ã€ç´ æ•µãªAcmeãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚‚ãŸãã•ã‚“ç´¹ä»‹ã•ã‚Œã¾ã™ã‚ˆï¼ã€€CPANã«ä¸ŠãŒã£ã¦ã„ãªã„ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚‚ç™»å ´ã—ã¾ã™ã‚ˆï¼ã€€ç§ã‚‚åˆ¥ã®æ—¥ã®è¨˜äº‹ã§æ˜”ã¤ãã‚Šã‹ã‘ãŸãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã®ç´¹ä»‹ã‚’ã—ã¾ã™ã‚ˆï¼ï¼ˆâ†æŠ•ã’ã‚„ã‚Šï¼‰ ã•ã¦ã€
dk19810313 2010/12/01
perl

ãƒã‚¿
ãƒªãƒ³ã‚¯
Perlã®é–‹ç™ºç’°å¢ƒã‚’Casualã«ä½œã‚ã† - Articles Advent Calendar 2010 Casual
JPerl Advent Calendar Casual Track ä¸€æ—¥ç›®ã‚’ã‚„ã‚‹ myfinder ã§ã™ã€‚ åŽ»å¹´ã¯local::libãŒã‚‚ã¦ã¯ã‚„ã•ã‚ŒãŸã‚Šã—ã¦ã„ã¾ã—ãŸãŒã€ã‚ã‚Œã‹ã‚‰1å¹´ã®é–“ã«Perlã¯æ›´ã«æ‰‹è»½ã«ä½¿ãˆã‚‹ã‚ˆã†ã«ãªã‚Šã¾ã—ãŸã€‚ åˆæ—¥ã€æœ€åˆã®ä¸€æ©ã¨ã„ã†ã“ã¨ã§ä»Šå›žã¯Perlé–‹ç™ºç’°å¢ƒã‚’ç°¡å˜ã«ä½œã‚‹ãŸã‚ã®æ‰‹é †ã‚’ã¾ã¨ã‚ã¾ã™ã€‚ å¯¾è±¡ã¯åŸºæœ¬çš„ã«Linuxã§ã€ã•ãã‚‰ã®VPSã¨ã‹ãã®è¾ºã‚’æƒ³å®šã—ã¦ã„ã¾ã™ã€‚ Macã§ã‚‚åŒã˜ã‚ˆã†ã«ã‚„ã‚Œã°ã§ãã‚‹ã§ã—ã‚‡ã†ã€‚ Windowsã®å ´åˆã¯ã‚ã‹ã‚Šã¾ã›ã‚“ã€‚ãã£ã¨Win32ãƒˆãƒ©ãƒƒã‚¯ã®äººãŒæ›¸ã„ã¦ãã‚Œã‚‹ã¨æ€ã„ã¾ã™(ã‰ perlbrew ã“ã‚Œã¾ã§ã¯ã€ã‚·ã‚¹ãƒ†ãƒ ã®æä¾›ã™ã‚‹Perl + local::libã§ç’°å¢ƒã‚’ä½œã£ã¦ã„ãŸã¨æ€ã„ã¾ã™ãŒã€perlbrewã®ç™»å ´ã«ã‚ˆã£ã¦Perl æœ¬ä½“ã™ã‚‰ã‚‚è‡ªåˆ†ã®ã‚¢ã‚«ã‚¦ãƒ³ãƒˆå†…ã«ç½®ãã“ã¨ãŒç°¡å˜ã«ã§ãã‚‹ã‚ˆã†ã«ãªã‚Šã¾ã—ãŸã€‚ ãƒãƒ¼ã‚¸ãƒ§ãƒ³ã®åˆ‡ã‚Šæ›¿ãˆã‚‚ã§ãã‚‹ã®ã§ã€è¤‡æ•°ã®ãƒãƒ¼
dk19810313 2010/12/01
perl
ãƒªãƒ³ã‚¯
fbcard.pl
You signed in with another tab or window. Reload to refresh your session. You signed out in another tab or window. Reload to refresh your session. You switched accounts on another tab or window. Reload to refresh your session. Dismiss alert
dk19810313 2010/11/30
perl

facebook

yusukebe
ãƒªãƒ³ã‚¯
RSSãƒ•ã‚£ãƒ¼ãƒ‰URLã®å–å¾—ï¼ˆFeed::Findï¼‰:Geekãªãºãƒ¼ã˜
ã“ã“ã§ã¯ã€Feed::Findãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’ä½¿ã£ã¦RSS/RDFã®URL(URI)ã‚’å–å¾—ã™ã‚‹æ–¹æ³•ã‚’èª¬æ˜Žã—ã¾ã™ã€‚ ãƒ•ã‚£ãƒ¼ãƒ‰å–å¾—ã‚µãƒ³ãƒ—ãƒ« ä»¥ä¸‹ã«å˜ç´”ãªRSSãƒ•ã‚£ãƒ¼ãƒ‰URLå–å¾—ã‚µãƒ³ãƒ—ãƒ«ã‚’ç¤ºã—ã¾ã™ã€‚ #!/usr/bin/perl use Feed::Find; # ã“ã“ã‚’å¤‰æ›´ã—ã¦ä¸‹ã•ã„ @list = Feed::Find->find('http://www.geekpage.jp/'); foreach $tmp (@list) { print $tmp; print "\n"; } exit; ä¸Šè¨˜ã‚µãƒ³ãƒ—ãƒ«ã§ã¯ã€Feed::Findã®findã‚’ä½¿ã£ã¦HTTPã§Webãƒšãƒ¼ã‚¸ã‚’å–å¾—ã—ã€ä¸ã«è¨˜è¿°ã•ã‚Œã¦ã„ã‚‹ãƒ•ã‚£ãƒ¼ãƒ‰ã¸ã®URLã‚’å–å¾—ã—ã¦ã„ã¾ã™ã€‚ Feed::Find->findã®è¿”ã‚Šå€¤ã¯ã€ç™ºè¦‹ã—ãŸãƒ•ã‚£ãƒ¼ãƒ‰URLã®ãƒªã‚¹ãƒˆã§ã™ã€‚ Feed::Findã¯ã€æœ€åˆã«HTMLæ–‡æ›¸å†…ã®<HEAD>éƒ¨åˆ†ã‹ã‚‰<LINK>
dk19810313 2010/04/14
perl

rss
ãƒªãƒ³ã‚¯
Big Sky :: è»½é‡Web Application Frameworkã€ŒMENTAã€ã§OAuthã—ã¦ã¿ãŸ
twitterã®OAuthãƒ™ãƒ¼ã‚¿ãŒé–‹å§‹ã•ã‚ŒãŸã®ã§ã€ã•ã£ããè»½é‡Web Application Frameworkã€ŒMENTAã€ã§OAuthã™ã‚‹ç‰©ã‚’ä½œã£ã¦ã¿ãŸã€‚ æ§‹æˆã‚‚ç°¡å˜ã§ â”‚Â Â .htaccess â”‚Â Â menta.cgi â”œâ”€app â”‚Â Â â”œâ”€controller â”‚Â Â â”‚Â Â Â Â Â Â callback.pl â”‚Â Â â”‚Â Â Â Â Â Â request.pl â”‚Â Â â”œâ”€data â”‚Â Â â””â”€static â”œâ”€bin â”œâ”€lib â””â”€plugins session.pl ã“ã‚“ãªæ„Ÿã˜ã€‚ãƒˆãƒƒãƒ—ãƒšãƒ¼ã‚¸ã‹ã‚‰request.plã«é£›ã³ã€OAuthã®callbackã¨ã—ã¦callback.plãŒã‚ãƒƒã‚¯ã•ã‚Œã‚‹ã€‚ è¦ã®request.plã¯ä»¥ä¸‹ã®æ§˜ãªæ„Ÿã˜ use MENTA::Controller; use URI; use OAuth::Lite::Consumer; sub run { myÂ $consumer
dk19810313 2010/04/14
twitter

oauth

Perl
ãƒªãƒ³ã‚¯
Web::Scraper - naoyaã®ã¯ã¦ãªãƒ€ã‚¤ã‚¢ãƒªãƒ¼
Today I've been thinking about what to talk in YAPC::EU (and OSCON if they're short of Perl talks, I'm not sure), and came up with a few hours of hacking with web-content scraping module using Domain Specific Languages. ä½¿ã£ã¦ã¿ãŸã‚ˆ! #!/usr/local/bin/perl use strict; use warnings; use FindBin::libs; use URI; use Web::Scraper; use Encode; use List::MoreUtils qw/uniq/; my $links = scraper { process 'a.key
dk19810313 2009/09/02
perl

HTML

ã‚¹ã‚¯ãƒ¬ã‚¤ãƒ”ãƒ³ã‚°
ãƒªãƒ³ã‚¯
FC2 ãƒ–ãƒã‚°ã« perlã§æŠ•ç¨¿ã—ãŸã„ã¨ãã€€perlã¨ã‚·ã‚§ãƒ«ã‚¹ã‚¯ãƒªãƒ—ãƒˆ
FC2ã«é™ã‚‰ãšã«ã€è‡ªå‹•æŠ•ç¨¿ã€ã¨ã„ã†ã‹ã€è‡ªå‰ã®ã‚¹ã‚¯ãƒªãƒ—ãƒˆã§æŠ•ç¨¿ã—ãŸã„ã¨ããŒã‚ã‚‹ã€‚ ã¨ã„ã†ã‹ãªãœãã†ãªã‚‹ã‹ã¨ã„ã†ã¨ã€ ã©ã†ã—ã¦ã‚‚ã€ å„ãƒ–ãƒã‚°ã®æŠ•ç¨¿ã‚¤ãƒ³ã‚¿ãƒ¼ãƒ•ã‚§ãƒ¼ã‚¹ãŒä¸‡äººã«ã¯å—ã‘å…¥ã‚Œã‚‰ã‚Œãªã„ã‹ã‚‰ã ã¨æ€ã†ã€‚ seesaaãªã‚“ã‹ã¯é‡ã™ãŽã ã—ã€‚ ã§ã€ä»Šå›žã¯ã¨ã‚Šã‚ãˆãšã€ã“ã®ãƒ–ãƒã‚°ãŒFC2ã£ã¦ã“ã¨ã§ã€ ãã®ã‚„ã‚Šæ–¹ã€‚ è¨€èªžã¯perlã“ã‚“ãªæ„Ÿã˜ã§ç°¡å˜ã«å®Ÿè£…ã§ãã‚‹ã€‚ ã‚¨ãƒ³ãƒ‰ãƒã‚¤ãƒ³ãƒˆURLã¯ http://blog.fc2.com/xmlrpc.php ã§è‰¯ã„ã¿ãŸã„ã€‚ æ³¨æ„ç‚¹ã¯ã€ ãƒ»æ—¥æœ¬èªžã‚’ä½¿ã†ãªã‚‰UTF-ï¼˜ã«å¤‰æ›ã—ã¦ã€‚ ãƒ»FC2ã¯ä¸€æ—¥ã«10è¨˜äº‹ã¾ã§ã—ã‹å—ã‘ä»˜ã‘ãªã„ã€‚ ã£ã¦ã¨ã“ã‚ã‹ãªã€‚ use XMLRPC::Lite; my $proxyurl = "http://blog.fc2.com/xmlrpc.php"; my $msgresult = XMLRPC::Lite -> proxy($proxyurl)
dk19810313 2009/09/01
perl

blog
ãƒªãƒ³ã‚¯
blog.scrapcode.net: DBIã§ãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹ã®å†…å®¹ã‚’ãƒãƒƒã‚·ãƒ¥é…åˆ—ã§å–å¾—ã™ã‚‹
ä»Šæ™‚ã®Perlä½¿ã„ã®æ–¹ã¯ã€ãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹ã‚¢ã‚¯ã‚»ã‚¹ã«ã¯Class::DBIã‚’ä½¿ã£ã¦ã„ã‚‹ã®ã§ã—ã‚‡ã†ã‹ï¼Ÿ ãƒœã‚¯ã¯ä»•äº‹æŸ„Class::DBIã‚’ä½¿ãˆãªã„ã‚µãƒ¼ãƒãƒ¼ã§å‹•ã‹ã™CGIã‚’ä½œã‚‹ã“ã¨ãŒå¤šã„ã®ã§ã€ä»Šã§ã‚‚DBIã‚’ä½¿ã£ã¦ã„ã¾ã™ã€‚Class::DBIã‚‚å‹‰å¼·ã—ãªãã‚ƒãªãâ€¦ã€‚ ãã‚Œã¯ã¨ã‚‚ã‹ãã€SELECTæ–‡ã®çµæžœã‚’ãƒãƒƒã‚·ãƒ¥é…åˆ—ã§å–å¾—ã™ã‚‹æ–¹æ³•ã‚’æ›¸ã„ã¦ã¿ã¾ã™ã€‚ ãƒãƒ¼ã‚¸ãƒ§ãƒ³1.20ã‚ˆã‚Šå¤ã„DBIã§ã¯ã€$dbhã‚’ãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹ãƒãƒ³ãƒ‰ãƒ«ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã¨ã—ãŸå ´åˆmy $sql = 'SELECT id, name FROM test WHERE age < ?'; my $rows = $dbh->selectall_hashref( $sql, undef, 20 );ã®ã‚ˆã†ãªãƒ—ãƒã‚°ãƒ©ãƒ ã§$rows = [ { id => 1, name => 'aaaa' }, { id => 2, name => 'bbbb' }, ]
dk19810313 2008/06/15
perl
ãƒªãƒ³ã‚¯
Perlã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆæŒ‡å‘ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°
-> è¶£æ—¨ã¨æ³¨æ„æ›¸ã -> èº«è¿‘ãªpackage -> ãªã‚“ã®ãŸã‚ã®package ? -> What's `new' ? -> bless ( reference => package ) -> Hello, Module World! -> ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆï¼Ÿ -> main ãƒ‘ãƒƒã‚±ãƒ¼ã‚¸ã¨é–¢é€£ä»˜ã‘ã¦ã¿ã‚‹ -> ã‚¯ãƒ©ã‚¹ã¨ãƒ¡ã‚½ãƒƒãƒ‰ -> ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆæŒ‡å‘ -> ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆãŒãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ãªã‚‰â€¦ -> -> ã‚’é€£ç¶šã™ã‚‹ -> ç¶™æ‰¿ -> å¤šé‡ç¶™æ‰¿ -> å¤šé‡ç¶™æ‰¿ã‚’ã‚„ã‚ã‚‹ -> å¤šé‡ç¶™æ‰¿ã‚’ã‚„ã‚ã‚‹(ã‚‚ã†å°‘ã—ç°¡å˜ã«) -> æƒ…å ±æº(æ›¸ç±ç‰) <- ãƒ¢ãƒ‰ãƒ« è¶£æ—¨ã¨æ³¨æ„æ›¸ã ã“ã‚Œã‚’èªã‚“ã§ã‚‚ã€ã‚ã‚“ã¾ã‚Šãã¡ã£ã¨ã—ãŸçŸ¥è˜ã¯ã€èº«ã«ä»˜ãã¾ã›ã‚“ï¼ˆ^^; ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆæŒ‡å‘ã®æ¦‚å¿µã¯ã»ã‚“ã®å°‘ã—ã—ã‹èª¬æ˜Žã—ã¾ã›ã‚“ã€‚ã“ã“ã§è¿°ã¹ã‚‹ã®ã¯ã€Perlã§ã©ã†ã‚„ã‚‹ã‹ã£ã¦ã®ãŒä¸»ã§ã™ï¼ˆãã‚Œã‚‚ä¸ååˆ†ï¼†å˜˜ã¾ã˜ã‚Šã‹ã‚‚ï¼‰ã€‚ ã¨ã‚Šã‚ãˆãšã€ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’ä½œã‚Š
dk19810313 2008/06/05
perl
ãƒªãƒ³ã‚¯
1