傳遞函數對象並調用它

Question

如何在Perl中將函數a傳遞給函數b並使b調用a？

Answer 1

下面是一個完整的工作腳本，演示您所要求的內容。

sub a { print "Hello World!\n"; } 

sub b { 
    my $func = $_[0]; 
    $func->(); 
} 

b(\&a); 

這裏有一個解釋：你把一個基準說\&a運作a。那時你有一個函數引用;雖然通常可以通過稱爲func()來調用函數，但您稱$func->()

->語法也可以處理其他參考。例如，這裏是處理數組和散列引用的例子：

sub f { 
    my ($aref, $href) = @_; 
    print "Here's an array reference: $aref->[0]\n"; # prints 5 
    print "Here's a hash ref: $href->{hello}\n";  # prints "world" 
} 

my @a = (5, 6, 7); 
my %h = (hello=>"world", goodbye=>"girl"); 
f(\@a, \%h); 

Answer 2

您可以訪問子程序引用和Perl一樣\&my_method，並呼籲與$myref->();這些引用。試試這個：

perl -e'sub a { print "foo in a"; }; sub b { shift->(); }; b(\&a);' 

祝你好運！

Answer 3

繼達禮Courtwright的例子：如果你只使用第一個函數一次，你也可以打電話b與匿名函數，像這樣：

b(sub { print "Hello World\n"; }); 

Answer 4

你不能傳遞一個函數到另一個函數直。相反，您將一個參考傳遞給一個函數。要調用該函數，請使用->()對其進行解引用（作爲CODE ref）;

sub a { print @_ } 

sub b { 
    my $f = shift; # assuming that $f is a function reference... 
    $f->(@_);  # call it with the remaining arguments 
} 

b(\&a, "hello, world!"); # prints "hello, world!" 

Perl沒有名稱傳遞的語義，但可以使用散列來模擬它們。調用函數的方法是相同的。你取消引用它。

sub a { print @_ } 

sub b { 
    my %arg = @_; 
    $arg{function}->(@{$arg{arguments}}); 
} 

b(function => \&a, arguments => ["hello, world!"]); 

ObPerl6：Perl 6將具有通過名稱的語義。