logging of process

sandy1028 has asked for the wisdom of the Perl Monks concerning the following question:

Hi, I am using the code as below.
Log file is created and all the process write to the same log file.
Some of the lines are merged together.
How can this be avoided.
I cannot use lock($log)
If I use sleep(1); the performance is very slow.

my $pm = new Parallel::ForkManager($tc+1);
    $pm->run_on_finish( sub { my ($pid, $exit_code, $ident) = @_; $tmp
+Files[$ident] = undef; } );
 foreach my $i (0..$#tmp) {
      # Forks and returns the pid for the child:
      my $pid = $pm->start($i) and next;
      $SIG{INT} = 'DEFAULT';
      my $filename = $tmp[$i]->filename();
      my $file = IO::File->new("<$filename") or die "Can't open $filen
+ame\n";
      while((my $line) = $file->getline()) {
        last unless defined($line);
        chomp $line;
        my ($dir, $file) = split(/\t/, $line);
        #  my $process = shift; is created above 
# Calling this from another file
        $process->($dir, $file, $config, $log);
      }
      $pm->finish; # Terminates the child process
    }
[download]

Comment on logging of process Download Code

Replies are listed 'Best First'.
Re: logging of process by Anonymous Monk on Apr 28, 2009 at 07:08 UTC
I cannot use lock($log) lock is for variables (when using threads). You want flock (or File::Flock, IO::File::flock).	[reply]
Re: logging of process by apl (Monsignor) on Apr 28, 2009 at 09:21 UTC
You could always use Log::Handler::Simple instead...	[reply]
Re^2: logging of process by sandy1028 (Sexton) on Apr 28, 2009 at 12:22 UTC
I am using Linux. I have to create 5 process. The child process is 100 and all should write to the log file in synchronizing. how can I synchronize writing to log file.	[reply]
Re^3: logging of process by BrowserUk (Patriarch) on Apr 28, 2009 at 12:32 UTC
Take a look at IPC::Semaphore & KeyedMutex. I cannot help further as I don't run Linux. 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. "Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."	[reply]
Re: logging of process by BrowserUk (Patriarch) on Apr 28, 2009 at 07:07 UTC
Which OS are you running? 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. "Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."	[reply]


Perl-Sensitive Sunglasses
	PerlMonks