[Perl] 재귀함수

숫자를 한개 입력하여, 그 숫자의 계승을 계산하는 프로그램을 재귀(?)를 사용하여 만들을것.(3-A) 

(再帰呼び出し：재귀 호출：Recursive Call)

자기자신을 호출하는 것. 

[1부터 10까지의 숫자를 합계한다. ]

use strict;

use warnings;

my $num;

my $cal = 0;

print "Please enter the number. ";

$num = <STDIN>;

chomp $num;

Factorial ($num);

print "result : " . $cal . "\n";

sub Factorial {

$num = shift;

$cal += $num;

$num--;

if ($num > 0) {

Factorial ($num);

}

}

7-e.pl