perl里面怎么写递归啊？

kiss2003

我需要用perl改写一个类似下面的递归函数，
向大家请教一下，用perl的话怎么处理参数的传递问题啊?
尤其是原来的参数tab是数组怎么传递啊？


#        ---点的颜色为白色时，返回，不处理。
#        if(tcl[x][y]==16777215)  then
#            return;
#        end;
#        
#        ---值为1，则计数加1，返回
#        if ( tchked[x][y]) then
#            return ;
#        else
#            table.insert(tab,{x=x,y=y} );--添加到连通线里
#            tchked[x][y]=true;---当值为0时，把值置为1。
#            seed(x+1,y-1,tab);
#            seed(x,y-1,tab);
#            seed(x-1,y-1,tab);
#            seed(x-1,y,tab);
#            seed(x+1,y,tab);
#            seed(x-1,y+1,tab);
#            seed(x,y+1,tab);
#            return seed(x+1,y+1,tab); --这里可以用一个尾调用(参考教程中的函数部份),加快递归的速度。
#        end;

apile

传引用....\@ary...
例如
sub mysub{
  my($ary) = @_;
  // @{$ary} is the array you input
}

mysub(\@ary);

兰花仙子

&mysub;

这种方式通常用于写递归子函数，因为在mysub里默认取的是当前@_的值（不管这个@_在哪里形成的）作为参数。

kiss2003

谢谢啊