我似乎遇到了几种不同的方法来查找数组的大小。这三种方法有什么区别?
my @arr = (2);
print scalar @arr; # First way to print array size
print $#arr; # Second way to print array size
my $arrSize = @arr;
print $arrSize; # Third way to print array size
当前回答
第一种和第三种方法是相同的:它们在标量上下文中计算数组。我认为这是获取数组大小的标准方法。
第二种方法实际上返回数组的最后一个索引，它(通常)与数组大小不相同。
其他回答
正如许多答案所指出的那样，第一种和第三种方法是获取数组大小的正确方法，而第二种方法则不是。
在这里，我将用一些用法示例来扩展这些答案。
@array_name在标量上下文中使用时，计算结果为数组的长度=数组的大小=数组中的元素数量。
下面是标量上下文的一些示例，例如在if或unless中单独使用@array_name，用于==或!=这样的算术比较。
如果将@array_name更改为标量(@array_name)，所有这些示例都将正常工作。这将使代码更显式，但也更长，可读性稍差。因此，这里更倾向于使用省略scalar()的习惯用法。
my @a = (undef, q{}, 0, 1);
# All of these test whether 'array' has four elements:
print q{array has four elements} if @a == 4;
print q{array has four elements} unless @a != 4;
@a == 4 and print q{array has four elements};
!(@a != 4) and print q{array has four elements};
# All of the above print:
# array has four elements
# All of these test whether array is not empty:
print q{array is not empty} if @a;
print q{array is not empty} unless !@a;
@a and print q{array is not empty};
!(!@a) and print q{array is not empty};
# All of the above print:
# array is not empty
打印数组大小的方法有很多种。以下是所有单词的含义:
假设数组是@arr = (3,4);
方法一:标量
这是获取数组大小的正确方法。
print scalar @arr; # Prints size, here 2
方法二:索引号
$#arr给出数组的最后一个索引。因此，如果数组的大小为10，那么它的最后一个索引将是9。
print $#arr; # Prints 1, as last index is 1
print $#arr + 1; # Adds 1 to the last index to get the array size
我们在这里加1，将数组视为0索引。但是，如果它不是从零开始的，这个逻辑就会失败。
perl -le 'local $[ = 4; my @arr = (3, 4); print $#arr + 1;' # prints 6
上面的例子输出6，因为我们已经将它的初始索引设置为4。现在索引是5和6，分别是元素3和元素4。
方法3:
当数组在标量上下文中使用时，它将返回数组的大小
my $size = @arr;
print $size; # Prints size, here 2
实际上，方法三和方法一是一样的。
首先，第二个数组($#数组)与其他两个数组不相等。$#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的话。
使用int(@array)，因为它威胁参数为标量。
例子:
my @a = (undef, undef);
my $size = @a;
warn "Size: " . $#a; # Size: 1. It's not the size
warn "Size: " . $size; # Size: 2
