通过引用递归函数传递参数

Question

我想在Perl中做一个递归函数。所以，我必须使用参考传递参数。我尝试了各种方式，但不起作用。

请注意，@b是一个矩阵。

错误重复，并且是Use of uninitialized value in numeric eq (==) at LCS.pl line ...。我不知道它是指$i还是$j或@b。

下面是代码：

$#ARGV+1 == 2 || die "USAGE: [PROGRAM] [v] [w]\n"; 

my $one = shift; 
my $two = shift; 
my @v = split("",$one); 
my @w = split("",$two); 
my $n = $#v+2; 
my $m = $#w+2; 
my @b; 

#### DO VARIOUS OPERATIONS... 

&printLCS(\$n,\$m,\@b); 

################################################## 
sub printLCS 
{ 
    my $i = shift; 
    my $j = shift; 
    my $arrayref = shift; 
    my @b=@$arrayref; 

    if(($$i == 0) || ($$j == 0)) { 
     return; 
    } 

    if($b[$$i][$$j] == 3) { #diag 
     &printLCS(\$i-1,\$j-1,\@b); 
     print $v[$$i]; 
    } 
    elsif($b[$$i][$$j] == 1) { #up 
     &printLCS(\$i-1,\$j,\@b); 
    } 
    else { # left 
     &printLCS(\$i,\$j-1,\@b); 
    } 
} 

Answer 1

我看不到任何东西相当如何进入阵列@b（或$ B，因为我已经重做它），但是这是更接近你想要的东西.. 。我认为。对其中一行的简短评论...。

printLCS($i-1,$j-1,[@$b]); 

[@ $ b]需要更多解释。 $ b是一个数组ref，单个标量指向一个数组 @ $ b将引用转换为实际数组。因此，您可以说@x = @ $ b，然后使用数组语法（如$ x [1]）获取复制的$ b ref'd数组中的元素。方括号是一个数组构造函数，用于在方括号中创建副本。我这样做的原因是我假设你想在递归中传递数组的唯一副本，以便每个帧都是独立的。请参阅perldoc perldsc，以便很好地处理这些数据结构。

$#ARGV+1 == 2 || die "USAGE: [PROGRAM] [v] [w]\n"; 

my $one = shift; 
my $two = shift; 
my @v = split("",$one); 
my @w = split("",$two); 
my $n = $#v+2; 
my $m = $#w+2; 
my @b; 

#### DO VARIOUS OPERATIONS... 

printLCS($n,$m,\@b); 

################################################## 
sub printLCS 
{ 
my $i = shift; 
my $j = shift; 
my $arrayref = shift; 
my $b=$arrayref; 

if(($i==0)||($j ==0)) 
{ 
    return; 
} 
if($b->[$i]->[$j] == 3) #diag 
{ 
    printLCS($i-1,$j-1,[@$b]); 
    print $v[$i]; 
} 
elsif($b->[$i]->[$j] == 1) #up 
{ 
    printLCS($i-1,$j,[@$b]); 
} 
else # left 
{ 
    printLCS($i,$j-1,[@$b]); 
} 
}