我似乎遇到了几种不同的方法来查找数组的大小。这三种方法有什么区别?
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
我似乎遇到了几种不同的方法来查找数组的大小。这三种方法有什么区别?
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
当前回答
使用scalar关键字查找数组的大小:
print scalar @array;
要找出数组的最后一个索引,可以使用$# (Perl默认变量)。它给出了数组的最后一个索引。当数组从0开始时,我们通过给$#加1来获取数组的大小:
print "$#array+1";
例子:
my @a = qw(1 3 5);
print scalar @a, "\n";
print $#a+1, "\n";
输出:
3
3
其他回答
首先,第二个数组($#数组)与其他两个数组不相等。$#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的话。
这个函数通过强制数组进入一个标量上下文来获取数组的大小,在这个上下文中数组的值是数组的大小:
print scalar @arr;
这是另一种强制数组进入标量上下文的方式,因为它被赋值给一个标量变量:
my $arrSize = @arr;
这将获得数组中最后一个元素的索引,因此它实际上是大小减1(假设索引从0开始,这在Perl中是可调整的,尽管这样做通常是一个坏主意):
print $#arr;
最后一个不太适合用于获取数组大小。如果你只想获取数组的最后一个元素,它会很有用:
my $lastElement = $arr[$#arr];
此外,正如你在Stack Overflow上看到的,大多数语法高亮显示器都不能正确处理这个构造……
第一种和第三种方法是相同的:它们在标量上下文中计算数组。我认为这是获取数组大小的标准方法。
第二种方法实际上返回数组的最后一个索引,它(通常)与数组大小不相同。
perlintro文档的“Perl变量类型”一节包含
特殊变量$#array告诉你数组的最后一个元素的索引: 混合印刷美元($ #混合);#最后一个元素,输出1.23 您可能会想使用$#array + 1来告诉您数组中有多少项。不用麻烦了。当它发生时,使用@array, Perl期望在其中找到一个标量值(“在标量上下文中”),将为您提供数组中的元素数量: 如果(@animals < 5){…}
perldata文档在“标量值”一节中也介绍了这一点。
如果在标量上下文中计算数组,则返回数组的长度。(注意,列表不是这样的,它返回最后一个值,比如C逗号操作符;内置函数也不是这样,它返回它们想返回的任何值。)下面这句话总是正确的: 标量(@whatever) == $#whatever + 1; 一些程序员选择使用显式转换,以便不留任何疑问: $element_count =标量(@whatever);
在同一节的前面,介绍了如何获取数组的最后一个元素的索引。
数组的长度是一个标量值。你可以通过计算$#days来找到数组@days的长度,就像在csh中一样。然而,这不是数组的长度;它是最后一个元素的下标,这是一个不同的值,因为通常有第0个元素。
打印数组大小的方法有很多种。以下是所有单词的含义:
假设数组是@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
实际上,方法三和方法一是一样的。