为什么Perl中的undef列表不是只读或常量值？

Question

考虑Perl中的以下程序.

use strict;
use warnings;

my @foo = qw(a b c);
undef = shift @foo;

print scalar @foo;

这将死于一个错误消息:

尝试修改只读值...

使用constat会产生不同的错误:

1 = shift @foo;

无法修改标量赋值中的常量项...
执行...因编译错误而中止.

如果我们这样做:

(1) = shift @foo;

所有这些都对我有意义.但是undef列入清单会有效.

(undef) = shift @foo;

现在它打印2.

当然,如果您有一堆返回值并且只想要特定的值,这是常见的做法,例如:

my (undef, undef ,$mode, undef ,$uid, $gid, undef ,$size) = stat($filename);

perldoc -f undef中的第9行代码示例显示了这一点,但没有解释.

我的问题是,Perl如何在内部处理这个问题？

Answer 1

在内部,Perl具有用于标量赋值和列表赋值的不同运算符,即使它们都=在源代码中拼写.列表赋值运算符具有undef您要询问的特殊情况.