Problème vérouillage flock

J'ai écrit un programme perl, et je désire empêcher qu'il y ait deux exécutions de ce programme. En gros, j'aimerais que lorsque l'on exécute une deuxième fois le programme, qu'il y est erreur et fin de ce programme.

Pour cela, j'ai pensé à utiliser le vérouillage de fichier. Mon programme vérouille un fichier avant d'effectuer son traitement.
Voici mon code :
Code:

1 2 open (FILE, "access.txt") or die "can't open file: $!"; flock (FILE, 2) or die ("Accès exclusif sur $file Impossible.\n Raison: $!");
L'ennui c'est que quand mon deuxième programme est exécuté, il ne se termine pas mais attend tout simplement que la première instance ait libéré la ressource.

Il faut lui demander d'être non-bloquant :

Code:

1
2
3
4
5
6
use Fcntl ':flock';
 
open (FILE, "access.txt")
  or die "can't open file: $!";
flock (FILE, LOCK_EX | LOCK_NB)
  or die ("Accès exclusif sur $file Impossible.\n Raison: $!");

--
Jedaï

Merci :D