Subroutine Perl

  1. Home
  2. Perl
  3. Subroutine
  4. Write recursive subroutines
sub Factorial {
        my($n) = @_;
        $n <= 2 and return $n;
        return $n * Factorial($n-1);
    }
    for $i (1..9) {
        print "$i Factorial =\t", Factorial($i), "\n";
    }