Re^4: avoiding a race ("No extra", "no-user" locking--miniscule race of no importance)

[Kanji]

in reply to Re^3: avoiding a race ("No extra", "no-user" locking--miniscule race of no importance)
in thread avoiding a race

If I knew how to do open(CREATE_NEW(*)) in Perl,

Assuming NFS isn't involved, you could do that with sysopen (or IO::File):-

use Fnctl; # O_* constants
sysopen(FH, $file, O_CREAT|O_EXCL);