Description:

I want to get the sorted order of a list of values, but not change the original list. I have an index array in which I wish keep track of the values' sorted order.

For example... start with:

@stuff_list = ( 'b','t','e','s','u','i' );
@list_order = (  0 , 1 , 2 , 3 , 4 , 5  );
[download]

then sort and get:

@stuff_list = ( 'b','t','e','s','u','i' );
@list_order = (  0 , 2 , 5 , 3 , 1 , 4  );
[download]

And then use @list_order to access the actual values.

@list_order = sort { $stuff_list[$a] cmp $stuff_list[$b] } 0 .. $#stuf
+f_list;
[download]

for my $i ( 0 .. $#list_order ) {
    print "$stuff_list[$list_order[$i]]\n";
}
[download]

print join( "\n", @stuff_list[@list_order] ), "\n";
[download]