note
Marshall
I re-booted my machine and I ran your code and it did work!<p>
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.
<readmore>
<c>
#/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)
</c>
</readmore>
989766
989794