写“@ARGV ||= '.';”有什么问题？ [复制]

Question

为什么 Perl 会在下面的 sn-p 上出现问题？

$ perl -Mstrict -wE '@ARGV ||= ".";'
Can't modify array dereference in logical or assignment (||=) at -e line 1, near "'.';"
Execution of -e aborted due to compilation errors.

当它愉快地处理时

$ perl -Mstrict -wE '@ARGV = @ARGV || ".";'

---

我认为perldiag 的解释对这里没有多大帮助：

无法修改 %s 中的 %s

(F) 您不得分配给指定的项目，或以其他方式 尝试更改它，例如使用自动增量。

---

非常感谢对这种行为进行更人性化的解释。

Answer 1

代码@ARGV 不可能同时返回数组本身和其中的元素数量，因此@ARGV ||= '.'; 没有意义。您需要对@ARGV 进行两次评估，一次在标量上下文中（获取元素数量），一次作为左值（获取数组本身）。

 @ARGV = @ARGV || '.';