通過引用遞歸函數傳遞參數

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]); 
} 
}