Perl schreibt nicht in eine Datei

[Struppi]

läuft bei mir seit Jahren:

sicher?

#!/usr/bin/perl -w

Author : WOLfgang Schricker [e-mail]

use strict;

my $log_file = "data/counter.dat";

unless ( open(LOG, "+< $log_file") )
{
  open(LOG, "> $log_file")  or die "Can't open '$log_file':\n$!\n";

print LOG "1";

close(LOG)                or die "Can't close '$log_file':\n$!\n";
}
else
{
  my @log = <LOG>;

$log[0]++;
   seek(LOG, 0, 0)          or die "Can't seek '$log_file':\n$!\n";
   print LOG @log;
   truncate(LOG, tell(LOG)) or die "Can't truncate '$log_file':\n$!\n";

close(LOG)                or die "Can't close '$log_file':\n$!\n";
}

exit(0);

Das der Zähler ohne flock nicht schon mehrmals auf null zurückgesetzt wurde, ist entweder Glück oder du bist der einzige der darauf zugrift.

Struppi.