散列如何按值排序？

llvs

UID: 35509
帖子: 56
积分: 128
在线时间: 4 小时

1^# llvs 发表于 2008-10-29 14:55

散列如何按值排序？

散列如何按值排序？

就这样的

％abc = ( a ,1 , b , 2 , c 3 ) ;

输出结果：

c 3
b 2
a 1

谢谢

__lxmxn__

UID: 3845
帖子: 167
积分: 384
在线时间: 1 天 14 小时

2^# __lxmxn__ 发表于 2008-10-29 15:02

请看 perldoc -f sort 一节。

QUOTE:

ingle027@idc-second:~> perl -e '%abc = qw/a 1 b 2 c 3/; print map {"$_\t$abc{$_}\n"} sort {$abc{$b} <=> $abc{$a}} keys %abc'
c    3
b    2
a    1
ingle027@idc-second:~>

llvs

UID: 35509
帖子: 56
积分: 128
在线时间: 4 小时

3^# llvs 发表于 2008-10-29 15:13

谢谢，

lytton32

UID: 44146
帖子: 16
积分: 36
在线时间: 10 分钟

4^# lytton32 发表于 2008-10-30 15:58

print $_,"\t",$abc{$_},"\n" for (reverse sort keys %abc);

odacharlee

UID: 7090
帖子: 37
积分: 85
在线时间: 2 小时

5^# odacharlee 发表于 2008-10-30 16:43

4楼的是按key逆序排序。