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