perl - 如何在 Perl 中缩小数组？

Question

如何在 Perl 中缩短数组？我阅读了一些网页，表明我可以分配:

$#ARRAY = 42;

我读到 $# 的使用已被弃用。我也需要一个适用于数组数组的解决方案。这不起作用:

$#$ARRAY[$i] = 42;

Answer 1

我不知道分配 $#ARRAY被弃用； perldoc perldata从 5.10.0 开始，当然什么也没说。这是截断数组的最快方法。

如果你想要一些更易读的东西，使用 splice :

splice @ARRAY, 43;

(注意 43 而不是 42 - $#ARRAY 获取数组的最后一个索引，而 splice 获取数组的长度)。

至于处理数组数组，我假设您的意思是能够通过引用截断嵌套数组？在这种情况下，您想要:

$#{$ARRAY->[7]} = 42;

或者

splice @{$ARRAY->[7]}, 43;