Re: Concurrency : FORK and knife


"be consistent"
	PerlMonks

Re: Concurrency : FORK and knife

by nardo (Friar)

on Jun 15, 2001 at 22:30 UTC ( [id://88886]=note: print w/replies, xml )

Need Help??

in reply to Concurrency : FORK and knife

The data from your writes isn't being flushed to disk.

use FileHandle;
use strict;

my $data;
my $pid;

open(FILE, '+>outfile');
FILE->autoflush(1);
if(($pid = fork()))
 {
   sleep(1);
   print FILE 'ALPHA';
   sleep(5);
   print FILE 'BETA';
   wait();
 }
else
 {
   sleep(3);
   seek(FILE, 0, 0);
   read(FILE, $data, (stat(FILE))[7]);
   print $data, "\n";
   sleep(7);
   seek(FILE, 0, 0);
   read(FILE, $data, (stat(FILE))[7]);
   print $data, "\n";
 }
close(FILE);
[download]

will output:

ALPHA
ALPHABETA

which I think is what you want.