[B! pm] hibomaã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

hiboma id:hiboma

pmã«é–¢ã™ã‚‹hibomaã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ (21)

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

é…’æ—¥è¨˜ ã¯ã¦ãªæ”¯åº— - Deamon::Generic ã§ TheSchwartz ã® worker ã‚’ãƒ‡ãƒ¼ãƒ¢ãƒ³åŒ–ã™ã‚‹(1)
TheSchwartz ã® worker ã‚’ãƒ‡ãƒ¼ãƒ¢ãƒ³ã«ã—ãŸãã¦ã€ã©ã†ã—ã‚ˆã†ã‹ã¨ã€‚daemontools ã§ã‚‚ã„ã„ã‚“ã ã‚ã†ã‘ã©ã€CPAN ã§è¦‹ã¤ã‘ãŸ Daemon::Generic ã‚’ä½¿ã£ã¦ã¿ãŸã€‚ ã¾ãš TheSchwartz ã® client (jobã‚’æŠ•å…¥ã™ã‚‹) ã¨ worker (jobã‚’å®Ÿè¡Œã™ã‚‹) ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’æ™®é€šã«ä½œã‚‹ã€‚ #!/usr/bin/perl # client.pl use strict; use TheSchwartz; use YAML qw/ LoadFile /; my $client = TheSchwartz->new( %{ LoadFile(shift) } ); $client->insert( 'MyWorker' => { t => time } ); package MyWorker; use strict; use base qw/ TheSch
hiboma 2007/10/05
Daemon::Generic

perl

pm

TheSchwartz
ãƒªãƒ³ã‚¯
Imagerã‚’ä½¿ã£ã¦sasakillizerä½œã£ãŸ
hiboma 2007/10/05
image

perl

pm
ãƒªãƒ³ã‚¯
ã‚¦ã‚§ãƒ–ãƒªãƒ–ãƒã‚°ï¼šã‚µãƒ¼ãƒ“ã‚¹ã¯çµ‚äº†ã—ã¾ã—ãŸã€‚
ã€Œã‚¦ã‚§ãƒ–ãƒªãƒ–ãƒã‚°ã€ã¯ 2023å¹´1æœˆ31æ—¥ ã‚’ã‚‚ã¡ã¾ã—ã¦ã‚µãƒ¼ãƒ“ã‚¹æä¾›ã‚’çµ‚äº†ã„ãŸã—ã¾ã—ãŸã€‚ 2004å¹´3æœˆã®ã‚µãƒ¼ãƒ“ã‚¹é–‹å§‹ã‚ˆã‚Š19å¹´è¿‘ãã‚‚ã®é–“ã€æ²¢å±±ã®çš†ã•ã¾ã«ã”æ„›ç”¨ã„ãŸã ãã¾ã—ãŸã“ã¨ã‚’å¿ƒã‚ˆã‚ŠãŠç¤¼ç”³ã—ä¸Šã’ã¾ã™ã€‚ä»Šå¾Œã¨ã‚‚ã€BIGLOBEã‚’ã”æ„›é¡§è³œã‚Šã¾ã™ã‚ˆã†ã€ã‚ˆã‚ã—ããŠé¡˜ã„ç”³ã—ä¸Šã’ã¾ã™ã€‚ â€»å¼•ã£è¶Šã—å…ˆãƒ–ãƒã‚°ã¸ã®ãƒªãƒ€ã‚¤ãƒ¬ã‚¯ãƒˆã‚µãƒ¼ãƒ“ã‚¹ã¯2024å¹´1æœˆ31æ—¥ã§çµ‚äº†ã„ãŸã—ã¾ã—ãŸã€‚ BIGLOBEã®ã‚µãƒ¼ãƒ“ã‚¹ä¸€è¦§
hiboma 2007/10/05
image

perl

pm
ãƒªãƒ³ã‚¯
Perl ã§ä½œã‚‹ç”»åƒé¡žä¼¼æ¤œç´¢ã‚·ã‚¹ãƒ†ãƒ ã®è€ƒå¯Ÿ
ä»Šæ—¥ã¯ã¨ã¦ã‚‚ã‚·ãƒ§ãƒƒã‚ãƒ³ã‚°ãªå‡ºæ¥äº‹ãŒã‚ã‚Šã¾ã—ãŸã€‚ã‚ã¾ã‚Šã«ã‚·ãƒ§ãƒƒã‚¯ãŒã§ã‹ã„ã®ã§ä½•ã‹ã«æ²¡é ã—ãªã‘ã‚Œã°æ°—ãŒç´›ã‚Œãã†ã«ã‚ã‚Šã¾ã›ã‚“ã€‚ã¨è¨€ã†ã‚ã‘ã§å…¨ãå°‚é–€åˆ†é‡Žã§ã‚‚ãªã„ã—å½“é¢ä½¿ã†äºˆå®šã‚‚ãªã„ã®ã§ã™ãŒã€ï¼‘å¹´ã»ã©å‰ã«ã¡ã‚‡ã£ã¨æ°—ã«ãªã£ã¦ã„ãŸç”»åƒã®é¡žä¼¼æ¤œç´¢ã«ã¤ã„ã¦ã„ã‚ã„ã‚èª¿ã¹ã¦ã¿ã¾ã—ãŸã€‚ ã©ã†ã‚„ã‚‰ ImgSeek ã£ã¦ã‚½ãƒ•ãƒˆãŒçµæ§‹æœ‰åã‚‰ã—ã„ã§ã™ã€‚æœ€æ–°ãƒãƒ¼ã‚¸ãƒ§ãƒ³ã¯ 0.86 ã§ Linux Only ã§ã™ã€‚ï¼‘ã¤å‰ã®ãƒãƒ¼ã‚¸ãƒ§ãƒ³ 0.85 ã¯ Windows binary ãŒã‚ã‚Šã¾ã™ã€‚ éŽåŽ»ã«ã„ãã¤ã‹ç”»åƒé¡žä¼¼æ¤œç´¢ã‚½ãƒ•ãƒˆã‚’è©¦ã—ãŸã‚ˆã†ãªè¨˜æ†¶ãŒã‚ã‚Šã¾ã™ãŒå¿˜ã‚Œã¦ã—ã¾ã„ã¾ã—ãŸï¼ˆvector ã§ã‚‚çµæ§‹é¡žä¼¼æ¤œç´¢ã‚½ãƒ•ãƒˆã‚ã‚Šã¾ã™ãï¼‰ã€‚ã¾ãšã¯ windows binary ç‰ˆã‚’ãƒ€ã‚¦ãƒ³ãƒãƒ¼ãƒ‰ã—ã¦ãã¦å®Ÿè¡Œã—ã¦ã¿ã¾ã—ãŸã€‚ ãã‚Œãªã‚Šã«ä½¿ãˆãã†ãªäºˆæ„ŸãŒã—ã¾ã™ã€‚Linux å‘ã‘ã® imgSeek-0.8.6.tar.bz2 ã‚’ãƒ€ã‚¦ãƒ³ãƒãƒ¼ãƒ‰ã—ã¦ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼
hiboma 2007/10/05
image

perl

pm
ãƒªãƒ³ã‚¯
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
hiboma 2007/10/05
image

perl

pm
ãƒªãƒ³ã‚¯
s.h.log: Perl - Imagerã§å†™çœŸã«åŠé€æ˜Žãƒã‚´ã‚’å…¥ã‚Œã‚‹
CPANãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«Imagerã§ã€æ–°èžç¤¾ã¨ã‹ãŒã‚„ã£ã¦ã‚‹ã‚ˆã†ãªã‚³ãƒ”ãƒ¼ãƒ©ã‚¤ãƒˆã®ãƒã‚´ã‚’å†™çœŸã«å…¥ã‚Œã‚‰ã‚Œã‚‹ã€‚ ã“ã®è¾ºã‚’å‚è€ƒã« ãƒ»use Imager; - ä»Šæ—¥ã®CPANãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«[ã¾ãã¾ãï¼] ãƒ»Elementary, ... ãã‚Œã€Imager ã§ ãƒ»Webã‹ã‚‰ç”»åƒã‚’ã¨ã£ã¦ãã¦ãƒªã‚µã‚¤ã‚ºã™ã‚‹å‡¦ç†ã®ãƒ™ãƒ³ãƒãƒžãƒ¼ã‚¯ (Yusukebe::Tech) ã“ã‚“ãªæ„Ÿã˜ã§å³ä¸Šã«å…¥ã£ã¦ã€result.jpgã¨ã—ã¦å‡ºæ¥ãŸã€‚ â– Imagerã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ« coLinuxç‰ˆã®Debian 4.0 etchã®å ´åˆã€‚ã¾ãšaptã§ç”»åƒå‡¦ç†é–¢ä¿‚ã‚’å…¥ã‚Œã¦ãŠã# apt-get install libjpeg-dev libtiff-dev libpng-dev giflib-dev libttf-dev libfreetype6-devã‚“ã§cpan shellã§install Imager â– ç”»åƒã‚’æº–å‚™ã—ã¦ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°
hiboma 2007/10/05
image

perl

pm
ãƒªãƒ³ã‚¯
ã‚†ãƒ¼ã™ã‘ã¹ãƒ¼æ—¥è¨˜
ã‚µã‚ã¨ã¯å½¼å¥³ã®è‡ªå®…è¿‘ãã€æ¹˜å—å°é§…å‰ã®ã‚¹ãƒ¼ãƒ‘ãƒ¼ãƒžãƒ¼ã‚±ãƒƒãƒˆã§å¾…ã¡åˆã‚ã›ã‚’ã—ãŸã€‚å½¼å¥³ã¯è‡ªè»¢è»Šã§å¾Œã‹ã‚‰è¿½ã„ã¤ãã¨è¨€ã„ã€åƒ•ã¯å¤§ããªã‚³ã‚¤ãƒ³ãƒ‘ãƒ¼ã‚ãƒ³ã‚°ã¸è»Šã‚’åœã‚ãŸã€‚ç…™è‰ã‚’ä¸€æœ¬å¸ã£ã¦ã‹ã‚‰ã‚¹ãƒ¼ãƒ‘ãƒ¼ãƒžãƒ¼ã‚±ãƒƒãƒˆã¸å‘ã‹ã†ã¨ã€ã²ã£ãã‚Šãªã—ã«ä¸»å©¦çš„ãªå¥³æ€§ã‹ãŠã°ã‚ã¡ã‚ƒã‚“ãŒå…¥ã‚Šå£ã‚’å‡ºãŸã‚Šå…¥ã£ãŸã‚Šã—ã¦ã„ãŸã€‚æ™‚åˆ»ã¯åˆå¾Œ5æ™‚ã«ãªã‚‹ã€‚æ™‚è¨ˆã‹ã‚‰ç›®ã‚’ä¸Šã’ã‚‹ã¨ã€å¾…ãŸã›ã¡ã‚ƒã£ãŸã‚ãã¨å¤§ã—ã¦æ‚ªã³ã‚Œã¦ãªã„æ§˜åã§ã‚µã‚ãŒæ‰‹ã¶ã‚‰ã§ã‚„ã£ã¦ããŸã€‚ ãŠç¤¼ã«æ–™ç†ã‚’ä½œã‚‹ã¨ã¯ã„ãˆã€ã‚µã‚ã®å®¶ã«ã¯é£ŸæãŒååˆ†è¶³ã‚Šã¦ã„ãªã„ã‚‰ã—ãã€ã“ã†ã—ã¦ã‚¹ãƒ¼ãƒ‘ãƒ¼ãƒžãƒ¼ã‚±ãƒƒãƒˆã«å¯„ã‚‹ã“ã¨ã«ãªã£ãŸã€‚ã‚µã‚ã¯é‡Žèœã‚³ãƒ¼ãƒŠãƒ¼ã‹ã‚‰ç²¾è‚‰ã‚³ãƒ¼ãƒŠãƒ¼ã¾ã§ã€ã¾ã‚‹ã§å„ªç§€ãªã‚«ãƒ¼ãƒŠãƒ“ã«å°Žã‹ã‚Œã‚‹ã‚ˆã†ã«ç„¡é§„ãªãç‚¹æ¤œã—ã¦ã„ã£ãŸã€‚æ¬²ã—ã„é£ŸæãŒã‚ã‚‹ã¨ã€2ç§’é–“ç¨‹åº¦ãã‚Œã‚‰ã‚’å‡è¦–ã—ã€ä¸€åº¦æ‰‹ã«å–ã£ãŸã˜ã‚ƒãŒã„ã‚‚ã‚„ã‚‰è±šè‚‰ã‚„ã‚‰ã‚’è¿·ã†ã“ã¨ãªãåƒ•ãŒæŒã£ã¦ã„ã‚‹ã‚«ã‚´ã«æ”¾ã‚Šè¾¼ã‚“ã ã€‚æœ€å¾Œã«ã‚¢ãƒ«ã‚³ãƒ¼ãƒ«é£²æ–™ãŒå†·ã‚„ã•ã‚Œã¦ã„ã‚‹æ£šã®å‰ã¸è¡Œãã¨ã€ç§ãŒé£²ã‚€ã‹ã‚‰ã¨ãƒ
hiboma 2007/10/05
image

perl

pm
ãƒªãƒ³ã‚¯
ã¾ãã¾ãï¼ - èªã¿ãŸã„ãƒ¡ãƒ«ãƒžã‚¬ã€ãã£ã¨è¦‹ã¤ã‹ã‚‹ã€‚
æºå¸¯ã‚¢ãƒ‰ãƒ¬ã‚¹ã€Gmailã€YahooMailã«ãƒ¡ãƒ«ãƒžã‚¬ãŒå±Šã‹ãªã„å ´åˆ ã“ã¡ã‚‰ã‹ã‚‰å—ä¿¡è¨å®šã‚’ãŠè©¦ã—ãã ã•ã„ã€‚ ã¾ãŸã€è³¼èªæœŸé–“å†…ã®ãƒ¡ãƒ«ãƒžã‚¬(æœ‰æ–™ãƒ»ç„¡æ–™)ã¯ãƒžã‚¤ãƒšãƒ¼ã‚¸ã‹ã‚‰å†é€ã§ãã¾ã™ã€‚ ãƒžã‚¤ãƒšãƒ¼ã‚¸ã‚’ãŠæŒã¡ã§ãªã„æ–¹ã¯ã€æ–°è¦ã«ã”ç™»éŒ²ãã ã•ã„ï¼ â†’informationãƒšãƒ¼ã‚¸ã¸
hiboma 2007/10/05
image

perl

pm
ãƒªãƒ³ã‚¯
KanjiManã‚‚Jitensyaã«ä¹—ã›ã¦ã‚ã’ãŸã„ - ï¼ˆã²ï¼‰ãƒ¡ãƒ¢
Pluginã¨ã‹ã¯HStaff::Plugin::*ã«ã€‚ Naoyaã‚„KanjiManã¯HStaffã‚’ç¶™æ‰¿ã€‚ #!/usr/bin/env perl use strict; use warnings; use Naoya; Naoya->new->bell; use KanjiMan; KanjiMan->new->bell; package HStaff; use strict; use warnings; use Class::Component; __PACKAGE__->load_components( qw/ Autocall::InjectMethod / ); 1; package HStaff::Plugin::Jitensya; use strict; use warnings; use base 'Class::Component::Plugin'; use Perl6
hiboma 2007/10/05
class-component

perl

pm

kanji
ãƒªãƒ³ã‚¯
Perlã§ä¾‹å¤–ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã‚’eval & catch - ã¯ã“ã¹ã«ã£ã â™¨
ã²ã•ã³ã•ã«Perlãƒ™ã‚¹ãƒˆãƒ—ãƒ©ã‚¯ãƒ†ã‚£ã‚¹ãƒã‚¿ã€‚ Perlã§ä¾‹å¤–å‡¦ç†ã¨ã„ã†ã¨ã€evalã—ã¦$EVAL_ERROR(= $@)ã®æ–‡å—åˆ—ã‚’åˆ¤å®šã™ã‚‹ã—ã‹ãªã„ã¨æ€ã£ã¦ã„ãŸã®ã ã‘ã‚Œã©ã€ã¡ã‚ƒã‚“ã¨ä¾‹å¤–ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆä½¿ã†æ–¹æ³•ãŒã‚ã£ãŸã€‚ã‚„ã£ã±ã‚Šãªã‚“ã§ã‚‚ã‚ã‚Šã ãªPerlã¯ã€‚ PBPã«ã‚ˆã‚‹ã¨ã€ä¾‹å¤–ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã¯è‡ªåˆ†ã§ä½œã‚‹ã“ã¨ã‚‚ã§ãã‚‹ã®ã ã‘ã‚Œã©ã€ã„ãã¤ã‚‚æ³¨æ„ã—ãªã‘ã‚Œã°ãªã‚‰ãªã„ãƒã‚¤ãƒ³ãƒˆãŒã‚ã‚‹ã‚ˆã†ã ã€‚ æ–‡å—åˆ—å¤‰æ›(q{""})ã®ã‚ªãƒ¼ãƒãƒ¼ãƒãƒ¼ãƒ‰ ä¾‹å¤–ã‚’ã‚ãƒ£ãƒƒãƒã—ãŸã‹ã‚’è¿”ã™caughtãƒ¡ã‚½ãƒƒãƒ‰ ã‚¨ãƒ©ãƒ¼ãƒ¡ãƒƒã‚»ãƒ¼ã‚¸ã®å‡ºåŠ›å…ˆã®å¤‰æ›´ ã“ã®ã‚ãŸã‚ŠãŒæ£ã—ãå®Ÿè£…ã§ãã¦ã„ãªã‘ã‚Œã°ã ã‚ã€‚ã—ã‹ã—ãªãŒã‚‰ã€CPANã«ã¡ã‚‡ã£ã¨ãŠä¼ºã„ã‚’ãŸã¦ã‚‹ã ã‘ã§ã€ä¾‹å¤–ç”¨ã®Exception::Classã¨ã„ã†ã„ã‹ã«ã‚‚ä¾¿åˆ©ãã†ãªãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’åˆ©ç”¨ã§ãã‚‹ã‚‰ã—ã„ã€‚ ã“ã®Exception::Classã‚’åˆ©ç”¨ã—ã¦ã€Perlã®ä¾‹å¤–ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã‚’å®šç¾©ã—ã¦ã¿ãŸã€‚ use warning
hiboma 2007/09/25
perl

pm
ãƒªãƒ³ã‚¯
æ°¸ç¶šåŒ–Perlã§ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã®å†èªã¿è¾¼ã¿ â‡’ Module::Refresh - daily dayflower
mod_perl ã‚„ PersistentPerl (a.k.a. SpeedyCGI) ãªã© Perl ã‚¤ãƒ³ã‚¿ãƒ—ãƒªã‚¿ã‚’æ°¸ç¶šåŒ–ã•ã›ã‚‹ä»•çµ„ã¿ã®ã‚‚ã®ã¯*1ï¼Œä¸€åº¦èªã¿è¾¼ã¾ã‚ŒãŸãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã¯ï¼Œãã®å¾Œãƒ•ã‚¡ã‚¤ãƒ«ãŒå¤‰æ›´ã•ã‚ŒãŸã¨ã—ã¦ã‚‚è‡ªå‹•çš„ã«å†èªã¿è¾¼ã¿ã—ã¦ãã‚ŒãŸã‚Šã¯ã—ã¾ã›ã‚“ã€‚mod_perl ã§ã¯ Apache(2)::Reload ã¨ã„ã†ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ãŒã‚ã‚Šï¼Œãã®ã‚ˆã†ãªå ´åˆã§ã‚‚ã†ã¾ãã¨ã‚Šã¯ã‹ã‚‰ã£ã¦ãã‚Œã¾ã™ã€‚ ã§ï¼Œã‹ã¤ã¦ PersistentPerl ã§ã‚‚åŒã˜ã‚ˆã†ãªã“ã¨ãŒã§ããªã„ã‹ã¨æ€ã£ã¦è‹¦é—˜ã—ãŸã“ã¨ãŒã‚ã‚‹ã®ã§ã™ãŒï¼ˆSpeedyCGI ã¨ module reload - daily dayflowerï¼‰ï¼Œæœ€è¿‘ãµã¨ CPAN ã‚’æ¼ã£ã¦ã„ã¦ Module::Refresh ãªã‚‹ã‚‚ã®ãŒã‚ã‚‹ã“ã¨ã‚’ç™ºè¦‹ã—ã¾ã—ãŸã€‚Jesse ãƒ—ãƒãƒ€ã‚¯ãƒˆã§ã™ã€‚ This module is a generalization of the f
hiboma 2007/09/23
Module::Refresh

pm

perl
ãƒªãƒ³ã‚¯
use Perl | Devel::REPL: now with PPI!
I've been using Devel::REPL for a while now. Like all good modules (Perl::Critic, POE, Plagger, etc), it's very extensible. Devel::REPL's design is worth studying: keep a simple core and ship all the fancy behavior as plugins. Moose amplifies the power and convenience of this design with roles, method modifiers, and general awesomeness. There are plugins to dump output with Data::Dump::Streamer, e
hiboma 2007/09/23
Devel::REPL / shell

perl

pm
ãƒªãƒ³ã‚¯
Device::USB
NAME Device::USB - Use libusb to access USB devices. (DEPRECATED) VERSION Version 0.38 SYNOPSIS Device::USB has now been superceded by USB::LibUSB, which supports the v1.0 libusb API. Device::USB provides a Perl wrapper around the libusb library. This supports Perl code controlling and accessing USB devices. use Device::USB; my $usb = Device::USB->new(); my $dev = $usb->find_device( $VENDOR, $PROD
hiboma 2007/04/08
ã“ã„ã¤ã‹

perl

pm
ãƒªãƒ³ã‚¯
log4ZIGOROu : Module-Starterã®ã‚«ã‚¹ã‚¿ãƒžã‚¤ã‚º
date 2007-04-02 14:05:29 category CPAN permlink here comment 0 trackback 0 ã„ãšã‚Œå¥‡éº—ã«ã¾ã¨ã‚ã¦ã‚„ã‚ã†ã¨æ€ã£ã¦ãŸã‚“ã§ã™ãŒã€ã„ã„æ©Ÿä¼šãªã®ã§ã“ã®è¾ºã‚Šã§module-starterã®è©³ç´°ã¨ã‚«ã‚¹ã‚¿ãƒžã‚¤ã‚ºã«ã¤ã„ã¦æ›¸ã„ã¦ã¿ã¾ã™ã€‚ ã¨ã“ã‚ã§ä»¥å‰Module::Starterã®pluginæ©Ÿæ§‹ãŒé¢ç™½ã„ä»¶ã«ã¤ã„ã¦ã¨è¨€ã†ã‚¨ãƒ³ãƒˆãƒªã‚’æ›¸ã„ãŸäº‹ãŒã‚ã‚‹ã®ã§ã™ãŒã€ã“ã¡ã‚‰ã«é–¢ã—ã¦é ã«å…¥ã£ã¦ã„ã‚‹ã¨ã‚ˆã‚Šç†è§£ã—ã‚„ã™ã„ã‹ã‚‚ã—ã‚Œã¾ã›ã‚“ã€‚ åå‰ã¨ãƒ¡ãƒ¼ãƒ«ã‚¢ãƒ‰ãƒ¬ã‚¹ã®è¨å®š æ¯Žå›žauthor, em ailã‚’æŒ‡å®šã™ã‚‹ã®ã‚‚é¢å€’ãªã®ã§ä¸‹è¨˜ã®ã‚ˆã†ã«è¨å®šã—ã¦ã—ã¾ã„ã¾ã—ã‚‡ã†ã€‚ ~/.module-starter/configã«è¨˜è¼‰ã—ã¾ã™ã€‚ author: Toru Yamaguchi em ail: [email protected] ã“ã‚Œã§æ¬¡å›žã‹ã‚‰ã“ã®ãƒ‘ãƒ©ãƒ¡ãƒ¼ã‚¿ã‚’æŒ‡å®šã™ã‚‹å¿…è¦ã¯ç„¡ããª
hiboma 2007/04/03
perl

pm
ãƒªãƒ³ã‚¯
File::DirWalk - Hatena::Diary::Neko::kak 500 Internal Server Error
http://back-paper.labs.mfac.jp/show?paper_rid=OEF9g0a6g8 ã“ã‚Œã‚’ã¿ã¦ã€globã¨ã‹ä¹…ã€…ã«ã¿ãŸã®ã§ã™ãŒã€ æŒ‡å®šãƒ‡ã‚£ãƒ¬ã‚¯ãƒˆãƒªä»¥ä¸‹ã®ãƒ•ã‚¡ã‚¤ãƒ«ã‚’æ“ä½œã™ã‚‹å ´åˆã¯File::DirWalkãŒãŠå‹§ã‚ã§ã™ã€‚ #! /usr/bin/perl use strict; use warnings; use File::DirWalk; use Path::Class qw/file/; my $dir = shift or die "usage : $0 <dir>\n"; my $dw = File::DirWalk->new; $dw->onFile(sub { my ($name) = @_; my $file = file($name); my $fh = $file->openr(); while (<$fh>) { print "$_"; }
hiboma 2007/03/29
perl

pm
ãƒªãƒ³ã‚¯
String::Random - æ—¥å‘å¤ç‰¹æ®Šå¿œæ´éƒ¨éšŠ
ãƒ©ãƒ³ãƒ€ãƒ ãªæ–‡å—åˆ—ç”Ÿæˆãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã€‚ è‡ªåˆ†ã§å®Ÿè£…ã—ã‚ã‚ˆwã£ã¦è©±ã‚‚ã‚ã‚‹ã‘ã©ã€ä½¿ã£ã¦ã¿ãŸã‚‰æ„å¤–ã¨èžé€šãŒåŠ¹ã„ãŸã®ã§ã€ã”ç´¹ä»‹ã€‚ #!/usr/bin/perl use strict; use warnings; use String::Random; local $\ = "\n"; my $rand = String::Random->new; print $rand->randpattern('c' x 32); print $rand->randregex('[a-zA-Z0-9]{32}'); ã§ä¸‹è¨˜ã®ã‚ˆã†ãªçµæžœã«ãªã‚Šã¾ã™ã€‚ utfjtdmvnkjvqcclefoorqftuonklbzf ezAmL2ZaV599QLasO92PcAHuae2RnoNvæ£è¦è¡¨ç¾ã§æŒ‡å®šå‡ºæ¥ãŸã‚Šã™ã‚‹ã®ã¯å‡„ã„ä¾¿åˆ©ã§ã™ã‚ˆãã‡ã€‚
hiboma 2007/03/29
pm

perl
ãƒªãƒ³ã‚¯
OpenCVã‚’ä½¿ã£ã¦ç”»åƒã®ç‰©ä½“èªè˜ã‚’ã™ã‚‹Perlãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ä½œã£ãŸ - spiritlooseã®ã¯ã¦ãªãƒ€ã‚¤ã‚¢ãƒªãƒ¼
ä½œã£ãŸã€‚ http://search.cpan.org/dist/Image-ObjectDetect/ http://d.hatena.ne.jp/darashi/20070223/1172232765ã§Rubyã®æ‹¡å¼µãƒ©ã‚¤ãƒ–ãƒ©ãƒªã‚’å…¬é–‹ã•ã‚Œã¦ã„ãŸã®ã§ã€ã“ã‚Šã‚ƒã‚„ã‚‰ãªãã¡ã‚ƒãƒ»ãƒ»ãƒ»ã¨æ€ã£ãŸæ¬¡ç¬¬ã§ã™ã€‚ã™ã¿ã¾ã›ã‚“ã€‚ ã“ã‚“ãªæ„Ÿã˜ã§ä½¿ãˆã¾ã™ã€‚Imagerã§é¡”ã‚’å›²ã‚“ã§ã¿ãŸã€‚ #!/usr/local/bin/perl use strict; use warnings; use Imager; use Image::ObjectDetect; my $file = 'picture.jpg'; my $image = Imager->new->read(file => $file); my $cascade = '/usr/local/share/opencv/haarcascades/haarcascad
hiboma 2007/03/08
ã¸ã‡ã€€ã™ã”ã„ãªã

perl

cpan

pm
ãƒªãƒ³ã‚¯
JavaScript::Minifier - Perl translation of jsmin.c. - search.cpan.org
NAME JavaScript::Minifier - Perl extension for minifying JavaScript code SYNOPSIS To minify a JavaScript file and have the output written directly to another file use JavaScript::Minifier qw(minify); open(my $in, 'myScript.js') or die; open(my $out, '>', 'myScript-min.js') or die; minify(input => $in, outfile => $out); close($in); close($out); To minify a JavaScript string literal. Note that by om
hiboma 2007/03/07
JSãƒ•ã‚¡ã‚¤ãƒ«ã®åœ§ç¸®ï¼ŸåŒ–

js

perl

pm
ãƒªãƒ³ã‚¯
http://kerolin.jspeed.jp/Computer/Linux/spiffy070301.html
hiboma 2007/03/02
Spiffy.pm // ãƒ‡ã‚¶ãƒ‘ã‚¿ã®å‹‰å¼·ã«ä½¿ãŠã†ã‹ãª

perl

pm
ãƒªãƒ³ã‚¯
http://kerolin.jspeed.jp/Computer/Linux/wcc070228.html
hiboma 2007/03/01
perl

pm
ãƒªãƒ³ã‚¯
1 2 æ¬¡ã®ãƒšãƒ¼ã‚¸