Subroutine Perl

  1. Home
  2. Perl
  3. Subroutine
  4. Recursive subroutine
sub factorial
{
    my $value = shift (@_);
    return $value == 1 ? $value : $value * factorial ($value - 1);
}
$result = factorial(6);
print $result;