ã«ã²ã‚Šãšã‚€::ã—ã‚“ã·ã‚‹ - 親プãƒã‚»ã‚¹ã¨åプãƒã‚»ã‚¹ã§ãƒ‡ãƒ¼ã‚¿ã‚’é€å—ä¿¡ã™ã‚‹æ–¹æ³•ã®ãƒ¡ãƒ¢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 (@$
{{#tags}}- {{label}}
{{/tags}}