Claudia Meier: Variable erzeugen

Beitrag lesen

Hallo ich habe hier einen Zähler, bei diesem möchte ich die Funktion der Anzeige der Nullen und den Zählerstand zu einer Variable zusammenfassen und nicht durch den print Befehl ausgeben. Bin eine blutige Anfängerin und bekomme das nicht auf die Reihe.
Claudia

sub akt_counter {

open (COUNT , "+< $data2_dir/counter.txt") die "Kann die Datei nicht öffnen." ;

flock(COUNT,2) if $lock==1 ;
$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";

}