in reply to Re: Re: Mysterious Disapperance of file contents
in thread Mysterious Disapperance of file contents

your example does not use an external lock file...i'll just leave it at that.
...one other thing i noticed with the original poster's code is that it's closing the counter file and then opening it again, which is just plain asking for trouble, as it all should be done under one lock. anyway, i got the camel book out:
use Fcntl qw(:DEFAULT :flock);
$lockfile = "counter.lck";
sysopen(COUNTERLOCK, $lockfile, O_RDONLY | O_CREAT) or die "can't open
+ $lockfile: $!";
flock(COUNTERLOCK, O_EXCL) or die "can't lock $lockfile: $!";

[download]
....here open your counter file in read/write mode using same locking semantics as per the lockfile...then seek to 0, read the integer, add 1, seek to 0, write new value, close counter file, close lockfile, output new value to screen. don't unlock the counterfile/lockfile, just close them. this flushes the buffers and releases locks and closes in a fairly atomic fashion....that's another bug in the original code. Just remember that all this locking is only advisory, and programs not written to respect the locks will clobber it. Also, don't try to lock files over any network file systems, such as NFS,SMBFS.

Replies are listed 'Best First'.
Re: Mysterious Disapperance of file contents
by Abigail-II (Bishop) on Aug 29, 2003 at 11:02 UTC
    don't unlock the counterfile/lockfile, just close them. this flushes the buffers and releases locks and closes in a fairly atomic fashion....that's another bug in the original code.

    Modern versions of Perl flush file buffers before locking or unlocking a file. This is even documented.

    Abigail

[reply]
Do I need to use sysopen for countfile locking?
by fraktalisman (Hermit) on Aug 29, 2003 at 13:27 UTC
    I don't quite understand why to use sysopen. The same trouble Gorby has now, I had about two years ago (CGI counter resets for no obvious reason). Later I modified my counting system to something similar to your example. It obviously works, but if it's "bad" code I surely want to understand why and improve it. Here it is: 
    #! /usr/bin/perl

use Fcntl ':flock';
open(Z,"+<count.txt")||&neu;
flock(Z,LOCK_EX); $z=<Z>; $z++;
seek (Z,0,0); print Z "$z\n"; flock(Z,LOCK_UN); close(Z);
print "Status: 204 No Response\n\n";
exit(0);

sub neu {open(Z,">count.txt"); print Z "0\n"; close(Z); open(Z,"+<coun
+t.txt");}

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom