perl | Función array pop()

La función pop() en Perl devuelve el último elemento de Array que se le pasó como argumento, eliminando ese valor de la array. Tenga en cuenta que el valor que se le pasa debe ser explícitamente una array, no una lista.

Sintaxis:
pop (array)

Devuelve:
undef si la lista está vacía si no es el último elemento de la array.

Ejemplo 1:

#!/usr/bin/perl -w
  
# Defining an array of integers
@array = (10, 20, 30, 40);
  
# Calling the pop function
$popped_element = pop(@array);
  
# Printing the Popped element
print "Popped element is $popped_element";
  
# Printing the resultant array
print "\nResultant array after pop(): \n@array";
Producción:

Popped element is 40
Resultant array after pop(): 
10 20 30

Ejemplo 2:

#!/usr/bin/perl -w
  
# Defining an array of strings
@array = ("Geeks", "For", "Geeks", "Best");
  
# Calling the pop function
$popped_element = pop(@array);
  
# Printing the Popped element
print "Popped element is $popped_element";
  
# Printing the resultant array
print "\nResultant array after pop(): \n@array";
Producción:

Popped element is Best
Resultant array after pop(): 
Geeks For Geeks

Publicación traducida automáticamente

Artículo escrito por Code_Mech y traducido por Barcelona Geeks. The original can be accessed here. Licence: CCBY-SA

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *