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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.