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

BigFatCat id:BigFatCat

perlã¨forkã«é–¢ã™ã‚‹BigFatCatã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ (9)

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

ç¬¬22å›žã€€Coroã‚’ä½¿ã£ãŸã‚„ã•ã—ã„ã‚¯ãƒãƒ¼ãƒ©ã®ä½œã‚Šæ–¹ï¼ˆ3ï¼‰ | gihyo.jp
ï¼ˆ1ï¼‰ã¯ã“ã¡ã‚‰ã€ï¼ˆâ 2ï¼‰ã¯ã“ã¡ã‚‰ã‹ã‚‰ã€‚ ä¸¦åˆ—ãƒ»åˆ†æ•£å‡¦ç†ã®ãŸã‚ã®ã‚¯ãƒãƒ¼ãƒ© ã‚ã‚‹ç¨‹åº¦å¤§è¦æ¨¡ãªã‚¯ãƒãƒ¼ãƒ©ã‚’ä½œã‚‹å ´åˆã¯ã€ä¸€å®šæ™‚é–“å†…ã«ãªã‚‹ã¹ãå¤šãã®URLã‹ã‚‰åŠ¹çŽ‡çš„ã«ãƒ‡ãƒ¼ã‚¿ã‚’åŽé›†ã™ã‚‹å¿…è¦ãŒã‚ã‚Šã¾ã™ã€‚æŽ¥ç¶šå…ˆã®ãƒ›ã‚¹ãƒˆã”ã¨ã«åŒæ™‚æŽ¥ç¶šæ•°ã‚„ã‚¦ã‚§ã‚¤ãƒˆãªã©ã®é…æ…®ã‚’ã—ã¤ã¤ã€å…¨ä½“ã¨ã—ã¦ã¯å¤§é‡ã®ãƒªã‚¯ã‚¨ã‚¹ãƒˆã‚’åŒæ™‚ã«å‡¦ç†ã™ã‚‹å¿…è¦ãŒã‚ã‚Šã¾ã™ã€‚æ¤œç´¢ã‚¨ãƒ³ã‚¸ãƒ³ã®ãŸã‚ã®ã‚¯ãƒãƒ¼ãƒ©ã€å®šæœŸçš„ã«åŒã˜URLã«ã‚¢ã‚¯ã‚»ã‚¹ã™ã‚‹å¿…è¦ãŒã‚ã‚‹æ›´æ–°ãƒã‚§ãƒƒã‚¯ã‚„ãƒ•ã‚£ãƒ¼ãƒ‰ã‚¢ã‚°ãƒªã‚²ãƒ¼ã‚¿ãªã©ã¯ã€ç‰¹ã«è©²å½“ã™ã‚‹ã§ã—ã‚‡ã†ã€‚ Perlã§é«˜æ€§èƒ½ãªã‚¯ãƒãƒ¼ãƒ©ã‚’æ›¸ãå ´åˆã®é¸æŠžè‚¢ã¯2ã¤ã‚ã‚Šã¾ã™ã€‚ä¸€ã¤ã¯forkã«ã‚ˆã‚‹ãƒžãƒ«ãƒãƒ—ãƒã‚»ã‚¹ã«ã‚ˆã‚‹ã‚‚ã®ã§ã€Parallel::ForkManagerã‚„Paralell::Preforkã‚’ä½¿ã†ã‚±ãƒ¼ã‚¹ã‚„ã€ã‚¸ãƒ§ãƒ–ã‚ãƒ¥ãƒ¼ã®ãŸã‚ã®ãƒ•ãƒ¬ãƒ¼ãƒ ãƒ¯ãƒ¼ã‚¯ã‚’ä½¿ã£ãŸãƒ¯ãƒ¼ã‚«ãŒã“ã‚Œã«è©²å½“ã—ã¾ã™ã€‚ã‚‚ã†ä¸€ã¤ã¯AnyEventã‚„Coroã‚’ä½¿ã£ãŸI/Oå¤šé‡åŒ–ã«ã‚ˆã‚‹ã‚¢ãƒ—ãƒãƒ¼ãƒã§ã™ã€‚ç†è€…ãŒå¥½
BigFatCat 2013/12/25
"AnyEventã¨Coroã®é•ã„" "Coroã‚’ä½¿ã†ã¨è¤‡é›‘ãªéžåŒæœŸå‡¦ç†ã‚’ï¼Œã„ã‚ã‚†ã‚‹ã€Œã‚³ãƒ¼ãƒ«ãƒãƒƒã‚¯åœ°ç„ã€ã«é™¥ã‚‹ã“ã¨ãªãã‚·ãƒ³ãƒ—ãƒ«ã«è¨˜è¿°ã§ãã¾ã™ã€‚"

ä¸¦åˆ—å‡¦ç†

perl

fork
ãƒªãƒ³ã‚¯
http://dl.dropboxusercontent.com/u/224433/plackcon/index.html
BigFatCat 2013/11/21
fork

perl

cpan
ãƒªãƒ³ã‚¯
[perl] Perlã§åŒã˜ã‚³ãƒ¼ãƒ‰ã‚’é•ã†ãƒãƒ¼ã‚¸ãƒ§ãƒ³ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã§ãƒ™ãƒ³ãƒãƒžãƒ¼ã‚¯ã™ã‚‹ - é…’æ—¥è¨˜ ã¯ã¦ãªæ”¯åº—
è¤‡æ•°ãƒãƒ¼ã‚¸ãƒ§ãƒ³ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã§åŒã˜ã‚³ãƒ¼ãƒ‰ã‚’å®Ÿè¡Œã—ã¦Benchmark.pmã§è¨ˆæ¸¬ã—ãŸã„ã€ã¨ã„ã†ã‚±ãƒ¼ã‚¹ã«ã“ã†æ›¸ã‘ã°ã„ã„ã‹ãªã€ã¨ã„ã†ä¾‹ã€‚ æ™®é€šã«Benchmark.pmã‚’ä½¿ã£ã¦ã—ã¾ã†ã¨åŒä¸€ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’é•ã†ãƒãƒ¼ã‚¸ãƒ§ãƒ³ã§è¤‡æ•°èªã¿è¾¼ã‚€ã“ã¨ãŒã§ããªã„ãŸã‚ã€ ãƒãƒ¼ã‚¸ãƒ§ãƒ³ã”ã¨ã«åãƒ—ãƒã‚»ã‚¹ã‚’ fork åãƒ—ãƒã‚»ã‚¹ã§ use lib ã—ã¦ @INC ã‚’è¿½åŠ ã—ã¦ã‹ã‚‰ use è¨ˆæ¸¬ã—ãŸçµæžœã‚’ãƒ•ã‚¡ã‚¤ãƒ«ã«ä¿å˜ã—ã¦è¦ªãƒ—ãƒã‚»ã‚¹ã§é›†ç´„ã€è¡¨ç¤º ã¨ã„ã†æµã‚Œã§æ›¸ãã¾ã™ã€‚ use strict; use Benchmark qw/ :all /; use File::Temp qw/ tempfile /; use Storable qw/ nstore retrieve /; # è¨ˆæ¸¬ã—ãŸã„ã‚³ãƒ¼ãƒ‰ my $code = sub { my $c = Cache::Redis->new; for ( 1 .. 10 ) { $c->s
BigFatCat 2013/04/03
perl

benchmark

fork

performance
ãƒªãƒ³ã‚¯
perlã§forkã—ãŸãƒ—ãƒã‚»ã‚¹ã¨ã®é€šä¿¡ã‚’ç°¡å˜ã«è¡Œã†æ–¹æ³•ãŒçŸ¥ã‚ŠãŸã„ - $shibayu36->blog;
ä»Šä½œã£ã¦ã„ã‚‹ã‚‚ã®ã§ã€ã€Œforkã—ãŸå¾Œã€åãƒ—ãƒã‚»ã‚¹ã®å®Ÿè¡Œã®çµæžœã‚’æœ€å¾Œã«è¦ªãƒ—ãƒã‚»ã‚¹ã«é€šçŸ¥ã—ã€è¦ªãƒ—ãƒã‚»ã‚¹ã¯åãƒ—ãƒã‚»ã‚¹ç¾¤ã®çŠ¶æ…‹ã‚’ã¾ã¨ã‚ã¦å–å¾—ã™ã‚‹ã€ã€ã¨ã„ã†ã“ã¨ãŒã‚„ã‚ŠãŸã„ã®ã§ã™ãŒã€ãƒ¢ãƒ€ãƒ³ã‹ã¤ç°¡å˜ãªæ–¹æ³•ã£ã¦ä½•ãŒã‚ã‚‹ã‚“ã§ã—ã‚‡ã†ã‹ï¼Ÿ å…·ä½“çš„ã«ã¯ use Parallel::ForkManager; $pm = Parallel::ForkManager->new(5); foreach $data (@all_data) { # Forks and returns the pid for the child: my $pid = $pm->start and next; # ... do some work with $data in the child process ... # å®Ÿè¡Œçµæžœã®ã‚µãƒžãƒªãƒ¼ã‚’è¦ªãƒ—ãƒã‚»ã‚¹ã«æŠ•ã’ã¦ãŠã $pm->finish; # Terminates the child proc
BigFatCat 2013/03/29
fork

perl

cpan
ãƒªãƒ³ã‚¯
#22 ã‚«ã‚¸ãƒ¥ã‚¢ãƒ«ã«ä¹±æ•°ã‚’ä½¿ã†æ–¹æ³•ã¨ãã®æ³¨æ„ç‚¹ - KAYAC Engineers' Blog
ã“ã®è¨˜äº‹ã¯tech.kayac.com Advent Calendar 2012ã®22æ—¥ç›®ã§ã™ã€‚ @songmuã§ã™ã€‚ã‚²ãƒ¼ãƒ ä½œã£ãŸã‚Šã—ã¦ã‚‹ã¨ã€ä¹±æ•°ãŒå¿…è¦ã«ãªã£ã¦ãã¾ã™ãŒãã‚Œã«ã¤ã„ã¦æ›¸ãã¾ã™ã€‚ å¤šãã®äººã«ã¨ã£ã¦ã¯å½“ãŸã‚Šå‰ã®è©±ã‚‚å¤šãå‡ºã¦ãã‚‹ã‹ã¨æ€ã„ã¾ã™ãŒã”å®¹èµ¦ãã ã•ã„ã€‚é–“é•ã£ã¦ã‚‹è¨˜è¿°ãŒã‚ã£ãŸå ´åˆã¯çªã£è¾¼ã¿ãã ã•ã„ã€‚ æ“¬ä¼¼ä¹±æ•°ã¨ã¯ä½•ã‹ è¨ˆç®—æ©Ÿã¯å˜ä½“ã§ã¯åŽ³å¯†ãªæ„å‘³ã§ã®ä¹±æ•°ã‚’ç”Ÿæˆã™ã‚‹ã“ã¨ãŒã§ãã¾ã›ã‚“ã€‚å®Ÿéš›ã«ã¯ä¸€æ§˜ã«åˆ†å¸ƒã™ã‚‹ä¹±æ•°ã®é›†åˆã‚’ç®—è¡“çš„ã«æ±‚ã‚ã¦ã„ã‚‹å ´åˆãŒã»ã¨ã‚“ã©ã§ã™ã€‚ ãã®ä¹±æ•°ã®é›†åˆã¯ä»¥ä¸‹ã‚’æº€ãŸã™å¿…è¦ãŒã‚ã‚Šã¾ã™ãŒã€ãã†ã„ã†å°é›£ã—ã„ã“ã¨ã¯å‰ã„äººã«ä»»ã›ã¦ã€å·¨äººã®è‚©ã«ä¹—ã£ã¦è§£æ±ºã—ã¦ã—ã¾ãˆã°è‰¯ã„ã§ã—ã‚‡ã†ã€‚ åã‚ŠãŒãªãä¸€æ§˜ã«åˆ†å¸ƒã—ã¦ã„ã‚‹ é€”ä¸ã®å‡ºåŠ›ã‹ã‚‰æœªæ¥ãŒäºˆæ¸¬ã—ã¥ã‚‰ã„ é«˜é€Ÿã«ç®—å‡ºã§ãã‚‹ã‹ ã¤ã¾ã‚Šï¼Ÿ è‰²ã€…ãªç–‘ä¼¼ä¹±æ•°ç”Ÿæˆæ³•ãŒã‚ã‚Šã¾ã™ãŒã€å¤šãã®å ´åˆã€ é¦¬é¹¿ã§ã‹ã„ä¹±æ•°ã®å¾ªç’°ãƒªã‚¹ãƒˆãŒã‚ã‚‹ ã¨è€ƒãˆã‚‹ã¨ã‚ã‹ã‚Šã‚„ã™ã„ã§
BigFatCat 2012/12/24
perl

fork
ãƒªãƒ³ã‚¯
ãƒ•ã‚¡ã‚¤ãƒ«ãƒ‡ã‚£ã‚¹ã‚¯ãƒªãƒ—ã‚¿ï¼ˆfile descriptorï¼‰ã«ã¤ã„ã¦èª¿ã¹ã¦ã¿ãŸ - kotaroito's notes
Perl Hackers Hub ç¬¬6å›žã€€UNIXãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°ã®å‹˜æ‰€ï¼ˆ2ï¼‰ã‚’èªã‚“ã§ã„ãŸãŒã‚ˆãã‚ã‹ã‚‰ãªã‹ã£ãŸã®ã§ã€Operating System Conceptsã‚„MANãªã©ã‚’èªã‚“ã§ä¸€ã‹ã‚‰ç†è§£ã—ã¦ã¿ã‚‹ã€‚ Operating System Concepts ä½œè€…: Abraham Silberschatzå‡ºç‰ˆç¤¾/ãƒ¡ãƒ¼ã‚«ãƒ¼: John Wiley & Sons Ltdç™ºå£²æ—¥: 2009/02/13ãƒ¡ãƒ‡ã‚£ã‚¢: ãƒšãƒ¼ãƒ‘ãƒ¼ãƒãƒƒã‚¯è³¼å…¥: 1äºº ã‚¯ãƒªãƒƒã‚¯: 39å›žã“ã®å•†å“ã‚’å«ã‚€ãƒ–ãƒã‚° (4ä»¶) ã‚’è¦‹ã‚‹ open()ã‚·ã‚¹ãƒ†ãƒ ã‚³ãƒ¼ãƒ« The open() system call first searches the system-wide open-file table to see if the file is already in use by another process. If it is, a
BigFatCat 2012/02/26
forkã¨ãƒ•ã‚¡ã‚¤ãƒ«ãƒ‡ã‚¹ã‚¯ãƒªãƒ—ã‚¿ã®é–¢ä¿‚ã«ã¤ã„ã¦ã€‚

fork

perl
ãƒªãƒ³ã‚¯
ã«ã²ã‚Šãšã‚€::ã—ã‚“ã·ã‚‹ - è¦ªãƒ—ãƒã‚»ã‚¹ã¨åãƒ—ãƒã‚»ã‚¹ã§ãƒ‡ãƒ¼ã‚¿ã‚’é€å—ä¿¡ã™ã‚‹æ–¹æ³•ã®ãƒ¡ãƒ¢
pipe() ã¨ã‹ socketpair() ã¨ã‹è‰²ã€…æ–¹æ³•ã¯ã‚ã‚‹ã‘ã©ã€ç´ ç›´ã« IO::Pipe ä½¿ã£ã¨ãã¨ç°¡å˜ä¾¿åˆ©ã€‚ã‚³ã‚¢ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã§ã™ã—ã€‚ use strict; use warnings; use IO::Pipe; my $pipes = []; my $children = []; for my $i (1..10) { push @$pipes, my $pipe = IO::Pipe->new; my $pid = fork; if ($pid) { # parent $pipe->reader; push @$children, $pid; next; } # child die $! unless defined $pid; $pipe->writer; print {$pipe} "pid: $$, index: $i\n"; exit; } for my $pid (@$
BigFatCat 2012/02/26
IPC

fork

perl
ãƒªãƒ³ã‚¯
Parallel::ForkManager ã¨ SIGNAL ã§åãƒ—ãƒã‚»ã‚¹æŒ™å‹•åˆ¶å¾¡ã®è¡“ - blog.nekokak.org
Just Ideaãªã‚“ã§ã™ãŒã€ Forkã—ã¦åãƒ—ãƒã‚»ã‚¹ã«å‡¦ç†ã‚’è¡Œã‚ã›ã‚‹äº‹ã¯ã‚ˆãã‚„ã‚‹ã“ã¨ãªã‚“ã§ã™ãŒã€ å®Ÿéš›ã®å…¨ã¦ã®å‡¦ç†ã«ã‚ã‚‹ç¨‹åº¦æ™‚é–“ãŒã‹ã‹ã‚‹å ´åˆã«ã€ç¾åœ¨èµ°ã£ã¦ã„ã‚‹å‡¦ç†ã‚’ä¸€æ™‚åœæ¢ã—ãŸã‚Šå†é–‹ã—ãŸã‚Šã™ã‚‹ã“ã¨ãŒã§ãã‚‹ã¨ãŠã‚‚ã‚ã„ã‹ãªãã¨ãŠã‚‚ã£ãŸã®ã§ ã‚µã‚¯ã£ã¨æ›¸ã„ã¦ã¿ãŸã€‚ #! perl use strict; use warnings; use Parallel::ForkManager; use Time::HiRes qw(sleep); my $pm = Parallel::ForkManager->new(10); my $pause=0; $SIG{HUP} = sub { $pause ^= 1 }; my $finish=0; $SIG{TERM} = sub { $finish = 1 }; sub pause { $pm->wait_all_children; while (1) {
BigFatCat 2012/02/26
perl

fork

cpan
ãƒªãƒ³ã‚¯
DBIã¨forkã®é–¢ä¿‚ - heboi blog
å®Ÿéš›ã‚°ã‚°ã‚Œã°æ£è§£ã¯ã„ã£ã±ã„å‡ºã¦ãã‚‹ã—ã“ã“ã«è‡ªåˆ†ã‚‚ã‚³ãƒ¡ãƒ³ãƒˆã§æ›¸ã„ã¦ãŸã‚Šã—ã¦ã„ã¾ã•ã‚‰æ›¸ãå¿…è¦ã‚‚ãªã„ã‹ãªã¨æ€ã£ã¦ãŸã‘ã©ä¸€å¿œè‡ªåˆ†ã®ãƒ–ãƒã‚°ã§ã‚‚ã¾ã¨ã‚ã¦ãŠãã¨ã„ã†ã“ã¨ã§ã€‚ ä¸€èˆ¬çš„ãªè§£ DBIx::Connectorã¨ã‹DBIx::HandlerçµŒç”±ã§ã‹ãªã‚‰ãš$dbhã‚’å–å¾—ã—ã¦ã‹ã‚‰DBIã‚’ä½¿ã†ã€‚ ã‚‚ã—ãã¯fork-safeãªORM(DBIx::Class, DBIx::Skinny, Teng)ã‚’ä½¿ã†ã€‚ DBIã‚’ç›´æŽ¥ä½¿ã£ã¦ã„ã‚‹å ´åˆ ä¸€èˆ¬çš„ãªã‚³ãƒã‚¯ã‚·ãƒ§ãƒ³ã‚’ä¿æŒã™ã‚‹ã‚¯ãƒ©ã‚¤ã‚¢ãƒ³ãƒˆã¨åŒæ§˜ã«DBIã‚‚forkã—ãŸåä¾›ãŒè¦ªã®ã‚³ãƒã‚¯ã‚·ãƒ§ãƒ³ã‚’ãã®ã¾ã¾ä½¿ã†ã“ã¨ã¯ãƒã‚°ã®åŽŸå› ã«ãªã‚Šã¾ã™ã€‚ç‰¹ã«ãƒˆãƒ©ãƒ³ã‚¶ã‚¯ã‚·ãƒ§ãƒ³ã®å‡¦ç†ç‰ã§é‡å¤§ãªå•é¡ŒãŒèµ·ã“ã‚‹å¯èƒ½æ€§ãŒã‚ã‚‹ã€‚ è§£æ±ºç–ã¯ã€ DBIã®ã‚³ãƒã‚¯ã‚·ãƒ§ãƒ³ã‚’è¦ªã§ä½œã‚‰ãªã„ã§ã€åä¾›ã§ç‹¬è‡ªã«ä½œã‚‹ è¦ªã§ä½œã£ã¦ã—ã¾ã£ãŸã‚³ãƒã‚¯ã‚·ãƒ§ãƒ³ã‚’åä¾›ãŒå®‰å…¨ã«DESTROYã—ã€å†æŽ¥ç¶šã™ã‚‹ ã®ã©ã¡ã‚‰ã‹ã«ãªã‚Šã¾ã™ã€‚ã“ã“ã§å•é¡Œã¯2ã§
BigFatCat 2011/11/19
dbi

perl

fork

DB
ãƒªãƒ³ã‚¯
1