Open In App

Perl | Reverse an array

Last Updated : 23 Sep, 2018
Comments
Improve
Suggest changes
2 Likes
Like
Report
Reverse an array or string in Perl. Iterative Way: Iterate over the array from 0 to mid of array. Swap the arr[i] element with arr[size-i] element. Perl 
#Perl code to reverse an array iteratively

#declaring an array of integers
@arr = (2, 3, 4, 5, 6, 7);

# Store length on array in $n variable
$n = $#arr;

#Print the original array
print "The original array is : ";
for $i (0 .. $#arr)
{
    print $arr[$i], " ";
}

#run a loop from 0 to mid of array
for my $i (0 .. $#arr/2)
{
    #swap the current element with size-current element
    $tmp = $arr[$i];
    $arr[$i] = $arr[$n-$i];
    $arr[$n-$i] = $tmp;
}

#Print the reversed array
print "\nThe reversed array is : ";
for $i (0 .. $#arr)
{
    print $arr[$i], " ";
}
Output: 
The original array is : 2 3 4 5 6 7 
The reversed array is : 7 6 5 4 3 2
Using Inbuilt Function: Perl has an inbuilt function to reverse an array or a string or a number. Perl 
#Perl code to reverse an array using inbuilt function reverse

#declaring an array of integers
@arr = (2, 3, 4, 5, 6, 7);

#Print the original array
print "The original array is : ";
for $i (0 .. $#arr)
{
    print $arr[$i], " ";
}

#store the reversed array in @rev_arr
@rev_arr = reverse(@arr);

#Print the reversed array
print "\nThe reversed array is : ";
for $i (0 .. $#rev_arr)
{
    print $rev_arr[$i], " ";
}
Output: 
The original array is : 2 3 4 5 6 7 
The reversed array is : 7 6 5 4 3 2

G

Gautam Karakoti
Improve
Article Tags :

Explore

Lightbox