珀尔 |获取数组的元素数

Perl 中的数组是一个变量，用于存储标量值的有序列表。数组变量前面有一个“at”(@) 符号。数组的大小可以使用数组上的标量上下文来确定，它返回数组中元素的数量

示例 1：

#!/usr/bin/perl
  
# Initializing the array
@a = (1, 2, 3);
  
# Assigning the array to a scalar
# variable which stores size of
# the array
$s = @a;
  
# Printing the size
print "Size of the Array is $s";

输出：

Size of the Array is 3

上面的代码返回数组的物理大小，而不是有效元素的数量。为了获得数组的最大索引，使用'$#'，如下例所示：

示例 2：

#!/usr/bin/perl
  
# Initializing the array
@a = (1, 2, 3);
  
# Store the value at any index
# Let's take index 15 here,
$a[15] = 20;
  
# Printing the Array
print "Array is @a";
  
# Getting the maximum index 
# of the array
$i = $#a;
  
# Printing the Max. Index
print "\nMaximum index is $i";

输出：

Array is 1 2 3             20
Maximum index is 15

以下是上述代码的工作原理：-
Step1：用一些值初始化一个数组
步骤 2：在任何随机索引处分配一个值，将其他索引留空
Step3：打印数组以显示数组中剩余的空格
Step4:使用 '$#' 获取最大索引
Step5：进一步，打印最大索引