Thread Perlcritic bzw. Perl Best Practice & rekursive Funktion
(6 answers)
Opened by roli at 2009-10-03 14:38
Hallo,
ich habe mittlerweile angefangen Perlcritic zu nutzen, und habe aufgrund dessen auch schon einige durchaus sinnvolle Änderungen an meinem Programm vorgenommen. Das ich's wohl nicht auf einen Level 1 ohne Meldungen bringen werde ist für mich ok, aber aktuell hänge ich an folgender Meldung, bei der ich noch keine Idee habe wie ich sie ausbauen kann: Quote Bei der Subroutine "rekursion" handelt es sich um eine Funktion, die sich selbst wieder aufruft, bis eine bestimmte Bedingung erfüllt ist. Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 sub rekursion { my($arg1, $arg2) = @_; #... if(($arg2 - $arg1) == 0) { return ($arg2); } # erneute Rekursion else { rekursion($arg1, $arg2); } } Gibt's hier eine "Lösung" um Perlcritic zufrieden zustellen, oder ist das ein Fall, in dem ich die Kritik ignorieren sollte? Roland
-- "Steh vorn, während du fragst; sitzen soll, wer antwortet." Aus "Die Edda des Snorri Sturluson" "Gylfis Täuschung" Strophe 2 |