La función shift() en Perl 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)
Devuelve: -1 si la array está vacía; de lo contrario, es el primer elemento de la array .
Ejemplo 1:
#!/usr/bin/perl -w
# Defining Array to be shifted
@array1 = ("Geeks", "For", "Geeks");
# Original Array
print "Original Array: @array1\n";
# Performing the shift operation
$shifted_element = shift(@array1);
# Printing the shifted element
print "Shifted element: $shifted_element\n";
# Updated Array
print "Updated Array: @array1";
Producción:
Original Array: Geeks For Geeks Shifted element: Geeks Updated Array: For Geeks
Ejemplo 2:
#!/usr/bin/perl -w
# Program to move first element
# of an array to the end
# Defining Array to be shifted
@array1 = ("Geeks", "For", "Geeks");
# Original Array
print "Original Array: @array1\n";
# Performing the shift operation
$shifted_element = shift(@array1);
# Placing First element in the end
@array1[3] = $shifted_element;
# Updated Array
print "Updated Array: @array1";
Producción:
Original Array: Geeks For Geeks Updated Array: For Geeks Geeks