Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask

Re: Non-blocking IPC to and from multiple children

by bbfu (Curate)
on Mar 29, 2004 at 15:33 UTC ( #340639=note: print w/ replies, xml ) Need Help??

in reply to Non-blocking IPC to and from multiple children

I would use pipes instead of socketpairs, but mostly because I'm not really familiar with socketpairs.

The following code doesn't work on Win32, since select is (properly) implemented only for sockets on Win32. Presumably, you could use the same basic idea but with socketpairs and have it work on Win32 as well. *shrug*

#!/usr/bin/perl use warnings; use strict; use IO::Handle; use IO::Pipe; use IO::Select; my $stdout = IO::Pipe->new(); my $stdin = IO::Pipe->new(); defined(my $pid = fork) or die "Fork failed\n"; if($pid) { $stdout->reader(); $stdin ->writer(); $stdin ->autoflush(1); my $select = IO::Select->new($stdout); foreach my $key (@ARGV) { $stdin->print("parent ($$) send [$key]\n"); next unless $select->can_read(1); $stdout->sysread(my $buf, 1024); chomp($buf); print "parent ($$) recv [$buf]\n"; } $stdin->close(); waitpid($pid, 0); } else { $stdout->writer(); $stdin ->reader(); $stdout->autoflush(1); open STDOUT, ">&", $stdout; open STDIN, "<&", $stdin; exec "$^X", ""; }


#!/usr/bin/perl use warnings; use strict; $|++; while(<STDIN>) { chomp; next unless /\[(\d+)\]/ && $1 % 2 == 1; # Only odds print "$1 is odd\n"; }

Black flowers blossom
Fearless on my breath

Comment on Re: Non-blocking IPC to and from multiple children
Select or Download Code

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://340639]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (9)
As of 2015-12-01 01:40 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (791 votes), past polls