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

Question

在Perl中考虑以下程序。

use strict; 
use warnings; 

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

print scalar @foo; 

这将错误消息死：

Modification of a read-only value attempted at ...

使用constat会给出不同的错误：

1 = shift @foo; 

Can't modify constant item in scalar assignment at ...
Execution of ... aborted due to compilation errors.

同样，如果我们做到这一点：

(1) = shift @foo; 

所有这些都对我有意义。但是将undef放在列表中将起作用。

(undef) = shift @foo; 

现在它打印2。

当然，这是常见的做法，如果你有一大堆的返回值，并只需要具体的人，喜欢这里：

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

代码示例中perldoc -f undef第9行显示这一点，butthere没有交代。

我的问题是，这是如何处理内部的Perl？

Answer 1

在内部，Perl具有不同的操作符用于标量分配和列表分配，即使它们在源代码中拼写为=。列表赋值操作符有你询问的undef的特殊情况。