in reply to Re^2: pipe fork win32
in thread pipe fork win32
I re-booted my machine and I ran your code and it did work!
The sleep(1) in the client is what I tried before and it did not work. I think that there are some flaky things having to do with Win XP. After a re-boot this worked. I am completely flabbergasted why it did not work before.
#/usr/bin/perl -w use strict; my $pid = fork(); die "fork() failed: $!" unless defined $pid; if ($pid) { print "I am the child pid =$pid...\n"; while ( sleep 1 ) { print "I am still the child ". localtime()."\n"; } } else { print "I am the parent\n"; while (sleep(2)) { print "I am still the parent ". localtime(), "\n"; } } __END__ C:\TEMP>perl browser.pl I am the parent I am the child pid =-4808... I am still the child Sun Aug 26 01:10:36 2012 I am still the parent Sun Aug 26 01:10:37 2012 I am still the child Sun Aug 26 01:10:37 2012 I am still the child Sun Aug 26 01:10:38 2012 I am still the parent Sun Aug 26 01:10:39 2012 I am still the child Sun Aug 26 01:10:39 2012 I am still the child Sun Aug 26 01:10:40 2012 I am still the parent Sun Aug 26 01:10:41 2012 I am still the child Sun Aug 26 01:10:41 2012 I am still the child Sun Aug 26 01:10:42 2012 Terminating on signal SIGINT(2)
In Section
Seekers of Perl Wisdom