Bonjour,
Suivant les conseils de Jedai, j'ai réalisé un petit compteur utilisant flock:
Ce compteur fonctionne bien si on le sollicite à plus de 5 secondes,
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 use Fcntl qw(:DEFAULT :flock); open (FH,"+<compteur.txt" ) or die "probleme open"; flock(FH, LOCK_EX) or die "problème lock "; # *** Maintenant on est vérouillé $num = <FH>; seek(FH, 0, 0) ; truncate(FH, 0) ; print FH $num+1, "\n" ; print "compteur = $num\n" ; # *** attend 5 secondes pour verifier le lock sleep 5 ; # *** dévérouille par le close close(FH) ;
mais se remet à null si on l'appelle 2 ou N fois de suite en moins de 5 secondes.
Où est l'erreur ?
son URL est:
www.sgc-villennes.com/cgi-bin/lock.pl
Dominique
[Edit]
Balises [code] et [/code] ajoutées par 2Eurocents.
Merci d'y penser pour rendre le forum plus lisible ...
[/Edit]
Partager