对数组排序

lxb456811

    我想对数组排序，然后打印数组排序后的下标。不知道大家有没有好办法，我想用哈希，但是感觉不直接。
   
    my @a=(5,3,6,7,8,9);
    从大到小排序结果（下标）：
   
     5
     4
     3
     2
     0
     1

zhlong8

把数据和它原位的位置打包然后排序

my @a2 = map [$a[$_], $_], 0 .. @a-1;
my @result = reverse sort {$a->[0] <=> $b->[0]} @a2; # 排序
再取出原来的下标
say for map $_->[1], @result;

写成一行就是
@rank = map $_->[1], reverse sort {$a->[0] <=> $b->[0]} map [$a[$_], $_], 0 .. @a-1;

b114213903

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. use 5.014;
   
4. 
   
5. my @a=(5,3,6,7,8,9);
   
6. my %hash;
   
7. while (my ($index,$value)=each @a){
   
8.         $hash{$index}=$value;
   
9. }
   
10. my @index=sort {$hash{$b}<=>$hash{$a}} keys %hash;
    
11. 
    
12. print "@index\n";

复制代码

kk861123

1. my @array = (5,3,6,7,8,9);
   
2. my @index = sort { $array[$b] <=> $array[$a] } 0..$#array;

复制代码

lxb456811

回复 4# kk861123


    这样子的答案喜欢，谢谢，看起来很爽。

lxb456811

回复 2# zhlong8


    谢谢版主，学习了，

lxb456811

回复 3# b114213903


    谢谢，辛苦了

wsxedcer

回复 3# b114213903


    我艹，没仔细看要求，是下标

b114213903

回复 8# wsxedcer

那个做的就是下标啊？下面不是有结果的截图么？
你是怎么了？


   

FTDlinux

试一下

1. 
   
2. my @A = (5,3,6,7,8,9);
   
3. 
   
4. my @B =  map {$_->[1]}
   
5.                 sort{$b->[0] <=> $a->[0]}
   
6.                 map {[$A[$_],$_]}  (0..$#A);
   
7. 
   
8. print "@B\n";

复制代码