用于获取数组中最大元素数的 Perl 习惯用法

Question

我想砍掉数组中除了前五个元素之外的所有元素，所以我愚蠢地这么做了：

@foo = @foo[ 0 .. 4 ];

并由衷地称赞自己的聪明才智。但是一旦 @foo 最终只包含三个元素，这种情况就被打破了，因为最后我得到了两个 undef，而不是一个三元素数组。所以我把它改成了：

@foo = @foo > 5 ? @foo[ 0 .. 4 ] : @foo;

这可行，但有点难看。有没有更好的习惯用法来表达“给我数组前五个元素之前的所有内容？”

Answer 1

您可以设置数组的最后一个索引来缩短或延长数组。就像您的代码一样，您需要检查以确保您没有创建 undef 元素。

$#foo = 4 if $#foo > 4;

Answer 2

如果您不关心突变（由自引用 lhs @foo = 引用 @foo 暗示），请使用两个参数splice()，请参阅 perldoc -f splice 了解更多信息信息。

拼接数组，偏移

从数组中删除由 OFFSET _{^{和 LENGTH 指定的元素，并将它们替换为 LIST 的元素（如果有）。}} 在列表上下文中，返回从数组中删除的元素数组。在标量上下文中，返回最后删除的元素，如果没有删除任何元素，则返回“undef”。数组根据需要增大或缩小。如果 OFFSET 为负数，则它从距离数组末尾那么远的地方开始。如果省略 LENGTH，则删除从 OFFSET 开始的所有内容。 _{^{如果 LENGTH 为负数，则删除从 OFFSET 开始的元素（数组末尾的 -LENGTH 元素除外）。}} 如果同时省略 OFFSET 和 LENGTH，则删除所有内容。如果 OFFSET 超出了数组的末尾，perl 会发出警告，并在数组的末尾进行拼接。

然后观察效果：

@_ = 1..10;
splice @_, 5;
say for @_;


@_ = 1..3;
splice @_, 5;
say for @_;

如果您使用警告，我希望您必须检查长度（如 Axeman 的建议）或禁用噪音警告（splice() offset超出数组末尾）：

{
  no warnings 'misc';
  splice @_, 5;
}

Answer 3

还有另一种方式：

@foo = splice(@foo, 0, 5);

与其他拼接建议不同，这不会触发警告； 5 明确表示“最多 5”。

Answer 4

这不太优雅，但您可以这样表达：

@foo[ 0..( $#foo > 4 ? 4 : $#foo ) ];

通用的 min 函数可能看起来更好。

use List::Util qw<min>;    
@foo[ 0..min( $#foo, 4 ) ];

但如果你只是想摆脱其他一切，那么你只需要拼接其余的：

splice( @foo, 5 ) if 5 < @foo;