Re: Getting the order of an array

[tall_man]

To get the OP's desired output, one needs another loop such as the one below:

use strict;
my @vector = qw( 27 32 46 5 102 76 );
my @order = sort{ $vector[ $a ] <=> $vector[ $b ] } 0 .. $#vector;
 
my $i = 1;
my @order_it;
foreach (@order) {
   $order_it[$_] = $i++;
}
print join(' ',@order_it),"\n";
print "@vector[ @order ]\n";

Update: Updated to show the correct way to get the second part of the OP's answer. In answer to BrowserUk's comment, I took the original question to mean that both outputs are required but that the OP didn't realize they could not both be supported by a single array.

[BrowserUk]

I guess it depends upon whether you feel the intermediate ordering or the final ordering specified is the crux of what the OP is trying to achieve?

use strict;
my @vector = qw( 27 32 46 5 102 76 );
my @order = sort{ $vector[ $a ] <=> $vector[ $b ] } 0 .. $#vector;

my $i = 1;
my @order_it;
foreach (@order) {
   $order_it[$_] = $i++;
}
print join(' ',@order_it),"\n";
print "@vector[ @order_it ]\n";
__END__
P:\test>junk
2 3 4 1 6 5
Use of uninitialized value in join or string at P:\test\junk.pl line 1
+1.
46 5 102 32  76