perl – 写“@ARGV || =’.’;”有什么问题？

参见英文答案 > Why doesn’t ||= work with arrays?2个
为什么Perl会在下面的代码段中添加一个功能？

$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的解释在这里有多大帮助：

Can’t modify %s in %s

(F) You aren’t allowed to assign to the item indicated,or otherwise
try to change it,such as with an auto-increment.

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

解决方法

代码@ARGV不可能同时返回数组本身及其中的元素数,所以@ARGV || =’.’;没有意义.你需要评估@ARGV两次,一次是在标量上下文中(以获得元素数),一次是作为左值(以获得数组本身).

@ARGV = @ARGV || '.';