How to Rotate Elements in an Array in Perl - Step by Step Examples

How to Rotate Elements in an Array in Perl ?

Answer

To rotate elements in an array using Perl, you can implement a custom rotation subroutine or use Perl's array manipulation functions.

✐ Examples

1 Rotate Array of Integers

In this example,

We have an array named @int_array containing integers.
We implement a custom rotate_array subroutine to rotate the array by a specified number of positions.
We print the rotated array to demonstrate the rotation.

Perl Program

@int_array = (1, 2, 3, 4, 5);
$positions = 2;
rotate_array(@int_array, $positions);
print "Rotated Array: [@int_array]\n";

sub rotate_array {
    my ($array_ref, $positions) = @_;
    @$array_ref = (@$array_ref)[$positions..$#{$array_ref}, 0..$positions-1];
}

Output

Rotated Array: 3 4 5 1 2

2 Rotate Array of Strings

In this example,

We have an array named @str_array containing strings.
We implement a custom rotate_array subroutine to rotate the array by a specified number of positions.
We print the rotated array to demonstrate the rotation.

Perl Program

@str_array = ('apple', 'banana', 'cherry', 'date', 'fig');
$positions = 3;
rotate_array(@str_array, $positions);
print "Rotated Array: [@str_array]\n";

sub rotate_array {
    my ($array_ref, $positions) = @_;
    @$array_ref = (@$array_ref)[$positions..$#{$array_ref}, 0..$positions-1];
}

Output

Rotated Array: date fig apple banana cherry

Summary

In this tutorial, we learned How to Rotate Elements in an Array in Perl language with well detailed examples.

◀ Previous Next ▶