Counter in Perl.

[Jörk Behrends]

Hallo auch!

@zeilen = ("");
open(COUNT, "<$BASEDIR/ml/count.txt");
while(<COUNT>)
»»  {
»»  push(@zeilen,$_);
»»  }
close(COUNT);
»»
$counter = ++$zeilen[1]; #counter wird inkrementiert

Die erste Zeile 1 der Datei wäre $zeilen[0]!

In diesem Falle war es aber schon richtig!
Das Array wurde mit ("") initialisiert - hat also als Element 0 einen leeren String.
Die Zeilen der Datei werden per push hinten an das Array angefügt, so daß
die erste Zeile der Datei auch das Element Nummer 1 im Array ist. Man könnte
es hier so sehen, daß sich zwei Fehler gegenseitig aufgehoben haben ...

Einen Fehler, der das generelle Versagen des Skriptes bedeutet konnte ich aber
auch nicht erkennen. Wie äußert sich denn der Fehler ???

Jörk