Perl 获取一个数组的元素数

在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 iss";

输出。

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 arrayi = #a;
  
# Printing the Max. Index
print "\nMaximum index isi";

输出。

Array is 1 2 3             20
Maximum index is 15

以下是上述代码的工作原理：-

第1步： 用一些值初始化一个数组

第2步： 在任何一个随机的索引上分配一个值，其他索引为空白

第3步： 打印数组，显示数组中留下的空白

第4步： 为了得到最大的索引，使用’$#’

第5步： 进一步，打印最大索引