in reply to pipe fork win32
Also try:
use strict; use warnings; sub debuf{ select( ( select( $_[0] ), $|++ )[0] ) } my ($child, $parent); pipe($child, $parent) or die; debuf( $parent ); my $pid = fork(); die "fork() failed: $!" unless defined $pid; if ($pid) { close $child; } else { close $parent; print "child waiting\n"; my $read; read($child, $read, 1); print "child exiting\n"; exit(0); } print $parent "exit now\r\n\r"; print "parent going to wait\n"; waitpid($pid, 0);
With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: pipe fork win32
by bulk88 (Priest) on Aug 26, 2012 at 02:38 UTC | |
by BrowserUk (Patriarch) on Aug 26, 2012 at 03:24 UTC | |
by bulk88 (Priest) on Aug 26, 2012 at 19:36 UTC | |
by BrowserUk (Patriarch) on Aug 26, 2012 at 20:18 UTC |
In Section
Seekers of Perl Wisdom