一个简单的Perl语言函数递归的例子：阶乘计算。@_是Perl语言函数传递参数时的参数列表，$_[0]即为第一个参数。

sub fun{
    if ($_[0] == 0||$_[0] == 1){
        return 1;
    }
    else{
        return $_[0]*&fun($_[0]-1);
    }
}

No related posts.