排名问题

liang573728

请问怎样对数组进行排名？
如：
$list[0][0]="a"
$list[0][1]="30"

$list[1][0]="b"
$list[1][1]="40"

$list[2][0]="c"
$list[2][1]="40"

$list[3][0]="d"
$list[3][1]="0"

$list[4][0]="e"
$list[4][1]="90"
按照第二列数字比较出一个大小排名，结果如下：
$list[0][0]="a"
$list[0][1]="30"
$list[0][2]="3"

$list[1][0]="b"
$list[1][1]="40"
$list[1][2]="2"

$list[2][0]="c"
$list[2][1]="40"
$list[2][2]="2"

$list[3][0]="d"
$list[3][1]="0"
$list[3][2]="4"

$list[4][0]="e"
$list[4][1]="90"
$list[4][2]="1"

[ 本帖最后由 liang573728 于 2008-1-18 16:21 编辑 ]

perljoker

萨米意思？

perljoker

你索引也没写对吧……

liang573728

改正拉。其实相当于一个分数排名，第一列表示姓名， 第二列表示分数，第三列表示排名

perljoker

1. 
   
2. my $i=1;
   
3. foreach(sort {$b->[1] <=> $a->[1]} @list){
   
4.   $_->[2]= $i++;
   
5. }
   
6. print Dumper @list;
   

复制代码

[ 本帖最后由 perljoker 于 2008-1-18 16:44 编辑 ]

perljoker

哦，你同分的是按同名排列，改一下：

1. 
   
2. my $i=1;my $score=8888;
   
3. foreach( sort {$b->[1] <=> $a->[1]} @list){
   
4.     $i-- if $_->[1]==$score;
   
5.     $_->[2]= $i++;
   
6.     $score=$_->[1];
   
7. }

复制代码

恩……用8888,我这个人的确很俗……