perl - 我可以引用带有一些参数的命名子例程吗

Question

我有一个带有多个参数的子例程，并希望使用其中一个参数集来引用它，这样引用就少了一个参数。最佳情况是

my $subref = \&routine($arg1);
...
my $result = $subref->($arg2,$arg3);

在 perlref有一个像这样的匿名子程序的例子，但是我不能得到一个命名的子程序的等价物。

下面是我的意思的完整示例。虽然 $func (引用匿名子)和 $func2 (引用命名子，但没有参数)工作。 $func3 给出错误“不是代码引用[...]”。

我错过了什么还是这实际上是不可能的？

use strict;
use warnings;

sub args{
    my $arg1 = (shift or "none");
    my $arg2 = (shift or "none");
    my $arg3 = (shift or "none");
    my (undef, undef, undef, $function) = caller(0);
    return "me: $function\narg1 = $arg1\narg2 = $arg2\narg3 = $arg3\n";
}

sub just_a_ref {
    return \&args;
}

sub new_arg_anon {
    my $arg = shift;
    return sub{
        my $arg1 = $arg;
        my $arg2 = (shift or "none");
        my $arg3 = (shift or "none");
        my (undef, undef, undef, $function) = caller(0);
        return "me: $function\narg1 = $arg1\narg2 = $arg2\narg3 = $arg3\n";
    }
}

sub new_arg {
    my $arg = shift;
    return \&args($arg);
}


my $func = new_arg_anon("one");
print $func->("two","three");     #works fine
my $func2 = just_a_ref();
print $func2->("un", "deux", "trois");  #works fine
my $func3 = new_arg("eins");
print $func3->("zwei", "drei");   #Not a CODE reference

Answer 1

您必须创建一个新的匿名函数来执行此操作。使用一个参数集调用目标函数并将其余参数传递给它。在您的示例中，new_arg 函数应该是:

sub new_arg {
    my $arg = shift;
    return sub {args($arg, @_)};
}