Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

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", "tst.pl"; }

And tst.pl:

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

bbfu
Black flowers blossom
Fearless on my breath


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

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (8)
As of 2014-09-19 08:17 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (133 votes), past polls