Question

我可能遗漏了一些明显的东西，但我不知道为什么以下Perl通过grep创建数组引用，但不是sort或其他常规引用？

print @$arr; # no output
print ref $arr; # no output
print scalar @$arr; # no output
print ref $arr; # no output
print sort @$arr; # no output
print ref $arr; # no output
print grep { 0 } @$arr; # no output
print ref $arr; # ARRAY

我可能错过了一些明显的东西，或者它可能只是其中之一，但它让我难过，我想知道是否有人知道答案......

我在Perl 5.8和5.10上对此进行了测试，并在两者上都采用了相同的行为。

Answer 1

有趣的问题是为什么没有其他人。在左值上下文中取消引用将自动生成操作数，如果它是undef。

$ perl -E'@$arr = "b"; say $arr // "[undef]"'
ARRAY(0x335b558)

参数总是通过引用传递给subs，因此它们在左值上下文中进行计算。

$ perl -E'sub f { }  f( @$arr ); say $arr // "[undef]"'
ARRAY(0x284e9f8)

但是perlfunc中的“函数”实际上是运算符，因此，他们可以发明自己的语法和调用约定。 Perl知道sort在使用默认比较函数时不会修改其操作数，因此它不会在左值上下文中对它们进行求值。

$ perl -E'sort @$arr; say $arr // "[undef]"'
[undef]

grep别名$_传递给它的每个项目，因此它的参数可以被修改（即使这通常不是一个好主意），所以它的参数在左值上下文中进行计算。

$ perl -E'@a = "a"; grep { $_ = uc($_) } @a; say @a'
A

为什么Perl通过grep创建一个空数组引用？

1 个答案: