这个函数通过强制数组进入一个标量上下文来获取数组的大小，在这个上下文中数组的值是数组的大小:

print scalar @arr;

这是另一种强制数组进入标量上下文的方式，因为它被赋值给一个标量变量:

my $arrSize = @arr;

这将获得数组中最后一个元素的索引，因此它实际上是大小减1(假设索引从0开始，这在Perl中是可调整的，尽管这样做通常是一个坏主意):

print $#arr;

最后一个不太适合用于获取数组大小。如果你只想获取数组的最后一个元素，它会很有用:

my $lastElement = $arr[$#arr];

此外，正如你在Stack Overflow上看到的，大多数语法高亮显示器都不能正确处理这个构造……

从perldoc perldata，引用它应该是安全的:

下面这句话总是正确的: 标量(@whatever) == $#whatever + 1;

只要你不使用$#，然后神秘地增加数组的大小。

数组下标从0开始。

and

通过给数组赋值空列表()，可以将数组截断为空。以下是等价的: @whatever = (); $#whatever = -1;

这让我想到了我一直在寻找的东西即如何检测数组是否为空。我发现如果$#empty == -1;

第一种和第三种方法是相同的:它们在标量上下文中计算数组。我认为这是获取数组大小的标准方法。

第二种方法实际上返回数组的最后一个索引，它(通常)与数组大小不相同。

首先，第二个数组($#数组)与其他两个数组不相等。$#array返回数组的最后一个索引，它比数组的大小小1。

另外两个(标量@arr和$arrSize = @arr)实际上是相同的。您只是使用了两种不同的方法来创建标量上下文。这归结为可读性的问题。

我个人更喜欢以下几点:

say 0+@array;          # Represent @array as a number

我发现它比

say scalar(@array);    # Represent @array as a scalar

and

my $size = @array;
say $size;

后者像这样单独看起来非常清楚，但我发现当与其他代码一起使用时，额外的行会降低清晰度。它对于教授@array在标量上下文中做什么很有用，或者如果您想多次使用$size的话。

如果我们稍微修改一下第二个，这三个结果都是一样的:

my @arr = (2, 4, 8, 10);

print "First result:\n";
print scalar @arr; 

print "\n\nSecond result:\n";
print $#arr + 1; # Shift numeration with +1 as it shows last index that starts with 0.

print "\n\nThird result:\n";
my $arrSize = @arr;
print $arrSize;

例子:

my @a = (undef, undef);
my $size = @a;

warn "Size: " . $#a;   # Size: 1. It's not the size
warn "Size: " . $size; # Size: 2