Perl | Reverse an array
Last Updated :
23 Sep, 2018
Improve
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 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 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