perl reverse

[phlx]

Hi, I am new to perl, And i'm wondering, how could i reverse the order of all the elements in an array? (without using the built in function reverse() of course). Like I said i'm relatively new and i've just been tinkering around. If anyone could point me in the right direction I would appreciate it

 

[Rieekan]

Look into the functions pop and push. Should allow you to do what you want.

- Rieekan

 

[PaulTEG]

my @array2;
$index= scalar (@array);
$index--;
foreach (@array) {
  $array2[$index]=$_;
  $index--;
}

But why???
--Paul


Nancy Griffith - songstress extraordinaire,
and composer of the snipers anthem "From a distance ...

 

[ishnid]

Sounds like homework to me - only logical reason for not using an efficient built-in function that you're actually aware of.

 

[uida1154]

#!/usr/bin/perl -w
use strict;

my @array = qw(1 2 3 4 5);

my @array2;
foreach my $value (@array)
{
unshift @array2, $value;
}

print @array2;