我似乎遇到了几种不同的方法来查找数组的大小。这三种方法有什么区别?
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
其他回答
第一种和第三种方法是相同的:它们在标量上下文中计算数组。我认为这是获取数组大小的标准方法。
第二种方法实际上返回数组的最后一个索引，它(通常)与数组大小不相同。
例子:
my @a = (undef, undef);
my $size = @a;
warn "Size: " . $#a; # Size: 1. It's not the size
warn "Size: " . $size; # Size: 2
如果我们稍微修改一下第二个，这三个结果都是一样的:
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;
这个函数通过强制数组进入一个标量上下文来获取数组的大小，在这个上下文中数组的值是数组的大小:
print scalar @arr;
这是另一种强制数组进入标量上下文的方式，因为它被赋值给一个标量变量:
my $arrSize = @arr;
这将获得数组中最后一个元素的索引，因此它实际上是大小减1(假设索引从0开始，这在Perl中是可调整的，尽管这样做通常是一个坏主意):
print $#arr;
最后一个不太适合用于获取数组大小。如果你只想获取数组的最后一个元素，它会很有用:
my $lastElement = $arr[$#arr];
此外，正如你在Stack Overflow上看到的，大多数语法高亮显示器都不能正确处理这个构造……
使用第二种方法，加1:
print $#arr + 1; # Second way to print array size
