warum zählt der Zähler nicht?

[Jutta D.]

Hallo kann mir wer helfen?

Mit diesem Counter möchter ich inkremieren.
Angezeigt wird er auf dem Bildschirm (auch der Wert aus der Datei counter.txt), aber er zählt nicht weiter.

#########################################

#Länge des Counter
$anznull=6 ;

open(COUNT,"<$data_dir/counter.txt");
  
   $counter=<COUNT>;
   seek(COUNT,0,0);
   $counter++ ;
   print COUNT $counter ;
   close (COUNT) ;

$count = length($counter) ;

for($x=0 ; $x<=$anznull-$count ; $x++) { print "0" ; }

print "$counter\n";

rechtherzlichen Dank Jutta