我似乎遇到了几种不同的方法来查找数组的大小。这三种方法有什么区别?

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

当前回答

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

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

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

数组下标从0开始。

and

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

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

其他回答

正如许多答案所指出的那样,第一种和第三种方法是获取数组大小的正确方法,而第二种方法则不是。

在这里,我将用一些用法示例来扩展这些答案。

@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

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

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

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

print scalar @arr;

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

my $arrSize = @arr;

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

print $#arr;

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

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

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

使用int(@array),因为它威胁参数为标量。

打印数组大小的方法有很多种。以下是所有单词的含义:

假设数组是@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

实际上,方法三和方法一是一样的。