[Tk] Doppeltes starten abfangen und Wert übergeben - #156168 (Graphische Oberflächen)

Molaf

2012-02-16 06:07

User since
2007-10-11
119 articles
BenutzerIn
[default_avatar]

Code (perl): (dl )

1
2
3

use Fcntl qw(:flock);
open FLOCKFILE, '>', $ENV{APPDATA}.'/lst.lock';
flock(FLOCKFILE, LOCK_EX|LOCK_NB) or do {print "ENDE: Eine Instanz laeuft derzeit schon.\n\n";exit;};

So mache ich das immer, das Lock-File wird auch nicht gelöscht (wozu auch). Es bekommt immer genau eine Instanz den Zugriff. Funktioniert unter Win wie unter Linux.