perl | Función empujar()

La función push() en Perl se usa para enviar una lista de valores al final de la array. La función push() se usa a menudo con pop para implementar pilas. La función push() no depende del tipo de valores pasados ​​como lista. Estos valores pueden ser alfanuméricos.

Sintaxis: push (array, lista)

Parámetro:
Array: en la que se agregará la lista de valores
Lista: que se agregará mediante la función de inserción

Devuelve:
el número de elementos en la nueva array.

Ejemplo 1:

#!/usr/bin/perl -w
  
# Original Array
@array = ( 10, 20, 30 );
  
# Printing Array elements
print "Original Array: @array \n";
  
# Calling push function to 
# add a list of elements
push(@array, (35, 40, 55));
  
# Printing Updated array elements
print "Updated Array: @array \n";

Producción:

Original Array: 10 20 30 
Updated Array: 10 20 30 35 40 55 

 
Ejemplo 2:

#!/usr/bin/perl -w
  
# Original Array
@array = ( 10, A, 30 );
  
# Printing Array elements
print "Original Array: @array \n";
  
# Calling push function to 
# add a list of elements
push(@array, (F, G, H));
  
# Printing Updated array elements
print "Updated Array: @array \n";

Producción:

Original Array: 10 A 30 
Updated Array: 10 A 30 F G H