关于两个数组关联排序,求助

crazidog

UID: 17284
帖子: 1
积分: 2
在线时间: 10 分钟

1^# crazidog 发表于 2007-12-04 22:04

关于两个数组关联排序,求助

[Copy to clipboard] [ - ]

CODE:

#下面两个元素相等的数组:
@a=(2,3,1,4); #sort @a 等于 @a[2,0,1,3],
@b=(a,b,c,d); #能否有简便方法得到　@b[2,0,1,3],

Lonki

UID: 21498
帖子: 1
积分: 2
在线时间: 10 分钟

2^# Lonki 发表于 2007-12-04 22:48

真没看明白...
难道是说 @b = sort @a; ???

crazidog

UID: 17284
帖子: 1
积分: 2
在线时间: 10 分钟

3^# crazidog 发表于 2007-12-04 22:59

偶没描述明白,研究了一个大侠的贴,已经找到答案了:

@a=(2,3,1,4);
@b=(a,b,c,d);

下面这种方法可以得到@b[2,0,1,3],
map{$_->[1]}sort{$a->[0] <=> $b->[0]}map{[@a[$_],@b[$_]]}(0..3);

Lonki

UID: 21498
帖子: 1
积分: 2
在线时间: 10 分钟

4^# Lonki 发表于 2007-12-04 23:31

我总算是明白了....

liang573728

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

5^# liang573728 发表于 2007-12-05 09:38

QUOTE:

map{$_->[1]}sort{$a->[0] $b->[0]}map{[@a[$_],@b[$_]]}(0..3);

看不明白，高手，解析一下。谢谢

crazidog

UID: 17284
帖子: 1
积分: 2
在线时间: 10 分钟

6^# crazidog 发表于 2007-12-05 23:26

偶是从高手那学来的

map{[@a[$_],@b[$_]]}(0..3); 　得到一个ref序列
sort{$a->[0] $b->[0]}map{[@a[$_],@b[$_]]}(0..3); 　　对ref序列排序
map{$_->[1]}sort{$a->[0] $b->[0]}map{[@a[$_],@b[$_]]}(0..3); 　　排完序后,把所要的结果取出来,不知明白了没