Thread Perlcritic bzw. Perl Best Practice & rekursive Funktion
(6 answers)
Opened by roli at 2009-10-03 14:38
ganz simpel:
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 sub rekursion { my($arg1, $arg2) = @_; #... return ($arg2) if(($arg2 - $arg1) == 0); # erneute Rekursion return rekursion($arg1, $arg2); } Man spart sogar ein paar Zeilen :-) |