Leser: 2
3 Einträge, 1 Seite |
1
2
3
4
open(my $log_fh,">>",'logfile') or die $!;
my $date = localtime();
print $log_fh $date;
close $log_fh;
1
2
3
4
5
my $time = localtime;
open( LOG, ">> logfile.log") or die ("Cant open: $!");
flock(LOG, 2);
print LOG "[$time] Das ist ein Log!\n";
close( LOG) or die ("Cant close: $!");
3 Einträge, 1 Seite |