Arrays 原型：返回数组或标量_Arrays_Perl_Reference_Return Value_Perl Data Structures

Arrays 原型：返回数组或标量

arrays perl reference

Arrays 原型：返回数组或标量,arrays,perl,reference,return-value,perl-data-structures,Arrays,Perl,Reference,Return Value,Perl Data Structures,我很难理解如何使用子例程原型返回数组。这里有一个例子 sub f (&@) { my ($func) = @_; eval &$func; } my $a = f {return 1}; my @b = f {return (2,1,1,4)}; print "a = ".$a."\n"; print "b = ".scalar(@b)."\n"; 这将输出a=1和b=1，但我希望@b的长度为4 我还尝试返回函数f中的引用\

我很难理解如何使用子例程原型返回数组。这里有一个例子

sub f (&@) {
        my ($func) = @_;        
        eval &$func;
}

my $a = f {return 1};
my @b = f {return (2,1,1,4)};

print "a = ".$a."\n";
print "b = ".scalar(@b)."\n";

这将输出

a=1

和

b=1

，但我希望

@b

的长度为4

我还尝试返回函数

中的引用

\eval&$func

。然后，我可以取消对标量的引用（

$$a

是1），但是当取消对数组的引用（

@$b

）时，perl告诉我它不是数组引用。

无需求值，您可以

use warnings;
sub f (&) {
    my ($func) = @_;
    $func->(); # better than &$func
}

另一方面，

eval

只返回由

$f

给出的列表中的最后一个元素，因为它与写入

eval scalar$func->（）相同

，因此

@b

以一个元素=>

从

EXPR的返回值被解析和执行，就像它是一个小Perl程序一样。首先解析表达式的值（它本身在标量上下文中确定），如果没有错误，则在当前Perl程序的词法上下文中作为块执行

sub f (&) {
    my ($func) = @_;
    eval { &$func }
}

不需要评估，你可以

use warnings;
sub f (&) {
    my ($func) = @_;
    $func->(); # better than &$func
}

另一方面，

eval

只返回由

$f

给出的列表中的最后一个元素，因为它与写入

eval scalar$func->（）相同

，因此

@b

以一个元素=>

从

sub f (&) {
    my ($func) = @_;
    eval { &$func }
}

原型对子例程返回标量还是列表没有影响。如果您想知道在什么上下文中调用了子例程，请使用

eval &$func;

上面的行首先在标量上下文中调用

$func

引用的子例程，然后将其返回值转换为字符串，并将该字符串作为Perl程序执行

sub f (&) {
    my ($func) = @_;
    eval { &$func }
}

这将执行您显然想要的操作（在

eval

块中调用

本身被调用的相同上下文（标量或列表）中调用

$func

引用的子例程以捕获运行时错误）

这是一种更现代的风格，带有

->

操作符。