为什么我不能在Perl中做"shift subroutine_name()“呢？

Question

为什么这段代码返回一个Not an ARRAY reference错误？

sub Prog {
    my $var1 = 1;
    my $var2 = 2;
    ($var1, $var2);
}

my $variable = shift &Prog;
print "$variable\n";

如果使用中间数组，则避免错误：

my @intermediate_array = &Prog;
my $variable = shift @intermediate_array;
print "$variable\n";

上述代码现在输出"1“。

Answer 1

子例程Prog返回标量列表。shift函数仅对数组进行操作。数组和列表不是一回事。数组有存储，但列表没有。

如果要获取Prog返回的列表的第一个元素，请执行以下操作：

sub Prog {
    return ( 'this', 'that' );
}

my $var = (Prog())[0];
print "$var\n";

我将子调用改为Prog()，而不是&Prog，因为后者显然是旧风格。

您还可以向标量分配第一个元素，就像其他人显示的那样：

my ($var) = Prog();

这与以下情况大致相同：

my ($var, $ignored_var) = Prog();

然后无视$ignored_var。如果您想清楚地表明您忽略了第二个值而实际上没有给它一个变量，那么您可以这样做：

my ($var, undef) = Prog();

Answer 2

Prog正在返回一个列表，而不是数组。像shift这样的操作修改数组，不能在列表上使用。

你可以这样做：

my ($variable) = Prog; # $variable is now 1: 
                       # Prog is evaluated in list context 
                       # and the results assigned to the list ($variable)

请注意，您不需要&。