如何利用哈希中key中的数字排序

jiujiujiu338

如%hash=("name=1"=>1,"name=2"=>3,"name=10"=>4)，例如我们通常用的foreach $key( sort keys %hash), 取出来的顺序是name=1,name=10,name=2 现在想依次取出name=1,name=2,name=10，请问该如何操作，多谢各位帮忙了~~

兰花仙子

如%hash=("name=1"=>1,"name=2"=>3,"name=10"=>4)，例如我们通常用的foreach $key( sort keys %hash), 取出 ...
jiujiujiu338 发表于 2011-08-19 11:13

    $ perl -le '%hash=("name=1"=>1,"name=2"=>3,"name=10"=>4); for (sort {(split/=/,$a)[1] <=> (split/=/,$b)[1]} keys %hash) { print $hash{$_}}'
1
3
4

jason680

如%hash=("name=1"=>1,"name=2"=>3,"name=10"=>4)，例如我们通常用的foreach $key( sort keys %hash), 取出 ...
jiujiujiu338 发表于 2011-08-19 11:13

1. use strict;
   
2. use warnings;
   
3. 
   
4. my %hash = (
   
5.   'name=10' => "10",
   
6.   'name=11' => "11",
   
7.   'name=12' => "12",
   
8.   'name=1' => "1",
   
9.   'name=2' => "2",
   
10.   'name=55' => "55",
    
11. );
    
12. sub _by_word_number{
    
13.   (my  $aa =$a) =~ s/(\d+)/sprintf("%02d",$1)/e;
    
14.   (my  $bb =$b) =~ s/(\d+)/sprintf("%02d",$1)/e;
    
15.   return $aa cmp $bb;
    
16. }
    
17. foreach(sort _by_word_number keys %hash){
    
18.   print "$_, $hash{$_}\n";
    
19. }

复制代码

兰花仙子

取key就直接print:

$ perl -le '%hash=("name=1"=>1,"name=2"=>3,"name=10"=>4); for (sort {(split/=/,$a)[1] <=> (split/=/,$b)[1]} keys %hash) { print}'   
name=1
name=2
name=10

tempo8

高手过招！
赏心悦目！
赞一个先！

兰花仙子

高手过招！
赏心悦目！
赞一个先！
tempo8 发表于 2011-08-20 22:27

    谈不上多高。更好的：

$ perl -le '%hash=("name=1"=>1,"name=2"=>3,"name=10"=>4);
> for (map {$_->[1]} sort {$a->[0] <=> $b->[0]} map {[(split/=/)[1],$_]} keys %hash) { print }'
name=1
name=2
name=10

火星人1

回复 4# 兰花仙子


    perl的高级排序

forward_ding

谈不上多高。更好的：
兰花仙子 发表于 2011-08-21 09:36

    这个写法很nice，但是为什么它是更好的呢？

3P党人

1. my %hash=("name=1"=>1,"name=2"=>3,"name=10"=>4);
   
2. foreach my $key (sort { $hash{$a} <=> $hash{$b} } keys(%hash))
   
3. {
   
4.         print "$key\n";
   
5. }

复制代码

兰花仙子

这个写法很nice，但是为什么它是更好的呢？
forward_ding 发表于 2011-08-21 11:45

    只split一次。