Thread Mehrere Instanzen verhindern? (19 answers)
Opened by BratHering at 2006-05-09 19:05

Matze
 2006-05-13 11:58
#45398 #45398
User since
2005-08-29
222 Artikel
BenutzerIn
[Homepage] [default_avatar]
[quote=betterworld,13.05.2006, 00:42]Matze: Ich sprach von einem Lockfile, nicht von einem Logfile.  Andere Instanzen ueber einen Log zu finden halte ich fuer ziemlich umständlich und ungenau.[/quote]
Was ist den ein Lockfile ?

Eigentlich finde ich meine Methode aber nicht sehr umständlich,
und ungenau auch nicht, wenn man die Sekunden mit rein nimmt
und den timestamp öfter aufruft:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
#!/usr/bin/perl -w
#
use strict;

my $logfile = "log.file";
my @time = localtime();
my $time = $time[2] . ":" . $time[1] . ":" . $time[0];

{
  open IN, "<", "$logfile";
    chomp(my@logfile = <IN>);
  close IN;

  if ($logfile[-1] =~ /$time/) {
    exit 1
  }
}

use Tk;

my $mw = tkinit();
$mw->after(100,\&timestamp);

MainLoop;

sub timestamp {
  open OUT, ">>", "$logfile";
    print OUT "$time\n";
  close OUT;

  $mw->after(100,\&timestamp);
}


MfG. Matze\n\n

<!--EDIT|Matze|1147507107-->
Mit freundlichen Grüßen: Matze

View full thread Mehrere Instanzen verhindern?