Gast+2008-10-07 07:10:36--

Code (perl): (dl )

my $count = (my $count - 2);

Das müsste auch eine Fehlermeldung geben. Du versuchst nicht nur eine Variable zweimal zu initialisieren, sondern ziehst auch von "undef" zwei ab.

Oha, den hatte ich ganz übersehen.

Da ist die Frage, wovon überhaupt 2 abgezogen werden soll, bzw. was mit diesem Code gemeint ist. Wahrscheinlich sollte die Variable überhalb der Schleife mit "my" deklariert werden und am besten auch gleich noch explizit auf 0 initialisiert werden.