排名问题

liang573728

UID: 38481
帖子: 162
积分: 372
在线时间: 1 天 12 小时

1^# liang573728 发表于 2008-01-18 16:01

排名问题

请问怎样对数组进行排名？
如：
$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"

perljoker

UID: 30669
帖子: 88
积分: 202
在线时间: 10 小时

2^# perljoker 发表于 2008-01-18 16:08

萨米意思？

perljoker

UID: 30669
帖子: 88
积分: 202
在线时间: 10 小时

3^# perljoker 发表于 2008-01-18 16:15

你索引也没写对吧……

liang573728

UID: 38481
帖子: 162
积分: 372
在线时间: 1 天 12 小时

4^# liang573728 发表于 2008-01-18 16:19

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

perljoker

UID: 30669
帖子: 88
积分: 202
在线时间: 10 小时

5^# perljoker 发表于 2008-01-18 16:33

[Copy to clipboard] [ - ]

CODE:

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

perljoker

UID: 30669
帖子: 88
积分: 202
在线时间: 10 小时

6^# perljoker 发表于 2008-01-18 16:43

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

[Copy to clipboard] [ - ]

CODE:

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

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