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 :
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.
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: $!");
Partager