Re: What the flock!? Concurrency issues in file writing.

[massa]

Try this (works in some tests I did):

use strict;
use warnings;

sub report($@) {
  my $file = shift;
  my $temp = "$file.$$";
  1 until -w $file;
  rename $file, $temp or die "rename [$file] [$temp]: $!";
  open my $t, '+<', $temp or die "open [$temp]: $!";
  seek $t, 0, 2 or die "seek [$temp]: $!";
  print $t @_;
  close $t;
  rename $temp, $file or die "rename [$temp] [$file]: $!"
}

As the two 'rename' operations are atomic, this might work, and the file inode is preserved, so all should be well. Change the "$file.$$" for other (better) tempfilename if you expect concurrent accesses by the same process or thru the network.

[bluto]

This won't work all of the time since there is a race condition. If two processes get past the 1 until -w $file line simultaneously. One will end up die'ing when the rename fails. Update: changed "while" to "until".