Question

有人可以解释为什么这会访问Perl 6中的最后一个元素

@array[*-1]

为什么我们需要星号*？

做这样的事情是不合逻辑的：

@array[-1]

Answer 1

user documentation解释说*-1只是一个代码对象，也可以写成

-> $n { $n - 1 }

传递给[ ]时，将使用数组大小作为参数调用它来计算索引。

因此，您不仅可以从数组的末尾开始向后计数，而是可以使用它来例如从中心向前计数

@array[* div 2]     #=> middlemost element
@array[* div 2 + 1] #=> next element after the middlemost one

根据design documents，禁止否定指数的原因（即使采用上述概括也可以接受）是：

Perl 6语义避免索引不连续性（微妙的运行时错误的来源），并在数组的两端提供两个方向的顺序访问。

Answer 2

如果你不喜欢任何明星，你也可以这样做：

my $last-elem = @array.tail;

甚至

my ($second-last, $last) = @array.tail(2);

编辑：当然，还有head方法：

my ($first, $second) = @array.head(2);

Answer 3

其他two answers非常出色。我回答的唯一理由是添加一些关于Whatever Star *数组索引语法的更多解释。

Perl 5中Perl 6的@array[*-1]语法相当于$array[ scalar @array - 1]。在Perl 5中，在标量上下文中，数组返回它包含的项目数，因此scalar @array为您提供数组的长度。从中减去一个可以得到数组的最后一个索引。

因为在Perl 6中，索引可以被限制为永远不会为负数，如果它们是负数，那么它们肯定超出范围。但在Perl 5中，负指数可能会或可能不会超出范围＆＃34;。如果它超出范围，那么它只会给你一个未定义的值，这个值不容易与元素中的未定义值区分开。

例如，Perl 5代码：

use v5.10;
use strict;
use warnings;
my @array = ('a', undef, 'c');

say $array[-1]; # 'c'
say $array[-2]; # undefined
say $array[-3]; # 'a'
say $array[-4]; # out of range

say "======= FINISHED =======";

导致两个几乎相同的警告，但仍然完成运行：

c
Use of uninitialized value $array[-2] in say at array.pl line 7.

a
Use of uninitialized value in say at array.pl line 9.

======= FINISHED =======

但是Perl 6代码

use v6;
my @array = 'a', Any, 'c';

put @array[*-1]; # evaluated as @array[2] or 'c'
put @array[*-2]; # evaluated as @array[1] or Any (i.e. undefined)
put @array[*-3]; # evaluated as @array[0] or 'a'
put @array[*-4]; # evaluated as @array[-1], which is a syntax error

put "======= FINISHED =======";

同样会警告使用的未定义值，但是在使用小于0的索引时它会失败：

c
Use of uninitialized value @array of type Any in string context.
Methods .^name, .perl, .gist, or .say can be used to stringify it to something meaningful.
  in block <unit> at array.p6 line 5

a
Effective index out of range. Is: -1, should be in 0..Inf
  in block <unit> at array.p6 line 7

Actually thrown at:
  in block <unit> at array.p6 line 7

因此，你的Perl 6代码可以通过不允许负索引来更强大，但你仍然可以使用Whatever Star语法从最终索引。

最后的建议

如果您只需要数组的最后几个元素，我建议您使用mscha's answer中提到的tail方法。 @array.tail(3)比@array[*-3 .. *-1]更加不言自明。

访问Perl6中的最后一个元素

3 个答案:

最后的建议