Opened by BratHering at 2006-05-09 19:05
User since
2005-08-29
222 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2005-08-29
222 Artikel
BenutzerIn
Ich kenne keine Lösung für Linux mit einer Prozess-Liste.
Aber das bringt dich sowieso nicht weiter, wenn du nicht alle Perl-
Programme die während deines Programmes auch noch laufen mit
beenden möchtest.
Mit Logfile:
Ok, es ist nicht auf die Sekunde genau, dein Programm kann nicht
kurz beendet und erneut gestartet werden, ohne den Logfile
zwischenher schnell zu ändern, aber das kannste ja, wenn nötig,
auch noch mit rein bringen.
(Einfach den timestamp öfter aufrufen.)
Ich hoffe es hilft dir.
MfG. Matze
Aber das bringt dich sowieso nicht weiter, wenn du nicht alle Perl-
Programme die während deines Programmes auch noch laufen mit
beenden möchtest.
Mit Logfile:
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];
{
open IN, "<", "$logfile";
chomp(my@logfile = <IN>);
close IN;
if ($logfile[-1] =~ /$time/) {
exit 1
}
}
use Tk;
my $mw = tkinit();
$mw->after(300,\×tamp);
MainLoop;
sub timestamp {
open OUT, ">>", "$logfile";
print OUT "$time\n";
close OUT;
$mw->after(300,\×tamp);
}
Ok, es ist nicht auf die Sekunde genau, dein Programm kann nicht
kurz beendet und erneut gestartet werden, ohne den Logfile
zwischenher schnell zu ändern, aber das kannste ja, wenn nötig,
auch noch mit rein bringen.
(Einfach den timestamp öfter aufrufen.)
Ich hoffe es hilft dir.
MfG. Matze
Mit freundlichen Grüßen: Matze