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

higeorange id:higeorange

moduleã¨perlã«é–¢ã™ã‚‹higeorangeã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ (8)

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

MFPM:ãƒ›ãƒ¼ãƒ
ã“ã®ã‚µã‚¤ãƒˆã¯ã€CPANã«ç™»éŒ²ã•ã‚Œã¦ã„ã‚‹ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’ãŠæ°—ã«å…¥ã‚Šãƒªã‚¹ãƒˆã¨ã—ã¦ã‚³ãƒ¡ãƒ³ãƒˆã‚’ã¤ã‘ã¦ç™»éŒ²ã—ãŸã‚Šã€ä»–äººã®ãŠæ°—ã«å…¥ã‚Šãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã®ä¸€è¦§ã‚’è¦‹ãŸã‚Šã™ã‚‹ã“ã¨ãŒå‡ºæ¥ã¾ã™ã€‚ ä¸»ãªæ©Ÿèƒ½ CPANãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã®æ¤œç´¢ ã‚³ãƒ¡ãƒ³ãƒˆã‚’ã¤ãã®ãŠæ°—ã«å…¥ã‚Šãƒªã‚¹ãƒˆ ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã®ãƒãƒ¼ã‚¸ãƒ§ãƒ³ã‚¢ãƒƒãƒ—ã®æ¤œçŸ¥ ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã«é–¢ã™ã‚‹ä»–äººã®ã‚³ãƒ¡ãƒ³ãƒˆé–²è¦§ ä»–äººã®ãŠæ°—ã«å…¥ã‚Šãƒªã‚¹ãƒˆé–²è¦§ è‡ªåˆ†ã®ãŠæ°—ã«å…¥ã‚Šãƒªã‚¹ãƒˆã‚’è‡ªåˆ†ã®Blogã«è²¼ã‚Šä»˜ã‘ã‚‰ã‚Œã‚‹ CPANãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã«å¯¾ã—ã¦ãƒˆãƒ©ãƒƒã‚¯ãƒãƒƒã‚¯é€ä¿¡å¯èƒ½ ãŠæ°—ã«å…¥ã‚Šã«ç™»éŒ²ã—ãªã„ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã«å¯¾ã—ã¦ãƒ¡ãƒ¢ã‚’æ®‹ã›ã‚‹ del.icio.usãªã©ã¨åŒç‰ã®ã‚¿ã‚°æ©Ÿèƒ½ã«ã‚ˆã‚‹ãŠæ°—ã«å…¥ã‚Šæ•´ç† ã‚¿ã‚°ã‚’æŒ‡å®šã—ã¦ã€Blogã«è²¼ã‚Šä»˜ã‘ã‚‹ãƒªã‚¹ãƒˆã‚’å¤‰æ›´å¯èƒ½ ç°¡æ˜“ã‚½ãƒ¼ã‚¹ã‚³ãƒ¼ãƒ‰ãƒ“ãƒ¥ãƒ¼ãƒ¯ãƒ¼ ãƒãƒ¼ã‚¸ãƒ§ãƒ³ã‚¢ãƒƒãƒ—é€šçŸ¥ãƒ¡ãƒ¼ãƒ« ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«äººæ°—ãƒ©ãƒ³ã‚ãƒ³ã‚° ç¾åœ¨ã®æ‰€ã€ãã‚Œä»¥ä¸Šã§ã‚‚ãã‚Œä»¥ä¸‹ã§ã‚‚ãªã„ã§ã™ãŒã€å°†æ¥çš„ã«ã¯è‰²ã€…æ‹¡å¼µã™ã‚‹ã¯ãšã€‚ åˆ©ç”¨è€…ãŒå‡ºæ¥ãŸã¨ãã®ToD
higeorange 2008/05/22
cpan

library

module

perl
ãƒªãƒ³ã‚¯
Imagerã‚’ä½¿ãŠã† - ç¬¬1å›žã€Œç”»åƒã®èªã¿æ›¸ãã€
ä»Šä»•äº‹ã§æ¿€ã—ãImagerã‚’ä½¿ã£ã¦ã„ã¦ã€ImageMagickãªã©ã«ã‚‚åŠ£ã‚‰ãªã„æ©Ÿèƒ½ã‚’æŒã£ã¦ã„ã‚‹ãªã‚ã¨æ„Ÿã˜ã¦ã„ã‚‹ä»Šæ—¥ã“ã®é ƒãªã®ã§ã™ãŒã€ã›ã£ã‹ãä½¿ã£ã¦ã„ã¦è¦šãˆãŸãƒ†ã‚¯ãƒ‹ãƒƒã‚¯ã‚’è‡ªåˆ†ã®ä¸ã§çµ‚ã‚‰ã›ã‚‹ã®ã¯ã‚‚ã£ãŸã„ãªã„ã—ã€æ—¥æœ¬èªžã§ã®ãƒ‰ã‚ãƒ¥ãƒ¡ãƒ³ãƒˆã‚‚ã‚ã¾ã‚Šãªã„ã¿ãŸã„ãªã®ã§ã¾ã¨ã‚ã¦ã¿ã‚ˆã†ã¨æ€ã„ã¾ã—ãŸã€‚ã¨ã„ã†ã“ã¨ã§ã€ã“ã‚Œã‹ã‚‰æ•°å›žã«æ¸¡ã£ã¦Imagerã§ã§ãã‚‹ã“ã¨ã‚’ç´¹ä»‹ã—ã¦ã„ããŸã„ã¨æ€ã„ã¾ã™ã€‚(ã¾ãã€podã‚’èªã‚ã¨ã„ã†è©±ãªã‚“ã§ã™ã‘ã©ã€Imagerã¯ãƒ‰ã‚ãƒ¥ãƒ¡ãƒ³ãƒˆã‚‚å¤šã„ã—ã€ã‚ˆãä½¿ã†æ©Ÿèƒ½ã ã‘ã¾ã¨ã‚ã¦ãŠã„ã¦ã‚‚ã„ã„ã‹ãªã¨æ€ã„ä»Šå›žã“ã†ã„ã†ã®ã‚’å§‹ã‚ã¦ã¿ã¾ã—ãŸ) ã¾ãšç¬¬1å›žç›®ã¯ã€ã¨ã‚Šã‚ãˆãšç”»åƒã‚’èªã¿æ›¸ãã®æ–¹æ³•ã‹ã‚‰ã€‚ Imagerã§ç”»åƒã‚’èªã¿è¾¼ã‚€ã«ã¯ã€read()ã¨ã„ã†ãƒ¡ã‚½ãƒƒãƒ‰ã‚’ä½¿ç”¨ã—ã¾ã™ã€‚ my $img = Imager->new->read(file => 'foo.jpg', type => 'jpg'); ã“ã®ã‚ˆã†ã«file
higeorange 2006/11/10
image

imagemagick

module

perl
ãƒªãƒ³ã‚¯
Imagerã‚’ä½¿ãŠã† - ç¬¬2å›žã€Œç”»åƒã‚’åŠ å·¥ã™ã‚‹ã€
ã•ã¦ã€å‰å›žã®äºˆå‘Šã—ãŸã‚ˆã†ã«ã€ä»Šå›žã¯Imagerã‚’ä½¿ã£ã¦èªã¿è¾¼ã‚“ã ç”»åƒã‚’ã„ã‚ã„ã‚ãªæ–¹æ³•ã§åŠ å·¥ã™ã‚‹æ–¹æ³•ã‚’ã”ç´¹ä»‹ã—ã‚ˆã†ã¨æ€ã„ã¾ã™ã€‚ç”»åƒã®åŠ å·¥ã¨ã„ã£ã¦ã‚‚è‰²ã€…ãªæ–¹æ³•ãŒã‚ã‚‹ã¨æ€ã„ã¾ã™ãŒã€ã¾ãšã¯æ‹¡å¤§ç¸®å°ã€å›žè»¢ã€åˆ‡ã‚ŠæŠœãã€åè»¢ã€ä»–ã®ç”»åƒã‚’è²¼ã‚Šä»˜ã‘ã‚ãŸã‚Šã‹ã‚‰èª¬æ˜Žã—ã¦ã„ãã¾ã™ã€‚ ãªãŠã€ä»Šå›žã§ã¦ãã‚‹$imgã¨ã„ã†ã®ã¯å‰å›žç´¹ä»‹ã—ãŸç”»åƒã‚’èªã¿è¾¼ã‚“ã Imagerã®ã‚¤ãƒ³ã‚¹ã‚¿ãƒ³ã‚¹ã ã¨æ€ã£ã¦ãã ã•ã„ã€‚ ä»Šå›žã‚µãƒ³ãƒ—ãƒ«ã¨ã—ã¦åŠ å·¥ã«ä½¿ã†ç”»åƒã¯ä¸‹è¨˜ã«ãªã‚Šã¾ã™ã€‚ æ‹¡å¤§ç¸®å° ã¾ãšã¯ã‚ªãƒ¼ã‚½ãƒ‰ãƒƒã‚¯ã‚¹ãªæ‹¡å¤§ç¸®å°ã§ã™ã€‚ã‚³ãƒ¼ãƒ‰ã¯ä»¥ä¸‹ã€‚ $new_img = $img->scale(scalefactor => 0.5); # ç¸¦æ¨ªã‚’å…ƒç”»åƒã®åŠåˆ†ã«ã™ã‚‹(scale01.jpg) $new_img = $img->scale(scalefactor => 1.5); # ç¸¦æ¨ªã‚’å…ƒç”»åƒã®2å€ã«ã™ã‚‹(scale02.jpg) $new_img = $i
higeorange 2006/11/10
image

imagemagick

module

perl
ãƒªãƒ³ã‚¯
Imagerã‚’ä½¿ãŠã† - ç¬¬3å›žã€Œæ–‡å—ã‚’æ›¸ãã€
ã¡ã‚‡ã£ã¨é–“ãŒã‚ã„ã¦ã—ã¾ã„ã¾ã—ãŸãŒã€ç¬¬3å›žã‚’å…¬é–‹ã—ã¾ã™ã€‚ä»Šå›žã¯ç”»åƒã«æ–‡å—ã‚’æ›¸ãæ–¹æ³•ã‚’ã”ç´¹ä»‹ã—ãŸã„ã¨æ€ã„ã¾ã™ã€‚(æ±ºã£ã—ã¦ç†±ãŒå†·ã‚ãŸã‚ã‘ã§ã¯ãªã„ã§ã€ã„ã‚„ã»ã‚“ã¨ã«ã»ã‚“ã¨ã«ï½—) Imagerã«ã¯ã€æ–‡å—ã‚’æ›¸ããŸã‚ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã¨APIãŒç”¨æ„ã•ã‚Œã¦ã„ã¦ä½¿ã„æ–¹ã‚‚ç°¡å˜ã€‚ãã‚Œã§ã„ã¦ã€ã„ã‚ã„ã‚ãªç´°ã‹ã„è¨å®šãŒã§ããŸã‚Šã—ã¾ã™ã€‚ ã¨ã‚Šã‚ãˆãšã‚µãƒ³ãƒ—ãƒ«ã‚³ãƒ¼ãƒ‰ã¨ç”Ÿæˆã•ã‚ŒãŸç”»åƒã‚’è¦‹ã¦ã¿ã¾ã—ã‚‡ã†ã€‚ â€»ã¡ãªã¿ã«æ–‡å—ã‚’æ›¸ã(ãƒ•ã‚©ãƒ³ãƒˆã‚’æ‰±ã†)ã«ã¯Imagerã®ä»–ã«freetype1.x(freetype2.xã§ã‚‚ok)ã‚’ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã—ã¦ãŠãå¿…è¦ãŒã‚ã‚Šã¾ã™ã€‚è©³ã—ãã¯Imager::Fontã‚’å‚ç…§ã®ã“ã¨ã€‚ #!/usr/local/bin/perl use strict; use Imager; my $string = "Let's use Imager."; my $font = Imager::Font->new( file =>
higeorange 2006/11/10
image

imagemagick

module

perl
ãƒªãƒ³ã‚¯
YappoLogs: Geo::Coordinates::Converter - ç·¯åº¦çµŒåº¦ã‚’ç°¡å˜ã«å¤‰æ›ã™ã‚‹
Geo::Coordinates::Converter - ç·¯åº¦çµŒåº¦ã‚’ç°¡å˜ã«å¤‰æ›ã™ã‚‹ ã ã„ã¶å†ç™ºæ˜Žæ„ŸãŒã‚ã‚‹ã®ã§ã™ãŒã€ç·¯åº¦çµŒåº¦ãƒ‡ãƒ¼ã‚¿ã‚’ç°¡å˜ã«å¤‰æ›å‡ºæ¥ã‚‹ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’ä½œã‚Šã¾ã—ãŸã€‚ Geo::Coordinates::Converter CPANã«ã†pæ¸ˆã¿ã§ã™ã€‚ æ—¢å˜ã§ä¼¼ãŸè€…ã¯çµæ§‹ã‚ã£ãŸã®ã§ã™ãŒã€ã©ã‚Œã‚‚å¤‰æ›å‡¦ç†ãŒdatumã®ãƒ¡ã‚½ãƒƒãƒ‰åç›´æ›¸ãã¨ã‹å€¤ãŒãƒãƒ¼ãƒ‰ã‚³ãƒ¼ãƒ‰ã•ã‚Œã¦ãŸã‚Šã§ã€è‡ªç”±åº¦ä½Žã‚ã ã£ãŸã®ã§æ–°ã—ãä½œã‚Šã¾ã—ãŸã€‚ æ¸¬åœ°ç³»/ãƒ•ã‚©ãƒ¼ãƒžãƒƒãƒˆç‰ã‚’ãƒ—ãƒ©ã‚°ã‚¤ãƒ³ã£ã½ãç°¡å˜ã«è¿½åŠ å‡ºæ¥ã‚‹æ§˜ã«ã—ã¦åº§æ¨™å‘¨ã‚Šã®ãƒ•ãƒ¬ãƒ¼ãƒ ãƒ¯ãƒ¼ã‚¯ã¨ã—ã¦ä½¿ãˆã‚‹æ§˜ã«å®Ÿè£…ã—ã¾ã—ãŸã€‚ ä½¿ã„æ–¹ã¯ use strict; use warnings; use Geo::Coordinates::Converter; my $geo = Geo::Coordinates::Converter->new( lat => '35.65580', lng => '1
higeorange 2006/11/10
map

module

perl
ãƒªãƒ³ã‚¯
[Perl] ä½œæˆã—ãŸãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’CPANã§å…¬é–‹ã™ã‚‹æ‰‹é †
ä¹…ã—ã¶ã‚Šã« Perl ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’ä½œæˆã—ã¦ã¿ãŸ ã®ã§ã€ã›ã£ã‹ããªã®ã§ CPAN ã«ã‚¢ãƒƒãƒ—ãƒãƒ¼ãƒ‰ã—ã¦ã¿ã¾ã—ãŸã€ã®æ‰‹é †ã‚’ãƒ¡ãƒ¢ã€‚ ã‚‚ã¨ã‚‚ã¨ã€2002å¹´ã« CPAN ã¸ã®ã‚¢ãƒƒãƒ—ãƒãƒ¼ãƒ‰ã‚µã‚¤ãƒˆ PAUSE ç”¨ã®ã‚¢ã‚«ã‚¦ãƒ³ãƒˆã¯ ä½œã£ã¦ã‚ã£ãŸã‘ã©ã€å®Ÿéš›ã«è‡ªä½œãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’ CPAN ã§å…¬é–‹ã—ã¦ã‚‚ã‚‰ã£ãŸã“ã¨ã¯ãªã‹ã£ãŸã®ã§ã€ å®Ÿã¯ä»Šå›žãŒåˆæŒ‘æˆ¦ã§ã—ãŸã€‚ ã‚‚ã—â†“ã«é–“é•ã£ã¦ã„ã‚‹ç‚¹ãŒã‚ã‚Šã¾ã—ãŸã‚‰ã€ã”æŒ‡æ‘˜ã„ãŸã ã‘ã‚‹ã¨å¹¸ã„ã§ã™ã€‚ï¼žè˜è€…ã®æ–¹ é…å¸ƒç”¨ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’ä½œæˆã™ã‚‹ ã¾ãšç¬¬ä¸€æ©ã¯ã€ perlnewmod - æ–°ã—ã„ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’é…å¸ƒã™ã‚‹ã«ã¯ ã‚’ç†Ÿèªã™ã‚‹ã“ã¨ã€‚ ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ« .pm ãƒ•ã‚¡ã‚¤ãƒ«ã¨ã€ ãã®ã‚¢ãƒ¼ã‚«ã‚¤ãƒ– .tar.gz ãƒ•ã‚¡ã‚¤ãƒ« ã‚’ä½œæˆã™ã‚‹ã®ãŒæœ€åˆã§ã™ã€‚ ä¸èº«ã¯ä»¥ä¸‹ã®ã‚ˆã†ãªãƒ•ã‚¡ã‚¤ãƒ«æ§‹æˆã«ãªã‚Šã¾ã—ãŸã€‚ lib/XML/TreePP.pm # Perlãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«æœ¬ä½“ Makefile.PL # ã»ã¼h2xsã§ç”Ÿæˆã—ãŸãã®ã¾ã¾
higeorange 2006/10/14
cpan

module

perl
ãƒªãƒ³ã‚¯
HTML::Selector::XPath ã‚’ãƒªãƒªãƒ¼ã‚¹: blog.bulknews.net
HTML::Selector::XPath ã‚’ãƒªãƒªãƒ¼ã‚¹ CSS Selector in Perl ã¨ã‹ subtech - Bulknews::Subtech - CSS selector to XPath ã‚ãŸã‚Šã§è°è«–ã—ã¦ã„ãŸ CSS 2 Selectors to XPath ã‚³ãƒ³ãƒ‘ã‚¤ãƒ©ãªãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’ã¤ãã£ã¦ã€CPAN ã« HTML::Selector::XPath ã¨ã—ã¦ãƒªãƒªãƒ¼ã‚¹ã—ã¾ã—ãŸã€‚ ä½¿ã„æ–¹ã¯ naoya ã•ã‚“ãŒå…ˆã«æ›¸ã„ã¦ã¾ã™ãŒã€HTML ã‹ã‚‰æ£è¦è¡¨ç¾ã‚’ä½¿ã†ã“ã¨ãªãã‚¹ã‚¯ãƒ¬ã‚¤ãƒ—ã™ã‚‹ã®ã«ä¾¿åˆ©ã€‚ãŸã¨ãˆã° Mixi ã«ãƒã‚°ã‚¤ãƒ³ã—ã¦ãƒžã‚¤ãƒŸã‚¯æœ€æ–°æ—¥è¨˜ã¨ã€ï¼‘ä»¶ç›®ã®ã‚¿ã‚¤ãƒˆãƒ«ã€æœ¬æ–‡ã‚’æŠœãå‡ºã™ã‚³ãƒ¼ãƒ‰ãŒã€ä»¥ä¸‹ã®ã‚ˆã†ã«ã‹ã‘ã¾ã™ã€‚ #!/usr/bin/perl use strict; use warnings; use utf8; use Encode; use HTML::Selector::XPat
higeorange 2006/10/04
CSS

Perl

module

xpath
ãƒªãƒ³ã‚¯
Lingua::JA::Hepburn::Passport ã§ãƒ˜ãƒœãƒ³å¼ãƒãƒ¼ãƒžå—å¤‰æ›: blog.bulknews.net
Lingua::JA::Hepburn::Passport ã§ãƒ˜ãƒœãƒ³å¼ãƒãƒ¼ãƒžå—å¤‰æ› ã²ã‚‰ãŒãª/ã‚«ã‚¿ã‚«ãƒŠã‹ã‚‰ãƒ˜ãƒœãƒ³å¼ãƒãƒ¼ãƒžå—ã«å¤‰æ›ã™ã‚‹ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ« ã‚’ãƒªãƒªãƒ¼ã‚¹ã—ã¾ã—ãŸã€‚ åŒã˜ã‚ˆã†ãªã“ã¨ã‚’ã™ã‚‹ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã¯ Lingua::JA::Romaji, Linguua::JA::Romanize::Kana, Text::Kakasi ã¨ã„ã‚ã„ã‚ã‚ã‚‹ã‚“ã§ã™ãŒã€æ—¥æœ¬ã®å¤–å‹™çœãƒ‘ã‚¹ãƒãƒ¼ãƒˆã®ãƒ«ãƒ¼ãƒ« ã«ã‚ã‚‹ãƒ˜ãƒœãƒ³å¼ã«å‰‡ã£ãŸã‚‚ã®ã¯ï¼‘å€‹ã‚‚ãªã‹ã£ãŸã®ã§è»Šè¼ªã®å†ç™ºæ˜Žã€‚ use utf8; use Lingua::JA::Hepburn::Passport; my $hepburn = Lingua::JA::Hepburne::Passport->new; $hepburn->romanize("ã¿ã‚„ãŒã‚"); # MIYAGAWA $hepburn->romanize("ãŠãŠã®"); # ONO $hepburn->r
higeorange 2006/09/28
cpan

japan

module

perl
ãƒªãƒ³ã‚¯
1