Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
Leser: 1
 |
|< 1 2 >| |  |
20 Einträge, 2 Seiten |
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
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);
}
IPC::System::Simple, Path::Class
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
#!/usr/bin/perl
use strict;
use warnings;
use Fcntl qw/:flock/;
use File::HomeDir qw//;
BEGIN {
my $lockfile_path = File::HomeDir->my_data . '/my_lockfile';
open LOCKFILE, '>', $lockfile_path;
flock LOCKFILE, LOCK_EX | LOCK_NB
or die "cannot acquire exclusive lock: $!\n";
}
# do something sensible here
print "Here I am\n";
sleep 10;
print "And there I go\n";
END {
flock LOCKFILE, LOCK_UN;
close LOCKFILE;
}
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,\×tamp);
MainLoop;
sub timestamp {
open OUT, ">>", "$logfile";
print OUT "$time\n";
close OUT;
$mw->after(100,\×tamp);
}
LockFile::Simple
IPC::System::Simple, Path::Class
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem |
|< 1 2 >| | |
20 Einträge, 2 Seiten |
Schrift
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
![[Powered by Battie]](/battie/img/powered.png)
