perl | Arrays (push, pop, shift, unshift)

Perl proporciona varias funciones integradas para agregar y eliminar los elementos de una array. 
 

  
Esta función inserta los valores dados en la lista al final de una array. Se pueden insertar varios valores separados por comas. Esta función aumenta el tamaño de una array. Devuelve el número de elementos en una nueva array. 
 

Sintaxis: push (array, lista)

Ejemplo: 
 

#!/usr/bin/perl
 
# Initializing the array
@x = ('Java', 'C', 'C++');
 
# Print the Initial array
print "Original array: @x \n";
 
# Pushing multiple values in the array
push(@x, 'Python', 'Perl');
 
# Printing the array
print "Updated array: @x";

Producción: 
 

Original array: Java C C++ 
Updated array: Java C C++ Python Perl

  
Esta función se utiliza para eliminar el último elemento de la array. Después de ejecutar la función pop, el tamaño de la array se reduce en un elemento. Esta función devuelve undef si la lista está vacía; de lo contrario, devuelve el último elemento de la array. 
 

Sintaxis: pop (array)

Ejemplo: 
 

#!/usr/bin/perl
 
# Initializing the array
@x = ('Java', 'C', 'C++');
 
# Print the Initial array
print "Original array: @x \n";
 
# Prints the value returned by pop
print "Value returned by pop: ", pop(@x);
 
# Prints the array after pop operation
print "\nUpdated array: @x";

Producción: 
 

Original array: Java C C++ 
Value returned by pop: C++
Updated array: Java C

  
Esta función devuelve el primer valor de una array, lo elimina y desplaza los elementos de la lista de la array hacia la izquierda en uno. La operación de cambio elimina el valor como pop, pero se toma desde el inicio de la array en lugar del final como en pop. Esta función devuelve undef si la array está vacía; de lo contrario, devuelve el primer elemento de la array. 
 

Sintaxis: shift(Array)

Ejemplo: 
 

#!/usr/bin/perl
 
# Initializing the array
@x = ('Java', 'C', 'C++');
 
# Print the Initial array
print "Original array: @x \n";
 
# Prints the value returned
# by shift function
print "Value returned by shift: ",
                        shift(@x);
 
# Array after shift operation
print "\nUpdated array: @x";

Producción: 
 

Original array: Java C C++ 
Value returned by shift :Java
Updated array: C C++

  
Esta función coloca la lista dada de elementos al comienzo de una array. Cambiando así todos los valores en una array a la derecha. Múltiples valores pueden ser desfasados ​​usando esta operación. Esta función devuelve el número de elementos nuevos en una array. 
 

Sintaxis: unshift(Array, List)

Ejemplo: 
 

#!/usr/bin/perl
 
# Initializing the array
@x = ('Java', 'C', 'C++');
 
# Print the Initial array
print "Original array: @x \n";
 
# Prints the number of elements
# returned by unshift
print "No of elements returned by unshift: ",
                   unshift(@x, 'PHP', 'JSP');
 
# Array after unshift operation
print "\nUpdated array: @x";

Producción: 
 

Original array: Java C C++ 
No of elements returned by unshift :5
Updated array: PHP JSP Java C C++