hash排序小问题，请教一下

actan

一个hash

my %hashNames ;
$hashNames{'Sharon Basque-Dion'} = 1;
$hashNames{'Jean-Pascal Conteau'} = 42;
$hashNames{'Angus OHare'} = 4;
$hashNames{'Bally Waltson'} = 6;

我想按照值从小到大排出名字来，有什么好方法？

我的方法是这样的，还不太好，想请教下还有没有更好的方法：

先把hash搞在这样的数组：
my @test = ('46:Sharon Basque-Dion', '42:Jean-Pascal Conteau', '4:Angus OHare', '6:Bally Waltson');
再给数组按数值排序
my @szName = sort {$a <=> $b} @test;
for(my $i=0; $i<@szName; $i++){
        print $szName[$i] . "\n";
}

虽然会报错，但也能排出正确的结果来

Argument "46:Sharon Basque-Dion" isn't numeric in sort at testmail.cgi line 15.
Argument "42:Jean-Pascal Conteau" isn't numeric in sort at testmail.cgi line 15.
Argument "4:Angus OHare" isn't numeric in sort at testmail.cgi line 15.
Argument "6:Bally Waltson" isn't numeric in sort at testmail.cgi line 15.

4:Angus OHare
6:Bally Waltson
42:Jean-Pascal Conteau
46:Sharon Basque-Dion


还有没有更好的方法?
谢了！

shaneqi

my @result=sort by_number keys %hashNames;

sub by_number{
$hashNames{$a}<=>$hashNames{$b}
}

churchmice

1. 
   
2. foreach ( sort {$a <=> $b values %hash} )
   

复制代码

or

1. 
   
2. foreach ( sort {$hash{$a} <=> $hash{$b} keys %hash)
   

复制代码

好久不写，生疏了

[ 本帖最后由 churchmice 于 2009-2-12 14:58 编辑 ]

ynchnluiti

1. my %hashNames ;
   
2. $hashNames{'Sharon Basque-Dion'} = 46;
   
3. $hashNames{'Jean-Pascal Conteau'} = 42;
   
4. $hashNames{'Angus OHare'} = 4;
   
5. $hashNames{'Bally Waltson'} = 6;
   
6. 
   
7. for my $key (sort { $hashNames{$a} <=> $hashNames{$b} } keys %hashNames ) {
   
8.     print "$hashNames{$key}: $key\n";
   
9. }

复制代码

hitsubunnu

1. 
   
2. my @szName = sort {$a <=> $b} @test;
   

复制代码

把 <=>  换成 cmp 就不报错了

ynchnluiti

原帖由 hitsubunnu 于 2009-2-12 15:00 发表

my @szName = sort {$a  $b} @test;


把   换成 cmp 就不报错了

但结果好像就不对了

actan

是啊，换成cmp 结果就不一定对了
谢谢各位，小弟学习了！

最好的写法我总结出来了：

foreach ( sort {$hash{$a} <=> $hash{$b} keys %hash)