Perl | Reverse an array
Last Updated :
23 Sep, 2018
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.
@arr = (2, 3, 4, 5, 6, 7);
$n = $#arr ;
print "The original array is : " ;
for $i (0 .. $#arr )
{
print $arr [ $i ], " " ;
}
for my $i (0 .. $#arr /2)
{
$tmp = $arr [ $i ];
$arr [ $i ] = $arr [ $n - $i ];
$arr [ $n - $i ] = $tmp ;
}
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.
@arr = (2, 3, 4, 5, 6, 7);
print "The original array is : " ;
for $i (0 .. $#arr )
{
print $arr [ $i ], " " ;
}
@rev_arr = reverse ( @arr );
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
Like Article
Suggest improvement
Share your thoughts in the comments
Please Login to comment...