rekursiv sub aufrufen...

Moin.

Also, da wollt ich mal testen, wie schön rekursive Funktionen mit Perl funzen, und was kommt raus.... nischt  <img border="0" title="" alt="[Winken]" src="images/icons/wink.gif" />

  </font><blockquote><font size="1" face="Verdana, Helvetica, sans-serif">Code:</font><hr /><pre style="font-size:x-small; font-family: monospace;"> #!/usr/bin/perl
sub fak;

print "Fakultät von: ";
$fakultaet=<STDIN>;
chop($fakultaet);
print "nn".&fak($fakultaet)."nn";

sub fak{
         $zahl=$_[0];
         if ($zahl>1) { return $zahl*&fak($zahl-1)}
         else { return 1};
} [/code]</blockquote><font size="2" face="Verdana, Helvetica, sans-serif">warum gibt der code immer 1 aus? Egal welche zahl ich eingebe? So ne 0815 fakultäts funktion sollte doch eigentlich funzen...

F.