shift() function in Perl returns the first value in an array, removing it and shifting the elements of the array list to the left by one. Shift operation removes the value like pop but is taken from the start of the array instead of the end as in pop. This function returns undef if the array is empty otherwise returns the first element of the array.
Perl
perl
Syntax: shift(Array) Returns: -1 if array is Empty otherwise first element of the arrayExample 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";
Output:
Example 2:
Original Array: Geeks For Geeks Shifted element: Geeks Updated Array: For Geeks
#!/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";
Output:
Original Array: Geeks For Geeks Updated Array: For Geeks Geeks