嵌套的函數調用作用域和語法

Question

我試圖調用一個嵌套的遞歸perl函數，但我無法使用正確的語法。

問題：對嵌套函數執行遞歸調用的正確語法是什麼（如果嵌套函數應該被遞歸調用）？

答案：參考接受的答案中的建議僞代碼。

這裏是一個僞代碼片斷：

use Scalar::Util; 
sub outerfunction { 
    my $innerfunction = sub { 
    # Do something 
    innerfunction(); 
    # Do other things 
    }; 
    Scalar::Util::weaken($innerfunction); 
    &$innerfunction(@_); 
}; 

我試圖調用innerfunction如下面的（與相應的錯誤消息）：

innerfunction 

未定義子程序&主： ：內功能

&innerfunction 

未定義的子程序&主要:: innerfunction

&$innerfunction 

全局符號 「$ innerfunction」 需要明確的包名

我也試着申報innerfunction爲本地，但收到以下內容：

全局符號「$ innerfunction」需要明確的包名

我沒有太多的經驗，解釋型語言，所以涉及到內存/堆泄漏/損壞或與上述僞其他危險（任何意外評論除了遞歸系統限制外）也將不勝感激。

謝謝！ 在Linux上2.6.34.7-61.fc13.x86_64

Answer 1

運行的innerfunction()語法的Perl v5.10.1僅適用於已經安裝到符號表（如sub NAME {...}語法確實）子程序。你需要調用你的內部函數$innerfunction->()或&$innerfunction()，但是你遇到麻煩的地方在於$innerfunction詞法的範圍。

當您聲明變量爲my時，變量在範圍之後該語句結束。所以，你需要分割你的宣言：

my $innerfunction; 
    $innerfunction = sub { 
     ... 
     $innerfunction->(); 
     ... 
    }; 

爲了打破循環引用與weaken通常的模式是：

use Scalar::Util; 
sub outer_function { 
    my $weak_ref; 
    $weak_ref = my $strong_ref = sub { 
     # Do something 
     $weak_ref->(); 
     # Do other things 
    }; 
    Scalar::Util::weaken($weak_ref); 
    return $strong_ref; 
}; 

所以現在，只要$strong_ref超出範圍，子程序會垃圾收集。

Answer 2

sub outer_function { 
    local *inner_function = sub { 
     # Do something 
     inner_function(); 
     # Do other things 
    }; 
    inner_function(); 
}; 

幾乎與下面的那麼好，但仍有許多更加清晰：

use Scalar::Util qw(weaken); 
sub outer_function { 
    my $weak_ref; 
    my $strong_ref = sub { 
     # Do something 
     $weak_ref->(); 
     # Do other things 
    }; 
    weaken($weak_ref = $strong_ref); # Avoid memory leak. 
    $strong_ref->(); 
};