按区间分组汇总，大神们帮我看看怎么写？

haooooaaa

回复 10# jason680


    谢谢。

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my (%hStat, $sN);
   
6. map {$sN = int ($_->[-1] / 10); $sN = 2 if ($sN > 1); $hStat{$_->[0]}[$sN]++} map [split], <DATA>;
   
7. my @aMsg = split ' ', "0-10 11-20 >20";
   
8. foreach my $sK (sort keys %hStat){
   
9.     printf ("$sK $aMsg[$_] %d\n",($hStat{$sK}[$_] ? $hStat{$sK}[$_] : 0)) for 0 .. $#aMsg;
   
10. }
    
11. 
    
12. __DATA__
    
13. A 5
    
14. A 12
    
15. B 1
    
16. B 2
    
17. B 22
    
18. B 23
    
19. C 12
    
20. C 24
    
21. C 35
    

复制代码

A 0-10 1
A 11-20 1
A >20 0
B 0-10 2
B 11-20 0
B >20 2
C 0-10 0
C 11-20 1
C >20 2

zhuzixiangshui

你好厉害，哪里都有你的身影回复 6# jason680