How do I reverse array elements?

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: How do I reverse array elements? by Fastolfe (Vicar) on Nov 12, 2000 at 13:24 UTC
reverse: `@reversed = reverse @original;` [download]	[reply] [d/l]
Re: How do I reverse array elements? by sdaniels (Initiate) on Feb 01, 2001 at 00:03 UTC
@array2 = reverse( @array1 ); Originally posted as a Categorized Answer.	[reply]
Re: How do I reverse array elements? by Nilotpal_1984 (Initiate) on Sep 01, 2015 at 12:03 UTC
If you don't want to change the content of original array, you can use this: map {unshift(@reversed,$_)} @original;	[reply]
Re: How do I reverse array elements? by gridlock (Novice) on Feb 22, 2004 at 06:56 UTC
Use the 'reverse' operator - - - one of the beauties of Perl - - - Originally posted as a Categorized Answer.	[reply]
Re: How do I reverse array elements? by superfrink (Curate) on Mar 11, 2006 at 05:17 UTC
Of course, most of the time, reverse is adequate and correct; but the following gives you more control when you need it. `sub rev { my @r; push @r, pop @_ while @_; @r }` [download]	[reply] [d/l]
Re: How do I reverse array elements? by Anonymous Monk on Dec 18, 2003 at 01:16 UTC
`$i = 0; @arr = (1,2,3,4); $mid = $#arr/2; while ($i <= mid) { $tmp = $arr[$i]; $rear = $#arr-$i; $arr[$i] = $arr[$rear]; $arr[$rear] = $tmp; ++$i; }` [download] Originally posted as a Categorized Answer.	[reply] [d/l]
Re: How do I reverse array elements? by simmisam (Novice) on Jan 15, 2014 at 22:19 UTC
`my @array1 = qw(4 3 7 8 9 49 12 23 43); my @array2; for (0..$#array1) { my $popElement = pop @array1; push (@array2,$popElement); } print "@array2\n";` [download]	[reply] [d/l]
Re: Answer: How do I reverse array elements? by dcmertens (Scribe) on Jan 16, 2014 at 02:04 UTC
No. Use the reverse operator.	[reply]
Re: How do I reverse array elements? by rajib (Novice) on Aug 20, 2002 at 18:03 UTC
The following reverses an array in place, in case that's what you want: `sub reverse_inplace { for ( my $i = 0; $i < $#_ / 2; $i++ ) { my $j = $#_ - $i; @_[$i,$j] = @_[$j,$i]; # swap } } # try it: my @a = ( 1 .. 9 ); reverse_inplace( @a ); print "@a\n";` [download] Originally posted as a Categorized Answer.	[reply] [d/l]
A reply falls below the community's threshold of quality. You may see it by logging in.