关于perl 散列hash 的分类排序问题

xiaoao7678

各位好！
  perl 新手，遇到个问题无法解决， 求助
我想把以下哈希表中的 key进行分类，values 经过排序，然后读出  
  %hash = (
                  "17"  => "7258",
                   "05"  => "25508",
                  "17" =>  "7873",
                  "05"  => "7258",
                  "17" => "6611",
                  "05" => "9166",
);

比如，最终输出结果为
05 => 7258
05 => 9166
05 => 25508
17 => 6611
17 => 7258
17 => 7873

llbgurs

首先hash键是唯一的，所以前面的%hash定义有问题

1. 
   
2. foreach $key(sort keys(%hash))
   
3. {
   
4.     print "$key=>$hash{$key}\n";
   
5. }

复制代码

xiaoao7678

回复 2# llbgurs

  我没讲清楚，其实我的需求是，想从日志将17，15 分类输出。而且还要对17所对应的 ID 进行排序。
   17 to 7258,
    05  to 25508,
    17 to  7873,
    05  to 7258,
    17 to 6611",
    05 to 9166,
最终的输出结果为就可以了。
05 => 7258
05 => 9166
05 => 25508
17 => 6611
17 => 7258
17 => 7873

jason680

回复 3# xiaoao7678


$ cat sort_val2.pl

1. #! /usr/bin/env perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my @data = <DATA>;
   
6. my @sort_data = map { $_->[1]. " => " . $_->[2] . "\n"}
   
7.                 sort {($a->[1] <=> $b->[1]) or ($a->[2] <=> $b->[2])}
   
8.                 map {[$_, m/^\s+(\d+)\s+to\s+(\d+)/]} @data;
   
9. print @sort_data;
   
10. 
    
11. __DATA__
    
12.    17 to 7258,
    
13.     05  to 25508,
    
14.     17 to  7873,
    
15.     05  to 7258,
    
16.     17 to 6611",
    
17.     05 to 9166,

复制代码

$ perl sort_val2.pl
05 => 7258
05 => 9166
05 => 25508
17 => 6611
17 => 7258
17 => 7873
   

xiaoao7678

回复 4# jason680


    工作忙，不常来这。非常谢谢你的回复。有机会加你QQ，跟你学习下perl

cdtits

1. #!/usr/bin/env perl
   
2. 
   
3. @res =  sort { $a->[0] <=> $b->[0] or $a->[1] <=> $b->[1];  }
   
4.         map  { /(\d+)\s+\w+\s+(\d+)/; [$1, $2];             } <DATA>;
   
5. print "$_->[0] => $_->[1]\n" for (@res);
   
6. 
   
7. __DATA__
   
8. 17 to 7258,
   
9. 05  to 25508,
   
10. 17 to  7873,
    
11. 05  to 7258,
    
12. 17 to 6611",
    
13. 05 to 9166

复制代码