perl | Obtener el número de elementos de una array

Una array en Perl es una variable utilizada para almacenar una lista ordenada de valores escalares. Una variable de array está precedida por un signo «arroba» (@). El tamaño de una array se puede determinar utilizando el contexto escalar en la array que devuelve la cantidad de elementos en la array

Ejemplo 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

El código anterior devuelve el tamaño físico de la array, no la cantidad de elementos válidos. Para obtener el índice máximo de una array, se utiliza ‘$#’ como se muestra en el siguiente ejemplo:

Ejemplo 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

Así es como funciona el código anterior: –
Paso 1: Inicializar una array con algunos valores
Paso 2: Asignar un valor en cualquier índice aleatorio dejando los otros índices en blanco
Paso 3: Imprimir la array para mostrar los espacios en blanco que quedan en la array
Paso 4: Para obtener el se usa el índice máximo ‘$#’
Paso 5: Además, imprima el índice máximo