in reply to pipe fork win32
Try this:
use strict; use warnings; my ($child, $parent); pipe($child, $parent) or die; 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" x 373; 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:23 UTC | |
by BrowserUk (Patriarch) on Aug 26, 2012 at 03:30 UTC | |
by bulk88 (Priest) on Aug 26, 2012 at 13:59 UTC | |
by BrowserUk (Patriarch) on Aug 26, 2012 at 15:20 UTC | |
by BrowserUk (Patriarch) on Aug 26, 2012 at 14:17 UTC | |
by Anonymous Monk on Aug 26, 2012 at 14:48 UTC | |
| |
by ikegami (Patriarch) on Aug 27, 2012 at 15:34 UTC | |
by BrowserUk (Patriarch) on Aug 27, 2012 at 16:03 UTC |
In Section
Seekers of Perl Wisdom