当我将coderef传递给这个原型Perl子例程时,为什么会出现语法错误？

Question

这是代码:

sub function($&) {
    my $param1 = shift;
    my $code = shift;
    # do something with $param1 and $code
}

如果我试着像这样打电话:

function("whatever") {
    print "i'm inside the coderef\n";
}

我得到Not enough arguments for MyPackage::function at x.pl line 5, near ""whatever" { ".如何在不必添加sub代码块前调用它？

Answer 1

首先放入coderef参数:

sub function (&$) {
    my $code = shift;
    my $param1 = shift;
    # do something with $param1 and $code
}

function { print "i'm inside the coderef\n" } "whatever";

请参阅perlsub手册页,其中部分内容如下:

"&"需要一个匿名子例程,如果作为第一个参数传递,则不需要"sub"关键字或后续逗号.