[B! perl] studio-mã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

studio-m id:studio-m

perlã«é–¢ã™ã‚‹studio-mã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ (316)

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

JSON::XS ã¨ãã‚Œã«ã¾ã¤ã‚ã‚‹æ´å²çš„ãªéŽåŽ»ã®è©±ã€ã¾ã¨ã‚ã€‚ - tokuhirom's blog
ä»Šæ—¥ãƒªãƒªãƒ¼ã‚¹ã•ã‚ŒãŸ common::sense-3.7 ãŒå£Šã‚Œã¦ã„ãŸå½±éŸ¿ã§ã€æ—¥æœ¬ã®çš†ã•ã‚“ãŒæ··ä¹±ã—ã¦ã„ã‚‹ã‚ˆã†ãªã®ã§ã€ä¸å¯§ãª JSON::XS ã®æ´å²è§£èª¬ã‚¨ãƒ³ãƒˆãƒªã‚’ã“ã“ã«è¨˜ã™ã€‚ perl-5.18 ã® hash randomization ã«é–¢ã™ã‚‹ã‚´ã‚¿ã‚´ã‚¿ 5.17 ã§ JSON::XS ã®ãƒ†ã‚¹ãƒˆãŒã“ã‘ã‚‹ hash randomization ã®å½±éŸ¿ã€‚ã“ã‚Œã«ãŸã„ã—ã€mlehmann æ°ã¯ã€hash randomization ã§ã¯ã‚»ã‚ãƒ¥ãƒªãƒ†ã‚£ãŒå¼·åŒ–ã•ã‚Œãªã„ã—ã€æ„å‘³ãŒãªã„ã¨ä¸»å¼µã€‚ ä¿®æ£ç‰ˆã‚’ãƒªãƒªãƒ¼ã‚¹ã—ãªã„ã€‚ reini æ°ã€Cpanel::JSON::XS ã‚’ãƒªãƒªãƒ¼ã‚¹(2013-03-01) https://metacpan.org/module/RURBAN/Cpanel-JSON-XS-2.33_03/XS.pm JSON::XS ã®ä¿®æ£ãŒãªã•ã‚Œãªã„ã®ã§ã€ã¤ã„ã« forkã®è¡“ã€‚ reini æ°
studio-m 2013/07/31
perl

ãŠãªã™ã„
ãƒªãƒ³ã‚¯
å®‰å®šçš„ãª Perl ã‚¢ãƒ—ãƒªã‚±ãƒ¼ã‚·ãƒ§ãƒ³é‹ç”¨ã®ãŸã‚ã® perlbrew é‹ç”¨ãƒ†ã‚¯ãƒ‹ãƒƒã‚¯ - tokuhirom's blog
å‰æçŸ¥è˜Perl5 ã¯ minor version é–“ã§ã¯ãƒã‚¤ãƒŠãƒªäº’æ›æ€§ãŒä¿è¨¼ã•ã‚Œã¦ã„ã‚‹Perl5 ã® minor update ã§ã¯ã€bug fix ã—ã‹åŸºæœ¬çš„ã«è¡Œã‚ã‚Œãªã„Perl5 Porters ã®ä¿å®ˆçš„ã•åº¦åˆã„ã¯ä¿¡ç”¨ã§ãã‚‹perlbrew ã§ã‚»ãƒƒãƒˆã‚¢ãƒƒãƒ—ã™ã‚‹ã¨ãã«æ°—ã‚’ã¤ã‘ã‚‹ã“ã¨ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«åã‚’ãƒ‡ãƒ•ã‚©ãƒ«ãƒˆã® perl-5.16.3 ãªã©ã¨ã›ãšã€perl-5.16 ã¨ minor version ã‚’å«ã‚ãªã„ã‚ˆã†ã«ã™ã‚‹ã€‚ ä¾‹: perlbrew install perl-5.16.2 --as perl-5.16ã‚»ã‚ãƒ¥ãƒªãƒ†ã‚£ãƒ•ã‚£ãƒƒã‚¯ã‚¹ãŒã§ãŸå ´åˆã®å‡¦ç†chromaticã®è¨˜äº‹ã§çŸ¥ã£ãŸã®ã ãŒã€perlbrew ã«ã¯ upgrade-perl ã¨ã„ã†ã‚³ãƒžãƒ³ãƒ‰ãŒã‚ã‚Šã€æœ€æ–°ã®ãƒãƒ¼ã‚¸ãƒ§ãƒ³(ãƒžã‚¤ãƒŠãƒ¼ã‚¢ãƒƒãƒ—ãƒ‡ãƒ¼ãƒˆã®ã¿)ã«ã‚¢ãƒƒãƒ—ã‚°ãƒ¬ãƒ¼ãƒ‰ã™ã‚‹ã“ã¨ãŒç°¡å˜ã«ã§ãã‚‹ã€‚ perlbrew upgrade-perlã“
studio-m 2013/03/13
perl
ãƒªãƒ³ã‚¯
ãƒ¡ãƒ¼ãƒ«ã‚¢ãƒ‰ãƒ¬ã‚¹(addr-spec)ã®æ£è¦è¡¨ç¾ | ã¸ã¼ã„æ—¥è¨˜
èƒ½æ›¸ã å‰ã‚¨ãƒ³ãƒˆãƒªã‚’æ›¸ã„ã¦ã‹ã‚‰ã„ã‚ã„ã‚ã¨èª¿ã¹ã¦ã„ã¦é©šã„ãŸã‚“ã ã‘ã©ã€æ—¥æœ¬èªžã®websiteã§ã€ãã‚Œãªã‚Šã«ã¾ã¨ã‚‚ã«RFC822(RFC2822,RFC5322)ã«æº–æ‹ ã—ãŸ(ã‚‚ã—ãã¯ãã¡ã‚“ã¨æ„å›³çš„ã«æº–æ‹ ã—ã¦ã„ãªã„éƒ¨åˆ†ã‚’é¸æŠžã—ã¦ã„ã‚‹)æ£è¦è¡¨ç¾ã¯Perlã ã‚ã†ãŒPHPã ã‚ã†ãŒRubyã ã‚ã†ãŒè»½ãããã£ãŸç¨‹åº¦ã§ã¯è¦‹å½“ãŸã‚‰ãªã„ã€‚Perlã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã®Em ail::Addressã‚‚Em ail::Validã‚‚ç¨‹åº¦ã®å·®ã¯ã‚ã‚Œå•é¡Œã‚’æŠ±ãˆã¦ã„ã‚‹ã€‚ãã“ã‚‰ã¸ã‚“ã®æ—¢å˜ã®å‡ºå›žã£ã¦ã‚‹æ£è¦è¡¨ç¾ã«ã©ã†ã„ã£ãŸå•é¡ŒãŒã‚ã‚‹ã‹ãªã‚“ã¦ã“ã¨ã¯æ¬¡å›žã‚¨ãƒ³ãƒˆãƒªã«ã¦ã€‚ ã¨ã„ã†ã‚ã‘ã§ã€Perlã€PHPã€Rubyã§RFC5322æº–æ‹ ãªãƒ¡ãƒ¼ãƒ«ã‚¢ãƒ‰ãƒ¬ã‚¹(addr-spec)ã®æ£è¦è¡¨ç¾ã‚’ä»¥ä¸‹ã«ç¤ºã—ã¾ã™ã€‚å°šã€addr-specã®æœ€çµ‚çš„ãªæ£è¦è¡¨ç¾ã®ã¿ãªã‚‰ãšãã‚Œã‚’ä½œæˆã™ã‚‹ã«è‡³ã‚‹éƒ¨åˆ†ã‚‚ä½µè¨˜ã—ã¦ã‚ã‚Šã¾ã™ã€‚ã“ã‚Œã¯ã€æœ€çµ‚çš„ãªæ£è¦è¡¨ç¾ã ã‘ã§ã¯é›£è§£ã™ãŽã¦ã¨ã¦ã‚‚ç†è§£ã§ããªã„ã‹
studio-m 2011/07/26
dev

perl

php

ruby
ãƒªãƒ³ã‚¯
æœ€é€ŸIPã‚¢ãƒ‰ãƒ¬ã‚¹ãƒžãƒƒãƒç ”ä¿®ä¼š - JPerl Advent Calendar 2009
æœ€é€ŸIPã‚¢ãƒ‰ãƒ¬ã‚¹ãƒžãƒƒãƒç ”ä¿®ä¼š - JPerl Advent Calendar 2009 Perl ã«é–¢ã™ã‚‹ã¡ã‚‡ã£ã¨ã—ãŸ Tips ã‚’ã®ã£ã‘ã¦ã¿ã‚‹ã‚ˆã€‚ã¡ã‚ƒã‚“ã¨ç¶šãã‹ãªï¼Ÿ ã‚‚ã†ã™ã2010å¹´ã«ãªã‚‹ã‚ã‘ã§ã™ãŒã€æºå¸¯ã®ã‚µã‚¤ãƒˆãªã©ã§ã‚¢ã‚¯ã‚»ã‚¹å…ƒã®IPã‚¢ãƒ‰ãƒ¬ã‚¹ãŒã‚ãƒ£ãƒªã‚¢ã®IPã‚¢ãƒ‰ãƒ¬ã‚¹å¸¯åŸŸå†…ã«ã‚ã‚‹ã‹ã©ã†ã‹ã‚’ç¢ºèªã—ãŸã‚Šã™ã‚‹ã“ã¨ãŒã‚ã‚‹ã¨æ€ã„ã¾ã™ã€‚ ä¾‹ãˆã°ã€ãƒãƒ¼ã‚«ãƒ«ãƒãƒƒãƒˆãƒ¯ãƒ¼ã‚¯ã®ã‚¢ãƒ‰ãƒ¬ã‚¹(192.168.1.0/24)ã«ãƒžãƒƒãƒã™ã‚‹ã‹ã©ã†ã‹ $env->{REMOTE_ADDR} =~ s/^192\.168\.1\.(?:\d+)$/ ãªã‚“ã¦æ›¸ãã“ã¨ãŒã‚ã‚‹ã¨æ€ã„ã¾ã™ã€‚ã“ã“ã§ã‚ã’ãŸãƒãƒ¼ã‚«ãƒ«ã®ã‚¢ãƒ‰ãƒ¬ã‚¹ã®ã‚ˆã†ãª/24ã®IPã‚¢ãƒ‰ãƒ¬ã‚¹å¸¯åŸŸã§ã‚ã‚Œã°ç°¡å˜ã«æ£è¦è¡¨ç¾ã‚’æ›¸ãã“ã¨ãŒå¯èƒ½ã§ã™ãŒã€/25, /26 /23ã€/22ãªã©ã®CIDRã¯æ£è¦è¡¨ç¾ã§è¡¨ã™ã“ã¨ã¯ãªã‹ãªã‹é›£ã—ã„ã§ã™ã€‚ ã¾ãŸã€æºå¸¯ã‚ãƒ£ãƒªã‚¢ã®ã‚¢ãƒ‰ãƒ¬ã‚¹ã§ã‚ã‚‹ã“ã¨ã‚’ç¢ºèªã—ã‚ˆã†
studio-m 2011/05/20
perl
ãƒªãƒ³ã‚¯
Perl ä»¥å¤–ã®è¨€èªžã§ã‹ã‹ã‚ŒãŸTCPã‚µãƒ¼ãƒãƒ¼ã‚’Test::TCPã§ãƒ†ã‚¹ãƒˆã™ã‚‹ - tokuhirom's blog
Perl ä»¥å¤–ã®è¨€èªžã§ã‹ã‹ã‚ŒãŸTCPã‚µãƒ¼ãƒãƒ¼ã‚’Test::TCPã§ãƒ†ã‚¹ãƒˆã™ã‚‹ Test::TCP ã®ä¸ã§ exec ç™ºè¡Œã™ã‚Œã°ã€groonga ã ã‚ã†ã¨ KT ã ã‚ã†ã¨ memcached ã ã‚ã†ã¨ã€ã‚µãƒ¼ãƒãƒ¼ãƒ—ãƒã‚»ã‚¹ã®ãƒ†ã‚¹ãƒˆã¯ç°¡å˜ã«ã§ãã‚‹ã®ã§ã‚ã£ã¦ã€ã‚µãƒ¼ãƒãƒ¼ã”ã¨ã«ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã«ã™ã‚‹å¿…è¦ã¯ãªã„ã€‚ä»¥ä¸‹ã¯ã€groonga ã‚’ãƒ†ã‚¹ãƒˆã™ã‚‹ä¾‹ã€‚ Test::TCP ã¯ã€ã•ã¾ã–ã¾ãªTCPã‚µãƒ¼ãƒãƒ¼ã®ãƒ†ã‚¹ãƒˆã«ã¤ã‹ã‚ã‚Œã¦ãŠã‚Šã€ã•ã¾ã–ã¾ãª BK ã‚’ãµãã‚“ã å®Ÿè£…ã¨ãªã£ã¦ã„ã¦ã€ã“ã‚Œã‚’å†ç™ºæ˜Žã—ã‚ˆã†ã¨ã™ã‚‹ã¨ã€æ„å¤–ã¨ã‚ã‚“ã©ãã•ã‹ã£ãŸã‚Šã™ã‚‹ã®ã§ã€ç´ ç›´ã«ã¤ã‹ã†ã¨ã‚ˆã„ã§ã™ã€‚ use strict; use warnings; use utf8; use Test::More; use Test::TCP 1.08; use File::Temp (); use File::Which; my $bin = scalar whic
studio-m 2011/02/05
perl
ãƒªãƒ³ã‚¯
Perlå…¬å¼ãƒ‰ã‚ãƒ¥ãƒ¡ãƒ³ãƒˆæ—¥æœ¬èªžç‰ˆ
ã“ã®ã‚µã‚¤ãƒˆã¯ Perl ã®å…¬å¼ãƒ‰ã‚ãƒ¥ãƒ¡ãƒ³ãƒˆã‚’æ—¥æœ¬èªžç¿»è¨³ã—ãŸã‚‚ã®ã‚’è¡¨ç¤ºã™ã‚‹ã‚µã‚¤ãƒˆã§ã™ã€‚ç¿»è¨³ãƒ‡ãƒ¼ã‚¿ã¯ã€perldocjp project ã‹ã‚‰ã¨ã£ã¦ããŸã‚‚ã®ã§ã™ã€‚ é¡žä¼¼ã®ã‚‚ã®ã« perldoc.jp ãŒã‚ã‚Šã¾ã™ãŒã€ãã‚Œã‚ˆã‚Šã‚‚ã¿ã‚„ã™ããªã‚‹ã‚ˆã†ã«ãŒã‚“ã°ã£ã¦ã¿ã¾ã—ãŸã€‚ ãƒ‰ã‚ãƒ¥ãƒ¡ãƒ³ãƒˆä¸€è¦§ æ¦‚è¦(overview) perl - Perl ã®æ¦‚è¦ perlrun - perl ã‚³ãƒžãƒ³ãƒ‰ã®å®Ÿè¡Œã¨ã‚ªãƒ—ã‚·ãƒ§ãƒ³ã«ã¤ã„ã¦ ãƒãƒ¥ãƒ¼ãƒˆãƒªã‚¢ãƒ« perldebtut - ãƒ‡ãƒãƒƒã‚°ã®ãƒãƒ¥ãƒ¼ãƒˆãƒªã‚¢ãƒ« perlopentut - Perl ã§ã„ã‚ã‚“ãªã‚‚ã®ã‚’é–‹ããŸã‚ã®ãƒãƒ¥ãƒ¼ãƒˆãƒªã‚¢ãƒ« perlpacktut - pack ã¨ unpack ã®ãƒãƒ¥ãƒ¼ãƒˆãƒªã‚¢ãƒ« perlreftut - Mark ã«ã‚ˆã‚‹ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã«é–¢ã™ã‚‹ã¨ã¦ã‚‚çŸã„ãƒãƒ¥ãƒ¼ãƒˆãƒªã‚¢ãƒ« perlretut - Perl ã®æ£è¦è¡¨ç¾ã®ãƒãƒ¥ãƒ¼ãƒˆãƒªã‚¢ãƒ« perlt
studio-m 2011/01/27
perl
ãƒªãƒ³ã‚¯
Gearmanã®ã¯ã¾ã‚Šã©ã“ã‚ | ã¸ã¼ã„æ—¥è¨˜
æœ€è¿‘Gearmanã«å…¥é–€ã—ã¦ã„ã‚‹ã®ã§ã™ãŒã€ã„ã‚ã„ã‚ã¨ã¯ã¾ã£ãŸã®ã§ãƒ¡ãƒ¢ã€‚ $worker->workã¯â€Do one jobâ€ã§ã¯ãªãDo job loop Gearman::Workerã®PODã«ã¯ $worker->work while 1; ã¿ãŸã„ãªã‚µãƒ³ãƒ—ãƒ«ãŒæ›¸ã„ã¦ã‚ã£ãŸã‚Š Gearman::Job->work(%opts) Do one job and returns (no value returned). You can pass "on_start" "on_complete" and "on_fail" callbacks in %opts. ã£ã¦æ›¸ã„ã¦ã‚ã‚‹ã®ã§ã™ãŒ(ã—ã‹ã‚‚ã“ã‚Œã¯ã€Gearman::Jobã§ã¯ãªãã¦Gearman::Workerã ã—ã€ã€ã€) workã¯ã‚ªãƒ—ã‚·ãƒ§ãƒ³ç„¡ã—ã§å‘¼ã°ã‚ŒãŸå ´åˆã¯while 1ãªã‚“ã‹ãªãã¦ã‚‚loopã—ã¾ã™ã€‚ work_onceçš„ãªå‹•ãã«ã—ãŸã„
studio-m 2011/01/24
gearman

perl
ãƒªãƒ³ã‚¯
mapã—ãŸçµæžœãŒundefã®ã‚‚ã®ã‚’é™¤ã„ãŸé…åˆ—ã‚’å¾—ã‚‹ - ã™ãŽã‚ƒãƒ¼ã‚“ãƒ¡ãƒ¢
çŸ¥ã‚‰ãªã‹ã£ãŸã€‚ã€‚ my @arr = ( { key => 1 }, { key => 2 }, { key => undef }, { key => 3 } ); ã®ã‚ˆã†ãªãƒ‡ãƒ¼ã‚¿ã«å¯¾ã—ã€å…¨è¦ç´ ã®"key"ã«å¯¾å¿œã™ã‚‹å€¤ã‚’å–ã‚Šå‡ºã—ãŸmapã‚’å¾—ã‚‹ã¨ print "$_\n" for map { $_->{key} } @arr; 1 2 Use of uninitialized value $_ in concatenation (.) or string ... 3ã¨ãªã‚‹ã€‚mapã®çµæžœã¯undefã‚‚å«ã‚€4è¦ç´ ã®é…åˆ—ã¨ã„ã†ã“ã¨ã«ãªã‚‹ã€‚ ã“ã“ã‹ã‚‰undefã®ã‚„ã¤ã‚’é™¤ããŸã„ã€ã¨ã„ã†ã¨ãã€ä»Šã¾ã§ãšã£ã¨ print "$_\n" for (grep { defined } map { $_->{key} } @arr); ã£ã¦ã‚„ã£ã¦mapå¾Œã®ã‚‚ã®ã‚’definedã§ç¯©ã«ã‹ã‘ã¦ãŸã€‚ã‘ã© print "$_
studio-m 2010/11/23
perl
ãƒªãƒ³ã‚¯
Re: Time::Piece::MySQL ã¨ã‚¿ã‚¤ãƒ ã‚¾ãƒ¼ãƒ³ - Yet Another Hackadelic - ãƒ’ãƒ«ã‚ºã§åƒã@robarioã®æŠ€ãƒã‚°
Time::Piece::MySQL ã¨ã‚¿ã‚¤ãƒ ã‚¾ãƒ¼ãƒ³ (è¨‚æ£ã‚ã‚Š) - Yet Another Hackadelic Unix timeã«ã‚¿ã‚¤ãƒ ã‚¾ãƒ¼ãƒ³ã®æ¦‚å¿µã‚’æŒã¡è¾¼ã‚€ã®ã¯æ°—æŒã¡æ‚ªã„ã§ã™ã€‚ å¾—ã‚‰ã‚ŒãŸUnix timeã«å¯¾ã—ã¦ã‚¿ã‚¤ãƒ ã‚¾ãƒ¼ãƒ³ã«å¯¾å¿œã™ã‚‹ç›®çš„ã§æ•°å€¤ã‚’åŠ ç®—æ¸›ç®—ã—ã¦ã¯ã„ã‘ãªã„ã¨æ€ã„ã¾ã™ã€‚ ä½•æ•…ãªã‚‰Unix timeã¯ã€ŒUTCã«ãŠã‘ã‚‹1970/1/1ã‹ã‚‰ã®çµŒéŽç§’æ•°ã€ã ã‹ã‚‰ã§ã™ã€‚ ã‚¿ã‚¤ãƒ ã‚¾ãƒ¼ãƒ³ãŒJSTã«ãªã£ã¦ã„ã¦ã€NOW()ã¯JSTã«ãŠã‘ã‚‹æ™‚åˆ»ã‚’è¿”ã—ã¦ã„ã‚‹ã¨ã„ã†å‰æã§è©±ã‚’é€²ã‚ã¾ã™ãŒã€ ï¼ˆå½“ç„¶ã®ã“ã¨ãªãŒã‚‰ã€UNIX_TIMESTAMP()ã¯UTCã«ãŠã‘ã‚‹æ™‚é–“ã‚’è¿”ã—ã¦ã„ã‚‹ï¼‰ ä½•ãŒè©±ã‚’ã‚„ã‚„ã“ã—ãã—ã¦ã„ã‚‹ã‹ã¨ã„ã†ã¨ã€ $ perl -MTime::Piece -MTime::Piece::MySQL -e 'my $t = Time::Piece->from_mysql_datetime("2010
studio-m 2010/11/23
perl
ãƒªãƒ³ã‚¯
Q4M + Parallel::Prefork + Signal handling + Log::Minimal - tokuhirom's blog
Q4M + Parallel::Prefork + Signal handling + Log::Minimal conditions precedent: use daemontools & multilog Points: make DB connection after fork do not trap SIGTERM while calling queue_wait(), so that the process can be shut down while waiting for the response from q4m remove $time and add $PID for log. Because I'm using multilog. It prints the tai64n automatically(and, tai64n is better). package O
studio-m 2010/11/16
q4m

perl
ãƒªãƒ³ã‚¯
ç¬¬37å›žã€€YAPCï¼šå›½éš›çš„ãªã‚¤ãƒ™ãƒ³ãƒˆãªã®ã ã€ã¨ã„ã†ã“ã¨ã¯ãŠå¿˜ã‚Œãªã | gihyo.jp
é€£è¼‰ã®è£è©±ã‚’ç™ºè¡¨ã—ã¦ãã¾ã—ãŸ å…ˆæ—¥é–‹å‚¬ã•ã‚ŒãŸYAPC::Asia 2010ã§ã¯ã€ã“ã®é€£è¼‰ã®ç•ªå¤–ç·¨ã¨ã—ã¦ã€ç†è€…ãŒåŸ·ç†ã®éš›ã«ã©ã®ã‚ˆã†ãªè³‡æ–™ã‚’è¦‹ã¦ã„ã‚‹ã‹ã€ã¾ãŸã€ã©ã®ã‚ˆã†ãªåŸºæº–ã§ã¨ã‚Šã‚ã’ã‚‹è©±é¡Œã‚’æ±ºã‚ã¦ã„ã‚‹ã‹ã‚’ãŠè©±ã—ã¾ã—ãŸã€‚æœ¬å½“ã¯ã‚‚ã†å°‘ã—ã„ã‚ã„ã‚ãªæƒ…å ±æºã‚’è¦‹ã¦ã„ãŸã ã„ã¦ã€ã‚µã‚¤ãƒˆã®å¤–è¦³ã‚„å†…å®¹ã®å¤‰åŒ–ã‹ã‚‰æœ€è¿‘ã®Perlç•Œã®ã†ã¤ã‚ã„ã‚’æ„Ÿã˜ã¦ã„ãŸã ã‘ã‚Œã°ã¨æ€ã£ã¦ã„ãŸã®ã§ã™ãŒã€æ˜¨å¹´ã¯åŒã˜åˆ†é‡ã®ã‚¹ãƒ©ã‚¤ãƒ‰ã§åŠåˆ†è¿‘ãæ™‚é–“ã‚’ä½™ã—ã¦ã—ã¾ã£ãŸã‹ã‚‰ã¨æ€ã£ã¦ã‚†ã£ãã‚Šã‚ã«è©±ã—ãŸã‚‰ã€ã•ã˜åŠ æ¸›ã‚’é–“é•ãˆãŸã‚ˆã†ã§ã€æœ¬å½“ã«ç´¹ä»‹ã—ã‚ˆã†ã¨æ€ã£ã¦ã„ãŸéƒ¨åˆ†ã¯ã‹ãªã‚Šã™ã£é£›ã°ã—ã¦ã—ã¾ã†çµæžœã¨ãªã£ã¦ã—ã¾ã„ã¾ã—ãŸã€‚è³‡æ–™ã¯ã„ã¾ã ã«æ•´ç†ãŒæ¸ˆã‚“ã§ã„ãªã„ã®ã§ã™ãŒã€å†…å®¹ã‚’èª¬æ˜Žã—ãã³ã‚ŒãŸãƒšãƒ¼ã‚¸ã«ã¤ã„ã¦ã¯ã¾ãŸä½•ã‚‰ã‹ã®å½¢ã§ç´¹ä»‹ã—ã¦ã„ã‹ã‚Œã‚Œã°ã¨æ€ã£ã¦ã„ã¾ã™ã€‚ æ°—ã«ãªã‚‹ã“ã¨ã®å¤šã„YAPCã§ã‚‚ã‚ã‚Šã¾ã—ãŸ ã•ã¦ã€è‡ªåˆ†ã®ã‚¹ãƒ©ã‚¤ãƒ‰ã«æ—¥æœ¬èªžã‚’ã¤ã‘ãã³ã‚Œã¦ã—ã¾ã£ãŸã“ã¨ã‚’ã¯ã˜ã‚ã€å€‹äººçš„ã«
studio-m 2010/11/01
perl

event

yapcasia
ãƒªãƒ³ã‚¯
Shibuya Perl Mongersãƒ†ã‚¯ãƒ‹ã‚«ãƒ«ãƒˆãƒ¼ã‚¯#14ã«è¡Œã£ã¦ããŸ - sub usuilog;
å¤šåˆ†5å¹´ã¶ã‚Šãã‚‰ã„ã«Shibuya.pmã«å‚åŠ ã—ã¦ããŸ*1 å€‹äººçš„ã«æ°—ã«ãªã£ãŸã¨ã“ã‚ã‚’ãƒ¡ãƒ¢ã€‚ è©³ç´°ãªè§£èª¬ã¯id:hirataraã•ã‚“ã®ãƒ¡ãƒ¢ã‚’å‚ç…§ã•ã‚Œã‚‹ã®ãŒã„ã„ã¨æ€ã„ã¾ã™ã€‚ http://d.hatena.ne.jp/hiratara/20100930/1285815873 Perl6 Language Update by å°é£¼å¼¾ã•ã‚“ [twitter:@dankogai] Perl6æ–°æ©Ÿèƒ½ã®ç´¹ä»‹ã€‚FizzBuzãƒ—ãƒã‚°ãƒ©ãƒ ã‚’ã¨ã—ã¦æ©Ÿèƒ½ã‚’ç´¹ä»‹ã™ã‚‹ã¨ã„ã†å†…å®¹ã ã£ãŸã€‚ ãƒãƒ¼ã‚«ãƒ«ã‚¹ã‚³ãƒ¼ãƒ—ãªåå‰ä»˜ãé–¢æ•°ãŒæ›¸ã‘ã‚‹è©±ã‚„ã€ä¾‹å¤–å‡¦ç†æ§‹æ–‡ã€é…å»¶è©•ä¾¡ãƒªã‚¹ãƒˆã€ãƒžãƒ«ãƒãƒ‡ã‚£ã‚¹ãƒ‘ãƒƒãƒ ï¼ˆJavaã§ã„ã†ã‚ªãƒ¼ãƒãƒ¼ãƒãƒ¼ãƒ‰ï¼‰ã€OOã®è©±ãªã©ãŒã‚ã£ãŸã€‚ Perl6å¼OOã¯Perl5ã§ã‚‚ã»ã¼Mooseã‚„Mouseã§å®Ÿç¾ã§ãã‚‹ã‘ã©ã€ãƒ‰ãƒƒãƒˆã§ã®ãƒ¡ã‚½ãƒƒãƒ‰å‘¼ã³å‡ºã—ã¯Perl6ã˜ã‚ƒãªã„ã¨ã§ããªã„ã¨ã®ã“ã¨ã€‚ ã¾ãŸPerl6ã§ã¯ä¾‹å¤–å‡¦ç†ã®CATCH
studio-m 2010/10/02
event

perl
ãƒªãƒ³ã‚¯
Templateä¸ã®URLã‚’è‡ªå‹•ã§è³¢ãã‚¢ãƒ³ã‚«ãƒ¼ãƒ†ã‚ã‚¹ãƒˆã«ã—ãŸã„ - ã™ãŽã‚ƒãƒ¼ã‚“ãƒ¡ãƒ¢
ã¾ã Text::Xslateã§ã‚‚Text::MicroTemplateã§ã‚‚ãªãTemplate::Toolkitã‚’ä¸»ã«ä½¿ã£ã¦ã„ã‚‹ã‚ã‘ã§ã™ãŒã€‚ã€‚ ã‚„ã‚ŠãŸã„ã“ã¨ ãƒ†ãƒ³ãƒ—ãƒ¬ãƒ¼ãƒˆä¸ã«å‡ºã¦ãã‚‹URLã‚’è‡ªå‹•ã§ã‚¢ãƒ³ã‚«ãƒ¼ãƒ†ã‚ã‚¹ãƒˆã«ã—ãŸã„ã€‚ http://example.com/ãŒè‡ªå‹•çš„ã« <a href="http://example.com/">http://example.com/</a>ã«ãªã£ã¦ã»ã—ã„ã€‚ã“ã®ã¯ã¦ãªãƒ€ã‚¤ã‚¢ãƒªãƒ¼ã§URLæ›¸ãã ã‘ã§http://example.com/ã¿ãŸã„ã«è‡ªå‹•ã§ãƒªãƒ³ã‚¯ã«ãªã‚‹ã‚ˆã†ã«ã€‚ Template::Plugin::AutoLink Template::Plugin::AutoLink - search.cpan.org ã¨ã„ã†ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ãŒã‚ã‚Šã¾ã™ã€‚ã“ã‚Œã‚’ä½¿ãˆã°ã€æœŸå¾…é€šã‚Šã®å‹•ä½œã‚’ã—ã¾ã™ã€‚ use Test::More; use strict; use warnings
studio-m 2010/09/09
perl
ãƒªãƒ³ã‚¯
Big Sky :: VimmerãªPerlé–‹ç™ºç’°å¢ƒ
ãˆãƒ¼ã£ã¨ã€IDEä½¿ã£ã¦ã¾ã›ã‚“ã€‚ã”ã‚ã‚“ãªã•ã„ã€‚ Perlã‚’IDEã§æ›¸ã„ã¦ã‚‹äººã€ã©ã‚Œãã‚‰ã„ã„ã‚‹ã‚“ã ã‚ã†ã€‚ä½•ä½¿ã£ã¦ã‚‹ã‚“ã ã‚ã€‚ ç§ã¯Linuxã§ã‚‚Windowsã§ã‚‚Vimã‚’ä½¿ã£ã¦ã¾ã™ã€‚Perlã£ã¦ã‚µãƒ¼ãƒã§ä½¿ã‚ã‚Œã‚‹äº‹ãŒå¤šã„ã—ã€ã‚µãƒ¼ãƒã ã¨sshã§å…¥ã‚‹äº‹ãŒå¤šã„ã ã‚ã†ã—ã€ã¾ãXã®è»¢é€ã‚„VNCã‚„ãã‚Œã£ã½ã„ã®ã§ã‚°ãƒ©ãƒ•ã‚£ã‚«ãƒ«ã«æ“ä½œã—ã¦ã‚‚è‰¯ã„ã‘ã©ã€æ£ç›´Perlã®ãƒ‰ã‚ãƒ¥ãƒ¡ãƒ³ãƒˆã‚‚ãƒ†ã‚ã‚¹ãƒˆãƒ™ãƒ¼ã‚¹ã ã—Perlã§å…¥åŠ›è£œå®Œå‡ºæ¥ã‚‹ã‚°ãƒ©ãƒ•ã‚£ã‚«ãƒ«ã‚¨ãƒ‡ã‚£ã‚¿ã‚‚ã¾ãšç„¡ã„ã¨æ€ã£ã¦ã‚‹ã€‚ ã§ã€ç§ãŒVimä¸Šã§ä½¿ã£ã¦ã‚‹Perlã®é–‹ç™ºã‚’ã€Œ200å€ä¾¿åˆ©ã«ã™ã‚‹ã‚¹ã‚¯ãƒªãƒ—ãƒˆã€ã‚’ç´¹ä»‹ã€‚ perldoc.vim perldocã¯Perlã®ã‚ªãƒ³ãƒ©ã‚¤ãƒ³ãƒžãƒ‹ãƒ¥ã‚¢ãƒ«ãªã‚“ã ã‘ã©ã€ã“ã‚Œã‚’ä¸€ã€…ã‚¿ãƒ¼ãƒŸãƒŠãƒ«ã«æˆ»ã£ãŸã‚Šã—ã¦å¼•ã„ã¦ã‚‹ã¨æ™‚é–“ã®ãƒã‚¹ã€‚screenã§åˆ†å‰²ã—ã¦é–‹ã„ã¦ã‚‚ã„ã„ã‚“ã ã‘ã©screenã®ç”»é¢é–“ç§»å‹•ã‚ˆã‚Šã‚‚Vimå†…ã§ã®ã‚¦ã‚£ãƒ³ãƒ‰ã‚¦é–“ç§»å‹•ã®æ–¹ãŒæ“ä½œæ„ŸãŒçµ±ä¸€å‡ºæ¥ã¦ã¦è‰¯ã„ã€‚ ãã“
studio-m 2010/09/02
perl

vim
ãƒªãƒ³ã‚¯
IPC::Open3 ã®æ£ã—ã„ä½¿ã„æ–¹ (re .pl ãª config ãƒ•ã‚¡ã‚¤ãƒ«ã®ã‚³ãƒ³ãƒ‘ã‚¤ãƒ«ãŒã¨ãŠã‚‹ã‹ãƒã‚§ãƒƒã‚¯ã—ã¦ã¿ã‚‹ - TokuLog æ”¹ãƒ¡ tokuhiromâ€™s blog) - kazuhoã®ãƒ¡ãƒ¢ç½®ãå ´
http://d.hatena.ne.jp/tokuhirom/20100813/1281666615 ã®ä»¶ã§ã™ãŒã€IPC::Open3 ã®ä½¿ã„æ–¹ãŒæ°—ã«ãªã£ãŸã®ã§ã€å‹æ‰‹ã«æ·»å‰Š (c) dankogaiã€‚ use IPC::Open3; ... my($wtr, $rdr, $err); my @cmd = ($^X, (map { "-I$_" } grep { !ref $_ } @INC), '-c', $file); my $pid = open3($wtr, $rdr, $err, @cmd); waitpid($pid, 0); IPC::Open3 ã¯åãƒ—ãƒã‚»ã‚¹ã®æ¨™æº–å…¥å‡ºåŠ›ã¨æ¨™æº–ã‚¨ãƒ©ãƒ¼å‡ºåŠ›ã‚’ã€è¦ªãƒ—ãƒã‚»ã‚¹ã¨ãƒ‘ã‚¤ãƒ—ã§ã¤ãªã„ã§ãƒ—ãƒã‚»ã‚¹é–“é€šä¿¡ã‚’è¡Œã†ãŸã‚ã®ä»•çµ„ã¿ã§ã™ã€‚ ãƒ‘ã‚¤ãƒ—ã«ã¯ä¸€å®šã‚µã‚¤ã‚ºã®ãƒãƒƒãƒ•ã‚¡ãŒã‚ã‚Š (Linux ã ã¨ 4KB)ã€ãƒ‘ã‚¤ãƒ—ã«ã“ã‚Œã‚’è¶…ãˆã‚‹å¤§ãã•ã®ãƒ‡ãƒ¼ã‚¿ãŒæ›¸ãè¾¼ã¾ã‚Œã‚‹ã¨ã€
studio-m 2010/08/13
perl
ãƒªãƒ³ã‚¯
Web ãƒ†ã‚¯ãƒŽãƒã‚¸ãƒ¼ã‚»ãƒŸãƒŠãƒ¼ in Hokkaido ã¨ Hokkaido.pm ã®ã‚¹ãƒ©ã‚¤ãƒ‰ã‚’å…¬é–‹ã—ã¾ã™ - æ—¥å‘å¤ç‰¹æ®Šå¿œæ´éƒ¨éšŠ
ã¡ã‚‡ã£ã¨å¿™ã—ã„ã®ã§æ„Ÿæƒ³ã¨ã‹ã¯å¾Œã§ï¼žï¼œ ã¨ã„ã†ã‚ã‘ã§è¡Œã£ã¦å‚ã‚Šã¾ã—ãŸåŒ—æµ·é“ã€‚å‰æ—¥é ‘å¼µã£ã¦ã‚¹ãƒ©ã‚¤ãƒ‰æ›¸ã„ã¦ã¯å‘‘ã‚“ã§ã‚¹ãƒ©ã‚¤ãƒ‰æ›¸ã„ã¦ã¯å‘‘ã‚“ã§ã®ç¹°ã‚Šè¿”ã—ã§ãƒ›ãƒ†ãƒ«ã®æœé£Ÿã‚’äºŒåº¦ã¨ã‚‚é€ƒã™ã¨ã„ã†ä½“ãŸã‚‰ãã¶ã‚Šã§ã—ãŸï½— Web ãƒ†ã‚¯ãƒŽãƒã‚¸ãƒ¼ã‚»ãƒŸãƒŠãƒ¼ in Hokkaido mbga Open Platform and PerlView more presentations from zigorou. ä¸€å¿œè£œè¶³çš„ã«è¨€ã£ã¦ãŠãã¨ã€è¨è¨ˆæŒ‡é‡è¾ºã‚Šã§å‰æã¨ã—ã¦ä»Šå›žä½œã£ã¦ã„ã‚‹ã®ã¯ Web Application ã§ã¯ãªãã¦ Web API ã§ã‚ã‚‹ã¨ã„ã†äº‹ã§ã€å¯èƒ½ãªé™ã‚Šé€Ÿããƒ¬ã‚¹ãƒãƒ³ã‚¹è¿”ã—ãŸã„ã®ã§ä½™è¨ˆãªã“ã¨ã¯ã—ãŸããªã„ã£ã¦ã®ãŒã‚ã‚Šã¾ã™ã€‚ ã¨ã„ã†è¨³ã§ WAF ã¨ã‹è¦ã‚‰ã‚“ã‚ˆããƒ¼ã£ã¦è¨€ã†è©±ã«ã¤ãªãŒã‚‹è¨³ã§ã™ã€‚ä¸€èˆ¬çš„ãª Web Application ã‚’æ›¸ãéš›ã¯ã‚«ã‚¹ã‚¿ãƒ ã§æ›¸ã‹ãªãã¦ã‚‚ WAF ã‹ã‚‰æ›¸ã„ã¦ã‚‚è‰¯ã„ã—ã€å¥½ãã«ãŠã‚ŒãŠã‚Œ WAF ä½œ
studio-m 2010/08/10
perl
ãƒªãƒ³ã‚¯
ç”Ÿ DBI ãƒ¦ãƒ¼ã‚¶ãƒ¼ã®ãŸã‚ã® DBI Cookbook (5) - æ—¥å‘å¤ç‰¹æ®Šå¿œæ´éƒ¨éšŠ
ã¾ã•ã‹ã®ç¶šç·¨ã§ã™ã‚ˆï½—ï½—ï½— HandleError ã‚’ä½¿ã£ã¦ã‚ˆã‚Šè©³ã—ã„ã‚¨ãƒ©ãƒ¼ã‚’å¾—ã‚‹ ä»Šæ—¥ã€å¸°ã‚Šã« @myfinder ã•ã‚“ã¨è©±ã—ã¦ã„ã¦ã€syslog-ng ã«åã‹ã‚Œã‚‹ã‚¨ãƒ©ãƒ¼ã§ Too many connection ã¨ã‹ã‚’ã¡ã‚ƒã‚“ã¨ç›£è¦–ã—ã¤ã¤ã‚‚ã€ã‚¨ãƒ©ãƒ¼ãƒ¡ãƒ¼ãƒ«ãƒœãƒ ã«ã‚ˆã£ã¦å¤§äº‹ãªæ€ã„å‡ºãŒæ¶ˆãˆãŸã‚Šã—ãªã„ã‚ˆã†ã«ã—ãŸã„ããƒ¼çš„ãªã“ã¨ã‚’è©±ã—ã¦ã„ã¦ã€ãã®å ´åˆã¯ã‚¨ãƒ©ãƒ¼ãƒŠãƒ³ãƒãƒ¼ã‚’ãã¡ã‚“ã¨è¨˜éŒ²ã™ã‚‹ã ã®ã€ã‚¨ãƒ©ãƒ¼ãŒèµ·ã“ã£ãŸ DB ã® host åã ã¨ã‹ã§è‰¯ã—ãªã«ã‚¨ãƒ©ãƒ¼é€šçŸ¥é–“éš”ã‚’åˆ¶å¾¡ã—ãŸã„ã‚ˆãã¨ã€‚ ãã†ã„ã†éš›ã«ã‚„ã£ã±ã‚Š DB ã®ãƒ›ã‚¹ãƒˆåã ã¨ã‹è¿½åŠ æƒ…å ±ãŒã‚¨ãƒ©ãƒ¼æ–‡å—åˆ—ã«å…¥ã£ã¦ã‚‹ã¨ä¾¿åˆ©ã ã‚ã†ãªã¨ã„ã†ã“ã¨ã§ã“ã‚“ãªã‚½ãƒªãƒ¥ãƒ¼ã‚·ãƒ§ãƒ³ã¯ã©ã†ã‹ã¨ã€‚ #!/usr/bin/perl use strict; use warnings; use Test::More; use Test::Exception; use Carp; use Dat
studio-m 2010/08/10
perl
ãƒªãƒ³ã‚¯
perl - å‹æ‰‹ã«æ·»å‰Š - Lingua::JA::Summerize 0.02 : 404 Blog Not Found
2006å¹´04æœˆ28æ—¥15:30 ã‚«ãƒ†ã‚´ãƒªLightweight Languages perl - å‹æ‰‹ã«æ·»å‰Š - Lingua::JA::Summerize 0.02 çªç„¶ã§ã™ãŒã€å‹æ‰‹ã«æ·»å‰Šã®æ™‚é–“ã§ã™ã€‚ Perl Best Practices Damian Conway ä»Šå›žã¯ã€ Kazuho@Cybozu Labs: Lingua::JA::Summarize 0.02ã§ã™ã€‚ ã¾ãšã¯ã€Editorã§é–‹ã„ã¦ã¿ãªã„ã¨è¦‹ã¥ã‚‰ã„ã¨ã“ã‚ã€‚ ã‚¤ãƒ³ãƒ‡ãƒ³ãƒˆã«tab("\t" ; "\x09")ã‚’ä½¿ã†ã®ã¯ã‚„ã‚ã¾ã—ã‚‡ã†ã€‚tabã¯å¿…ãšspace("\x20")ã«æ‹¡å¼µã—ã¾ã—ã‚‡ã†ã€‚ ã‚¿ãƒ–ã‚¹ãƒˆãƒƒãƒ—ã®æ•°ã¯ã€ç’°å¢ƒã«ã‚ˆã£ã¦ç•°ãªã‚Šã¾ã™ã€‚ã«ã‚‚é–¢ã‚ã‚‰ãšé•ã†ã‚ˆã†ã«è¡¨ç¤ºã•ã‚Œã‚‹ã®ã¯ã•ã‘ãªã‘ã‚Œã°ãªã‚Šã¾ã›ã‚“ã€‚perlã§ã¯ã“ã‚Œã¯è‡´å‘½çš„ã§ã¯ã‚ã‚Šã¾ã›ã‚“ãŒã€pythonã‚„haskellã§ã¯è‡´å‘½çš„ã§ã™ã—ã€Perlå†…éƒ¨ã§ã‚‚æ‰‹ã§YAMLãªã©ã‚’æ›¸ã„ã¦
studio-m 2010/08/10
perl
ãƒªãƒ³ã‚¯
Perl éžåŒæœŸãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°
1. éžåŒæœŸãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚° with Perl 2010/08/07 Japan Perl Association ä»£è¡¨ç†äº‹ æ ªå¼ä¼šç¤¾ãƒ©ã‚¤ãƒ–ãƒ‰ã‚¢ ç‰§ å¤§ è¼” (@lestrrat) 3. æ™®é€šã®æ›¸ãæ–¹ use strict; use LWP::UserAgent; my @urls = qw( http://www.livedoor.com/ http://www.dena.jp/ http://mixi.jp/ http://www.gaiax.co.jp/ ); my $ua = LWP::UserAgent->new(); foreach my $url (@urls) { my $res = $ua->get( $url ); ... }
studio-m 2010/08/09
perl
ãƒªãƒ³ã‚¯
mbga Open Platform and Perl
ãƒ¢ãƒã‚²ãƒ¼ã‚ªãƒ¼ãƒ—ãƒ³ãƒ—ãƒ©ãƒƒãƒˆãƒ•ã‚©ãƒ¼ãƒ ã§ã©ã®ã‚ˆã†ã« Perl ã‚’ä½¿ã£ã¦ã„ã‚‹ã‹ã®ãƒ—ãƒ¬ã‚¼ãƒ³ãƒ†ãƒ¼ã‚·ãƒ§ãƒ³ã§ã™ã€‚Read less
studio-m 2010/08/09
perl
ãƒªãƒ³ã‚¯
1 2 3 4 5 6 7 8 9 10 æ¬¡ã®ãƒšãƒ¼ã‚¸