请教个hash key排序问题

laolun

有一个hash：
1A2=>0.1,
1A3=>0.5,
1A10=>0.4,
1A8=>0.7,
2B1=>0.4,
2B3=>0.2,
2B10=>0.4,
2B7=>0.1,
我想按照key排序，sort{$a<=>$b}之后输出结果：
1A10=>0.4,
1A2=>0.1,
1A3=>0.5,
1A8=>0.7,
2B10=>0.4,
2B1=>0.4,
2B3=>0.2,
2B7=>0.1,
我希望得到的结果是：
1A2=>0.1,
1A3=>0.5,
1A8=>0.7,
1A10=>0.4,
2B1=>0.4,
2B3=>0.2,
2B7=>0.1,
2B10=>0.4,
请问该如何实现？谢谢啦。

zhlong8

你这既不是字符串排序也不是数字排序，自己写个比较函数来排吧。只要你能描述清楚怎么做，写代码从来都是很简单的事情

kk861123

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my %hash = (
   
6.     '1A2'=>0.1,
   
7.     '1A3'=>0.5,
   
8.     '1A10'=>0.4,
   
9.     '1A8'=>0.7,
   
10.     '2B1'=>0.4,
    
11.     '2B3'=>0.2,
    
12.     '2B10'=>0.4,
    
13.     '2B7'=>0.1,
    
14. );
    
15. 
    
16. foreach my $k (
    
17.     map { $_->[0] }
    
18.    sort { $a->[1] <=> $b->[1]
    
19.        or $a->[2] cmp $b->[2]
    
20.        or $a->[3] <=> $b->[3] }
    
21.     map { [ $_, split(/([A-Z])/,$_) ] }
    
22.     keys %hash
    
23. ){
    
24.     print "$k => $hash{$k}\n";
    
25. }
    

复制代码

laolun

回复 3# kk861123
十分感谢！

   

jason680

回复 3# kk861123

There is sort common way for word and number in the same string.

#!/usr/bin/perl
use strict;
use warnings;

my %hash = (
    '1A2a02'=>0.122,
    '1A02b1'=>0.121,
    '1A02a1'=>0.121,
    '1A20a3'=>0.1203,
    '1A21a3'=>0.1213,
    '1A2a1'=>0.121,
    '1Aa2a1'=>0.121,
    '1A3'=>0.5,
    '1A10'=>0.4,
    '1A8'=>0.7,
    '2B1a'=>0.41,
    '2B1'=>0.4,
    '2B3'=>0.2,
    '2B10'=>0.4,
    '2B7'=>0.1,
);

foreach my $k (
    map { $_->[0] }
   sort { $a->[1] cmp $b->[1] }
    map { (my $nwn=$_)=~s/(\d+)/sprintf("%05d",$1)/ge; [$_, $nwn] }
    keys %hash
){
    print "$k => $hash{$k}\n";
}


   

kk861123

回复 5# jason680


    COOL! thanks~

rubyish

jason680 发表于 2012-09-17 08:37
回复 3# kk861123

There is sort common way for word and number in the same string.

谢谢啦。

zhlong8

刚去 cpan 搜到个 Sort::Naturally 模块

Perl_Er

施瓦茨转换排序

rubyish

jason680 发表于 2012-09-17 08:37

回复 3# kk861123

There is sort common way for word and number in the same string.

1. map { (my $nwn=$_)=~s/(\d+)/sprintf("%05d",$1)/ge; [$_, $nwn] }

复制代码

That's one small code for a man, one giant leap for mankind.