løbenummer i PERL-script

det allernemmeste er at lave det i en database, eftersom du kan få problemer med samtidige forespørgsler.

Jeg glemte at skrive, at det bruges på en website.
Kan jeg ikke gøre det som skitseret med flock?

jo - udover at flock er blokerende IO, så hvis du får mange requests så kan det være en alvorlig flaskehals.

#!/usr/bin/perl

use FileHandle;
use strict;
use Fcntl ':flock';
my $count;

my $fh = new FileHandle "< counter.txt";

        while (<$fh>) {
                chomp;
                $count = $_;
        }

print "count = $count\n";
        $count ++;
        my $gh = new FileHandle "> counter.new";
        flock($gh,LOCK_EX);
        print $gh $count;
        flock ($gh,LOCK_UN);
        system ("mv counter.new counter.txt");

detteher gør nogenlunde hvad du vil ... der er det store hul at den kopierer over fra den ene fil til den anden - og i det korte øjeblik er der een som kan gå ind og opdatere samtidigt og derved får du to af det samme nr.

Jeg har lige lagt det op på serveren og det kører fint, det tæller!
Jeg tror, jeg løber risikoen for simultane klik foreløbig. Det skulle være mærkeligt om de 6 brugere skulle ramme samme splitsekund.

Jeg takker og gir point, hvis du vil sende et svar.

ok :-)