如何从匿名 Perl 数组中获取从索引 N 到末尾的所有元素？

Question

在 Perl 5 中，当我们有一个命名数组时，例如 @a，从索引 $N 开始获取元素非常简单，只需使用一点 切片：

my @result = @a[$N..$#a];

是否有一种标准方法可以对匿名数组执行相同的操作，而无需显式提供长度？即，可以将 this:

my @result = (0,1,2,3,4,5)[2..5];

或者更具体地说，将 this:

my @result = (0,1,2,3,4,5)[$N..5];

转换为不需要明确范围上限的内容吗？也许是一些晦涩难懂的 Perl 语法？也许可以切块而不是切片？

PS：我已经将其编写为一个函数 - 我正在寻找一种更独立的方法。

Answer 1

您可以拼接它：

@result = splice @{[0..$M]}, $N;  # return $N .. $M

Answer 2

我认为 mob 的 splice 是最好的选择，但本着选项的精神：

my @result = reverse ((reverse 0..5)[0..$N+1]);

这返回与上面示例相同的结果：

my @result = (0..5)[$N..5];

Answer 3

如果将数组引用设置为主题，则不需要为数组引用指定名称：

    sub returns_array_ref {[1 .. 5]}

    my @slice = map @$_[$n .. $#$_] => returns_array_ref;

或者如果您正在使用列表：

    sub returns_list {1 .. 5}

    my @slice = sub {@_[$n .. $#_]}->(returns_list);

Answer 4

我只是使用数组变量来获取 len：

@a = (1,2,3,4,5);
print @a[1..@a];
# output: (2,3,4,5)