do { $parent--; }while( $parent >= 0 ): geht nicht bei 0 - #79068 (Allgemeines zu Perl)

Crian

2004-01-12 11:06

User since
2003-08-04
5871 Artikel
ModeratorIn

Ich würde aus rein ästhetischen Gründen eine while-Schleife daraus machen, aber das wird Dein Problem wohl nicht lösen. Aber da $parent zu Beginn ja einen Wert (>0) hat oder haben sollte (ggf. Übergabewerte der Funktion auf Existenz (defined) und Sinnhaltigkeit überprüfen, das empfiehlt sich eigentlich für jede Funktion und hilft ungemein dabei, lange Debug-Arien zu vermeiden), kannst Du das ja ohne Bedenken umstellen.\n\n

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite