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

rikuo id:rikuo

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

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

ãƒˆãƒ‰ã®åå‰æ±ºã¾ã‚‹ã€€å§‰ã€Œãƒ«ãƒ“ãƒ¼ã€å¦¹ã€Œãƒ‘ãƒ¼ãƒ«ã€ã€€æ–°æ½Ÿå¸‚æ°´æ—é¤¨ - MSNç”£çµŒãƒ‹ãƒ¥ãƒ¼ã‚¹
æ–°æ½Ÿå¸‚æ°´æ—é¤¨ãƒžãƒªãƒ³ãƒ”ã‚¢æ—¥æœ¬æµ·ï¼ˆä¸å¤®åŒºï¼‰ã§å¹³æˆï¼‘ï¼˜å¹´ï¼–æœˆã«ç”Ÿã¾ã‚Œã€ï¼–å¹´è¿‘ãåå‰ãŒãªã‹ã£ãŸé›Œã®ãƒˆãƒ‰ã«ã€Œãƒ«ãƒ“ãƒ¼ã€ã¨æ„›ç§°ãŒä»˜ã„ãŸã€‚ã€‚æ˜¨å¹´ï¼—æœˆã«ç”Ÿã¾ã‚ŒãŸå¦¹ã¯ã€Œãƒ‘ãƒ¼ãƒ«ã€ã«æ±ºã¾ã£ãŸã€‚ã€€ï¼’é ã®ä¸¡è¦ªã¯åŒé¤¨ã«ãŠã‚Šã€çˆ¶è¦ªã¯ã‚¿ã‚±ã€æ¯è¦ªã¯ãƒŠãƒ¼ã‚·ãƒ¼ã€‚ãƒ«ãƒ“ãƒ¼ã¯å‡ºç”Ÿå¾Œã«ä½“é‡ãŒå¢—ãˆãšæ „é¤Šå¤±èª¿çŠ¶æ…‹ã«ã€‚å‘¼å¸éŸ³ã‚‚è’ãã€å¾ªç’°å™¨ç³»ã«å…ˆå¤©çš„ãªç–¾æ‚£ã®ã‚ã‚‹å¯èƒ½æ€§ãŒã‚ã‚Šã€çŸå‘½ã«çµ‚ã‚ã‚‹ã¨ã¿ã‚‰ã‚Œã¦ã„ãŸã€‚ã€€ã“ã®ãŸã‚ã€ãƒ«ãƒ“ãƒ¼ã«ã¯ä»–ã®ãƒˆãƒ‰ã‚„ãƒ©ãƒƒã‚³ãªã©ã«ã¯ä»˜ã‘ã¦ã„ã‚‹æ„›ç§°ã‚’ã€Œã›ã£ã‹ãåå‰ã‚’ä»˜ã‘ã¦ã‚‚ã™ãã«æ»ã‚“ã§ã¯ç”³ã—è¨³ãªã„ã€ã¨è¦‹é€ã‚Šã€è·å“¡ã‚‰ã¯ã€Œåãƒˆãƒ‰ã€ã¨å‘¼ã‚“ã§ä¸–è©±ã‚’ç¶šã‘ã¦ããŸã€‚ã€€ãƒ«ãƒ“ãƒ¼ã¯é–“ã‚‚ãªãï¼–æ³ã€‚ç¹æ®–å¯èƒ½ã«ãªã‚‹å¹´é½¢ã«ã¾ã§è¿‘ã¥ã„ã¦ããŸã€‚ä½“é‡ã‚‚æ˜¨å¹´ï¼‘ï¼‘æœˆã«ï¼‘ï¼ï¼•ã‚ãƒã€ä»Šå¹´ï¼‘æœˆã«ï¼‘ï¼‘ï¼ã‚ãƒã¨ã€åŒå¹´é½¢ã®é›Œã«æ¯”è¼ƒã™ã‚Œã°ã¾ã åŠåˆ†ç¨‹åº¦ã ãŒã€å¾ã€…ã«å¢—ãˆã¦ã„ã‚‹ã€‚ã€€ç”Ÿå¾Œï¼‘å¹´ã«ãªã‚‹å¦¹ã®æ„›ç§°å‹Ÿé›†ã«åˆã‚ã›ã¦å§‰ã‚‚ä¸€ç·’ã«åå‰ã‚’ä»˜ã‘ã‚‹ã“ã¨ã«ãªã‚Šã€å…¬å‹Ÿã«å¯„ã›ã‚‰ã‚ŒãŸï¼’ï¼—ï¼é€šã€ï¼“ï¼™ï¼™ç¨®ã®å€™
rikuo 2012/04/02
name

Ruby

perl

æ–°æ½Ÿ
ãƒªãƒ³ã‚¯
ã€ŒPerlã€ã®å•†æ¨™ç™»éŒ²ã«å¯¾ã™ã‚‹ç™»éŒ²ç•°è°ã®ç”³ç«‹ã¦ã«ã¤ã„ã¦
rikuo 2011/10/01
perl
ãƒªãƒ³ã‚¯
Perl code - 50 lines - codepad
eval eval '"'. ('['^"\.").( ('[')^ '(').('`'|'%'). ('{'^'['). ('['^'(').('['^'/' ).('['^')' ).('`' |')').('`'|'#').('[' ^'/').';'.('!'^'+'). ('['^'.').('['^"\(").( '`'|'%').('{'^"\[").( '['^',').('`'|'!').('[' ^')').('`'|('.')).( '`'|')').('`'|'.').(('`')| "'").('['^'(') .';'.('!'^'+').('!'^'+').('[' ^'+').('['^')' ).('`'|')').('`'|'.').('['^'/'). ('{'^'[').'\\'. '"'.('`'^'(').('`'|'%').('`'|',').
rikuo 2009/12/08
perl
ãƒªãƒ³ã‚¯
16x16 ã®å±¥æ´ã‚’ GIFã‚¢ãƒ‹ãƒ¡ ã«ã™ã‚‹ Perl ã‚¹ã‚¯ãƒªãƒ—ãƒˆ - å£ã‹ã‚‰å‡ºã¾ã‹ã›
16x16 ã®å±¥æ´ç”»åƒã‚’ GIFã‚¢ãƒ‹ãƒ¡ã«ã™ã‚‹ã¨é¢ç™½ãã†ã ãªãã¨æ€ã£ãŸã®ã§æ›¸ã„ã¦ã¿ã¾ã—ãŸã€‚è©¦ã—ã«ã‚»ã‚³ãƒ³ã•ã‚“ã®ã‚¨ãƒ³ãƒˆãƒªã«ã‚ã‚‹ã“ã®ç”»åƒ ã‚’å¤‰æ›ã™ã‚‹ã¨ ã“ã‚“ãª GIFã‚¢ãƒ‹ãƒ¡ã«ãªã‚Šã¾ã™ã€‚ã‚„ã£ã¦ã‚‹ã“ã¨ã¯ç°¡å˜ã§ã€å·¦ä¸Šã‹ã‚‰é †ã« 16x16 ã®ç”»åƒã‚’åˆ‡ã‚Šå‡ºã—ã¦æœ€å¾Œã« GIFã‚¢ãƒ‹ãƒ¡ã¨ã—ã¦æ›¸ãå‡ºã—ã¦ã„ã‚‹ã ã‘ã§ã™ã€‚gif_delay ã¨ã‹ gif_loop ã®ã‚ªãƒ—ã‚·ãƒ§ãƒ³ã¯ perldoc Imager::Files ã® GIF ã®é …ã«æ›¸ã„ã¦ã‚ã‚Šã¾ã™ã€‚ è¿½è¨˜ ã„ã¡ã„ã¡ç”»åƒä¿å˜ã—ã¦å¤‰æ›ã™ã‚‹ã®ã‚ã©ã„ã‚ˆãã¨ã„ã†ã“ã¨ã§ã€å±¥æ´ç”»åƒã‚’è¡¨ç¤ºã—ãŸæ™‚ã® data:image/png;base64, ã§å§‹ã¾ã‚‹ãƒ‡ãƒ¼ã‚¿ã‚¹ã‚ãƒ¼ãƒ ã‚’ãƒ•ã‚©ãƒ¼ãƒ ã«ã‚³ãƒ”ãƒšã‚‹ã¨ GIFã‚¢ãƒ‹ãƒ¡ã‚’å‡ºåŠ›ã™ã‚‹ CGI ã‚‚æ›¸ã„ã¦ã¿ã¾ã—ãŸã€‚
rikuo 2009/06/15
16x16

ã‚¢ãƒ‹ãƒ¡ãƒ¼ã‚·ãƒ§ãƒ³GIF

perl
ãƒªãƒ³ã‚¯
ã¯ã¦ãªãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ã®ã‚³ãƒ¡ãƒ³ãƒˆã«ã‚¹ã‚¿ãƒ¼ãŒã¤ã„ãŸã‚‰é€Ÿæ”»ã§ãŠçŸ¥ã‚‰ã› - å£ã‹ã‚‰å‡ºã¾ã‹ã›
ã‚¹ã‚¿ãƒ¼ãŒã¤ãã¨å¬‰ã—ã„ã§ã™ã—é€Ÿæ”»ã§çŸ¥ã‚ŠãŸã„ã§ã™ã‚ˆãã€‚ãã‚“ãªæ™‚ã¯ ã‚¹ã‚¿ãƒ¼å—ã‘å–ã‚Šé€šçŸ¥ã«å¯¾å¿œã—ãŸ ã¯ã¦ãªãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ Web Hook ã¨ im.kayac.com ã‚’ä½¿ã£ã¦ IM ã«é€šçŸ¥ã—ã¾ã—ã‚‡ã†ã€‚ã¨ã€ã“ã“ã¾ã§æ›¸ã„ã¦ã‹ã‚‰é€£æ‰“ã•ã‚ŒãŸã‚Šã™ã‚‹ã¨ã²ã©ã„ã“ã¨ã«ãªã£ãŸã‚Šã€ãã‚‚ãã‚‚ã¯ã¦ãªãƒ¡ãƒƒã‚»ãƒ¼ã‚¸ã¨åŒã˜ã˜ã‚ƒãªã„ã®*1ã¨ã‹æ°—ã¥ãã¾ã—ãŸã€‚ #!/usr/bin/env perl use strict; use warnings; use CGI qw/-utf8/; use CGI::Carp qw/fatalsToBrowser/; use DateTime::Format::W3CDTF; use LWP::UserAgent; use HTTP::Request::Common; use utf8; my $q = CGI->new; my $key = 'your-key-goes-here'; die
rikuo 2009/06/13
ã¯ã¦ãªãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

webhook

perl
ãƒªãƒ³ã‚¯
ã¯ã¦ãƒ–ã®Web Hookã§æŒ‡å®šã—ãŸã‚¿ã‚°ãŒå«ã¾ã‚Œã¦ã„ãŸã‚‰ãƒ¡ãƒ¼ãƒ«ã™ã‚‹ - jazzanovaã®ãƒ–ãƒã‚°
ã®ã‚’è»½ãä½œã£ã¦ã¿ãŸã€‚ #!/usr/bin/env perl package Em ail; use Moose; use Moose::Util::TypeConstraints; use utf8; use Encode; use Em ail::MIME; use Em ail::MIME::Creator; use Em ail::Send; use Em ail::Valid::Loose; subtype 'MailAddr' => as 'Str' => where { Em ail::Valid::Loose->address($_) }; has 'from' => (is => 'rw', isa => 'MailAddr', default => '[email protected]'); has 'to' => (is => 'rw', isa => 'MailAddr', de
rikuo 2009/06/04
ã¯ã¦ãªãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

perl
ãƒªãƒ³ã‚¯
ã¯ã¦ãƒ–ã® Web Hook ã§ Twitter ã‚’æ›´æ–°ã™ã‚‹ - ITæˆ¦è¨˜
ã¯ã¦ãªãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ã® Web Hook ã¨ã„ã†ã®ãŒãƒªãƒªãƒ¼ã‚¹ã•ã‚Œã¾ã—ãŸãï¼ (é–‹ç™ºè€…ã•ã¾å‘ã‘) ã¯ã¦ãªãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ Web Hook æ©Ÿèƒ½ã‚’å…¬é–‹ã—ã¾ã—ãŸ - ã¯ã¦ãªãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯æ—¥è¨˜ - æ©Ÿèƒ½å¤‰æ›´ã€ãŠçŸ¥ã‚‰ã›ãªã© ã¯ã¦ãªãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ Web Hookã¨ã¯ - ã¯ã¦ãªã‚ãƒ¼ãƒ¯ãƒ¼ãƒ‰ ã“ã‚Œã‚’è¨å®šã—ã¦ãŠãã¨ã€è‡ªåˆ†ãŒã¯ã¦ãƒ–ã—ãŸã‚¿ã‚¤ãƒŸãƒ³ã‚°ã§ã¯ã¦ãƒ–å´ã‹ã‚‰ CGI ç‰ã‚’å©ã„ã¦ãã‚Œã¾ã™ã€‚ CGI ã‹ã‚‰æ§˜ã€…ãªãƒ—ãƒã‚°ãƒ©ãƒ ã‚’èµ·å‹•ã™ã‚‹ã‚ˆã†ã«ã—ã¦ãŠã‘ã°ã€ã‚ã‚“ãªã“ã¨ã‚„ã“ã‚“ãªã“ã¨ãŒå¯èƒ½ã«ãªã£ã¡ã‚ƒã„ã¾ã™ãï¼žï¼œ ã“ã€ã“ã‚Œã¯ã™ã”ã„ï¼ ã¨ã„ã†ã“ã¨ã§ã•ã£ããã€è‡ªåˆ†ãŒã¯ã¦ãƒ–ã—ãŸãƒšãƒ¼ã‚¸ã® URL ã‚’ Twitter ã« POST ã™ã‚‹ CGI ã‚’æ›¸ã„ã¦ã¿ãŸã€‚ ã”è‡ªç”±ã«ãŠä½¿ã„ãã ã•ã„ #!/usr/bin/env perl use utf8; use strict; use warnings; use CGI; use Net::Twitter
rikuo 2009/06/03
ã¯ã¦ãªãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

perl
ãƒªãƒ³ã‚¯
Perlã§ã‚¢ãƒ‹ãƒ¡é¡”ã‚’æ¤œå‡ºï¼†è§£æžã™ã‚‹Imager::AnimeFace - ãƒ‡ãƒ¼
ã¨ã„ã†ã®ã‚’ä½œã£ãŸã®ã§è‡ªå·±ç´¹ä»‹ã—ã¾ã™ã€‚ 2æœˆé ƒã‹ã‚‰ã€ã‚³ãƒ³ãƒ”ãƒ¥ãƒ¼ã‚¿ã§ã‚¢ãƒ‹ãƒ¡é¡”ã‚’æ¤œå‡º&è§£æžã™ã‚‹æ–¹æ³•ã‚’ã„ã‚ã„ã‚è©¦ã—ã¤ã¤ä½œã£ã¦ã„ã¦ã€ãã®æˆæžœã®ã²ã¨ã¤ã¨ã—ã¦ã€ç„¡ç†ã‚„ã‚Šå‡ºåŠ›ã—ãŸãƒ©ã‚¤ãƒ–ãƒ©ãƒªã§ã™ã€‚ ã¯ã˜ã‚ã« ã¯ã˜ã‚ã«ã–ã£ã¨ãƒ©ã‚¤ãƒ–ãƒ©ãƒªã®ç´¹ä»‹ã‚’æ›¸ã„ã¦ã€ã‚ã¨ã®ã»ã†ã§ã¯è©³ç´°ãªå‡¦ç†ã®è©±ã‚’åƒ•ã®è€ƒãˆã‚’è¶…äº¤ãˆã¤ã¤ã‚°ãƒ€ã‚°ã ã¨æ›¸ããŸã„ã¨æ€ã„ã¾ã™ã€‚ Imager::AnimeFaceã§ã§ãã‚‹ã“ã¨ Imager::AnimeFaceã¯ã€ç”»åƒã«å«ã¾ã‚Œã‚‹ã‚¢ãƒ‹ãƒ¡ã‚ãƒ£ãƒ©ã‚¯ã‚¿ãƒ¼çš„ãªäººç‰©ã®é¡”ã®ä½ç½®ã‚’æ¤œå‡ºã—ã€ã•ã‚‰ã«ç›®ã‚„å£ãªã©é¡”ã‚’æ§‹æˆã™ã‚‹éƒ¨å“ä½ç½®ã‚„å¤§ãã•ã®æŽ¨å®šã€è‚Œã‚„é«ªã®è‰²ã®æŠ½å‡ºã‚’ç°¡å˜ã«è¡Œã†ã“ã¨ãŒã§ãã‚‹ãƒ©ã‚¤ãƒ–ãƒ©ãƒªã§ã™ã€‚ ã“ã‚Œã‚‰ãŒå¯èƒ½ã«ãªã‚‹ã¨ã€ ç”»åƒã‹ã‚‰è‡ªå‹•ã§ã„ã„æ„Ÿã˜ã®ã‚µãƒ ãƒã‚¤ãƒ«ã‚’ä½œæˆã§ãã‚‹ å‹•ç”»ã‹ã‚‰è‡ªå‹•ã§ã„ã„æ„Ÿã˜ã®ã‚µãƒ ãƒã‚¤ãƒ«ã‚’ä½œæˆã§ãã‚‹ è‡ªå‹•çš„ã«ãã¬ã¬ç”»åƒãŒä½œã‚Œã‚‹ è‡ªå‹•çš„ã«å…¨å“¡ã®é¡”ã‚’â—‹â—‹ã«ã§ãã‚‹ é¡”ãƒ™ãƒ¼ã‚¹ã®ãƒãƒ¼ã‚«ãƒ«ç”»åƒæ¤œç´¢ ãªã©ã€æœ€æ–°é‹ã®ã‚½ãƒªãƒ¥ãƒ¼ã‚·
rikuo 2009/04/12
ã‚¢ãƒ‹ãƒ¡é¡”ã‚’æ¤œå‡ºã€‚

perl

anime

programming

library

ç”»åƒ
ãƒªãƒ³ã‚¯
ã€Žãƒ¢ãƒ€ãƒ³Perlå…¥é–€ã€æ„Ÿæƒ³ - Kentaro Kuribayashi's blog
id:lestrratã•ã‚“æœŸå¾…ã®æ–°åˆŠã€Žãƒ¢ãƒ€ãƒ³Perlå…¥é–€ã€ã‚’ã•ã£ããèªã¿ã¾ã—ãŸã€‚çµè«–ã‹ã‚‰ã„ã†ã¨ã¨ã¦ã‚‚ã„ã„æœ¬ã§ã€ä»–ã®è¨€èªžã¯ã‚ˆãçŸ¥ã£ã¦ã¦ã‚¤ã‚±ã¦ã‚‹ã‚³ãƒ¼ãƒ‰æ›¸ãã¾ãã‚Šã ã‘ã©Perlã¯ã‚ˆãã‚ã‹ã‚‰ãªã„ã¨ã„ã†ã²ã¨ã€ã‚‚ã£ã¨Perlã®ã“ã¨ã‚’çŸ¥ã‚ŠãŸã„ã²ã¨ã€æ˜”ã‚„ã£ãŸã‘ã©æœ€è¿‘ã®äº‹æƒ…ã¯ã©ã†ã‚‚çŸ¥ã‚‰ãªã„ã¨ã„ã†ã²ã¨ã€æ§˜ã€…ãªæ–¹ã«ã¨ã£ã¦ãƒžã‚¹ãƒˆãƒã‚¤ãªä¸€å“ã«ä»•ä¸ŠãŒã£ã¦ã„ã‚‹ã¨æ€ã„ã¾ã—ãŸã€‚ã‚‚ã¡ã‚ã‚“ã€åƒ•è‡ªèº«ã«ã¨ã£ã¦ã‚‚ã„ã‚ã„ã‚çŸ¥ã‚‹ã“ã¨ãŒå¤šãã¦ã€ã¨ã¦ã‚‚ãŸã‚ã«ãªã‚Šã¾ã—ãŸã€‚ ä»¥ä¸‹ã€è‡ªåˆ†ãŒå®Ÿè·µã§ãã¦ã‚‹ã‹ã©ã†ã‹ã‚’ã¾ã£ãŸãåº¦å¤–è¦–ã—ã¦ã€ã‚ã‚Œã“ã‚Œã¨æ›¸ã„ã¦ã¿ã¾ã—ãŸ(ãŸã¾ã«ã¯æ›¸è©•ã®çœŸä¼¼äº‹ã‚’ã—ã¦ã¿ãŸã„ãƒ–ãƒ¼ãƒ )ã€‚ ãƒ¢ãƒ€ãƒ³Perlå…¥é–€ (CodeZine BOOKS) ä½œè€…: ç‰§å¤§è¼”å‡ºç‰ˆç¤¾/ãƒ¡ãƒ¼ã‚«ãƒ¼: ç¿”æ³³ç¤¾ç™ºå£²æ—¥: 2009/02/10ãƒ¡ãƒ‡ã‚£ã‚¢: å¤§åž‹æœ¬è³¼å…¥: 25äºº ã‚¯ãƒªãƒƒã‚¯: 506å›žã“ã®å•†å“ã‚’å«ã‚€ãƒ–ãƒã‚° (113ä»¶) ã‚’è¦‹ã‚‹ ã‚ˆã„ã‚³ãƒ¼ãƒ‰ã¨ã¯ ã‚ˆã„ã‚³ãƒ¼ãƒ‰ã¨ã²
rikuo 2009/02/10
perl

book
ãƒªãƒ³ã‚¯
Google Calendar Data API ã§ç¥æ—¥ã‚’å–å¾—ã™ã‚‹ - Perlå…¥é–€ã‚¼ãƒŸ
Perl â€º æ—¥ä»˜ãƒ»æ™‚åˆ» ç¥æ—¥ã¨ã„ã†ã®ã¯äººé–“ãŒæ±ºã‚ãŸã‚‚ã®ãªã®ã§éžå¸¸ã«æ‰±ã„ã«ãã„ã‚‚ã®ã§ã™ã€‚æ˜¥åˆ†ã€ç§‹åˆ†ã¨ã„ã†å‰å¹´ã®2æœˆã«æ±ºã¾ã‚‹ç¥æ—¥ã‚„ã€æŒ¯æ›¿ä¼‘æ—¥ãªã©ã‚‚ã‚ã‚Šã¾ã™ã€‚ ä»Šå›žã®ã‚µãƒ³ãƒ—ãƒ«ã§ã¯GoogleãŒGoogle Calendar Data APIã§æä¾›ã—ã¦ãã‚Œã¦ã„ã‚‹æ—¥æœ¬ã®ç¥æ—¥ã®ãƒ‡ãƒ¼ã‚¿ã‚’å–å¾—ã™ã‚‹ã“ã¨ã«ã—ã¾ã™ã€‚ ã‚ãã¾ã§GoogleãŒèª¿ã¹ãŸæ—¥æœ¬ã®ä¼‘æ—¥ã®ãƒ‡ãƒ¼ã‚¿ãªã®ã§çµ¶å¯¾çš„ãªä¿¡é ¼æ€§ã¯ã‚ã‚Šã¾ã›ã‚“ã€‚GoogleãŒé–“é•ã£ã¦ã„ã‚Œã°é–“é•ã£ãŸç¥æ—¥ã®ãƒ‡ãƒ¼ã‚¿ã‚’å–å¾—ã—ã¾ã™ã®ã§ã€æ—¥ä»˜ã®é–“é•ã„ãŒæå®³ã‚’åŠã¼ã™ã‚ˆã†ãªã‚¢ãƒ—ãƒªã‚±ãƒ¼ã‚·ãƒ§ãƒ³ã«ãã®ã¾ã¾ä½¿ç”¨ã—ã¦ã¯ã„ã‘ã¾ã›ã‚“ã€‚ã‹ãªã‚‰ãšä»–ã®æ‰‹æ®µã§æ£ã—ã„ã“ã¨ã‚’ç¢ºã‹ã‚ã‚‹ã‚ˆã†ã«ã—ã¾ã™ã€‚ use strict; use warnings; # Webä¸Šã‹ã‚‰æƒ…å ±ã‚’å–å¾—ã™ã‚‹ã®ã§HTTPã‚¯ãƒ©ã‚¤ã‚¢ãƒ³ãƒˆã‚’ä½¿ç”¨ã™ã‚‹ã€‚ use LWP::UserAgent; #ãƒ•ã‚£ãƒ¼ãƒ‰ãŒXMLã§ä¸Žãˆã‚‰ã‚Œã‚‹ã®ã§XML::Simpleã§è§£
rikuo 2008/10/12
API

Google Calendar Data API

perl
ãƒªãƒ³ã‚¯
ã‚†ã® in Perl - Bulknews::Subtech - subtech
ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®çµ‚äº†æ—¥ã‚’2020å¹´1æœˆ31æ—¥(é‡‘)ã«æ±ºå®šã—ã¾ã—ãŸ ä»¥ä¸‹ã®ã‚¨ãƒ³ãƒˆãƒªã®é€šã‚Šã€ä»Šå¹´æœ«ã‚’ç›®å‡¦ã«ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã‚’çµ‚äº†äºˆå®šã§ã‚ã‚‹æ—¨ã‚’ãŠçŸ¥ã‚‰ã›ã—ã¦ãŠã‚Šã¾ã—ãŸã€‚ 2019å¹´æœ«ã‚’ç›®å‡¦ã«ã€ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®æä¾›ã‚’çµ‚äº†ã™ã‚‹äºˆå®šã§ã™ - ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—æ—¥è¨˜ ã“ã®ãŸã³ã€æ£å¼ã«çµ‚äº†æ—¥ã‚’æ±ºå®šã„ãŸã—ã¾ã—ãŸã®ã§ã€ä»¥ä¸‹ã®é€šã‚Šã”ç¢ºèªãã ã•ã„ã€‚ çµ‚äº†æ—¥: 2020å¹´1æœˆ31æ—¥(é‡‘) ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆå¸Œæœ›ç”³è«‹æœŸé™:2020å¹´1æœˆ31æ—¥(é‡‘) çµ‚äº†æ—¥ä»¥é™ã¯ã€ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®é–²è¦§ãŠã‚ˆã³æŠ•ç¨¿ã¯è¡Œãˆã¾ã›ã‚“ã€‚æ—¥è¨˜ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆãŒå¿…è¦ãªæ–¹ã¯ä»¥ä¸‹ã®è¨˜äº‹ã«ã—ãŸãŒã£ã¦æ‰‹ç¶šãã‚’ã—ã¦ãã ã•ã„ã€‚ ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã«æŠ•ç¨¿ã•ã‚ŒãŸæ—¥è¨˜ãƒ‡ãƒ¼ã‚¿ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆã«ã¤ã„ã¦ - ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—æ—¥è¨˜ ã”åˆ©ç”¨ã®ã¿ãªã•ã¾ã«ã¯ã”è¿·æƒ‘ã‚’ãŠã‹ã‘ã„ãŸã—ã¾ã™ãŒã€ã©ã†ãžã‚ˆã‚ã—ããŠé¡˜ã„ã„ãŸã—ã¾ã™ã€‚ 2020-06-25 è¿½è¨˜ ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—æ—¥è¨˜ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆãƒ‡ãƒ¼ã‚¿ã¯2020å¹´2æœˆ28
rikuo 2008/07/08
ã²ã ã¾ã‚Šã‚¹ã‚±ãƒƒãƒ

perl
ãƒªãƒ³ã‚¯
2004-08-20
2004-08-20 ã¯ã¦ãƒ€ãƒ©ã‚¤ã‚¿ãƒ¼ hw hatena çµåŸŽæµ©ã•ã‚“ãŒã€Œã¯ã¦ãªãƒ€ã‚¤ã‚¢ãƒªãƒ¼ãƒ©ã‚¤ã‚¿ãƒ¼ã€ãªã‚‹ã¯ã¦ãƒ€ã‚¢ãƒƒãƒ—ãƒãƒ¼ãƒ‰ãƒ„ãƒ¼ãƒ«ã‚’é–‹ç™ºä¸ã€‚http://www.hyuki.com/techinfo/hatena_diary_writer.html [id:hyuki:20040819] [id:hyuki:20040820]ã²ã‚‡ã£ã¨ã—ã¦ã“ã‚Œã¯åƒ•ã®æ±‚ã‚ã¦ã„ã‚‹ã‚‚ã®ãªã®ã§ã¯ã€‚ã€‚ã€‚ã¨æ€ã„æ—©é€ŸãŠè©¦ã—â€¦ 2004-08-20 csv2hw.pl (CSVå½¢å¼â†’ã¯ã¦ãƒ€ãƒ©å½¢å¼ å¤‰æ›ã‚¹ã‚¯ãƒªãƒ—ãƒˆ) hw hatena ã¯ã¦ãªã®è¨å®šç”»é¢ã‹ã‚‰è½ã¨ã›ã‚‹CSVå½¢å¼ã®ãƒãƒƒã‚¯ã‚¢ãƒƒãƒ—ãƒ•ã‚¡ã‚¤ãƒ«ã‹ã‚‰ã¯ã¦ãªãƒ€ã‚¤ã‚¢ãƒªãƒ¼ãƒ©ã‚¤ã‚¿ãƒ¼(ç•¥ç§°:ã¯ã¦ãƒ€ãƒ©)*1å½¢å¼ã¸ã®å¤‰æ›ã‚¹ã‚¯ãƒªãƒ—ãƒˆã‚’æ›¸ã„ã¦ã¿ãŸã®ã§ãƒ†ã‚¹ãƒˆä¸ã€‚ã€‚ã€‚ä¸€å¿œå‹•ã„ãŸã®ã§å…¬é–‹ã—ã¾ã™ã€‚æ±‚ã‚€äººæŸ±ã€‚ãƒã‚°å ±å‘Šã¯ã‚³ãƒ¡ãƒ³ãƒˆæ¬„ã§ãŠé¡˜ã„ã—ã¾ã™ã€‚http://www.hoâ€¦ 2004-08-20 ã¯ã¦ãƒ€ãƒ©:
rikuo 2005/11/19
perl
ãƒªãƒ³ã‚¯
UTF-8 ãƒ•ãƒ©ã‚°ã¨æˆ¦ã†äººã¸ : ã«ã½ãŸã‚“ç ”ç©¶æ‰€
ã²ã•ã³ã•ã« Blog ã‚’æ›¸ã„ã¦ã¿ã‚‹ã€‚ UTF-8 ãƒ•ãƒ©ã‚°ãŒã©ã†ã‚‚ã‚¦ã‚¶ã„ã¨ã„ã†äººå‘ã‘ã«ã“ã‚“ãª CPAN ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ãŒã‚ã‚‹ãã†ãªã€‚ Unicode::RecursiveDowngrade hashref ã¨ã‹ã€arrayref ã¨ã‹è¤‡é›‘ãªæ§‹é€ ã«ãªã£ãŸå¤‰æ•° (ãŸã¨ãˆã° XML ã‚„ RSS ã‚’ XML::Simple ã‚„ XML::RSS ç‰ã§ parse ã—ãŸæ§‹é€ ) ã‚’ã€æ§‹é€ ã‚’å¤‰ãˆã‚‹ã“ã¨ãªãã€å€¤å…¨ã¦ã® UTF-8 ãƒ•ãƒ©ã‚°ã‚’ä¸€æ‹¬ã§è½ã¨ã—ãŸã„å ´åˆã«ï¾ï¾žï¾ï½°ï¾˜ã€‚ ã“ã‚“ãªã‚“ã—ã¦ä½¿ãˆã‚‹æ¨¡æ§˜ã€‚ use strict; use XML::Simple; use Unicode::RecursiveDowngrade; use Data::Dumper; my $ref = XMLin('hoge.xml'); # includes flagged UTF-8 my $rd = Unicode::Recursi
rikuo 2005/09/22
perl
ãƒªãƒ³ã‚¯
1