分组求和

sunzhiguolu

如果顺序不重要的话,

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my %hStat;
   
6. map {push @{$hStat{$_->[0]}}, $_->[-1]} map {[/([^|]+)\|(\w+)\Z/g]} <>;
   
7. foreach (keys %hStat){
   
8.     if ($hStat{$_}[0] ne "H"){
   
9.         print join ("|", $_, 0), "\n";
   
10.         next;
    
11.     }
    
12.     my ($flag, $h, $y) = 1;
    
13.     map {$flag = 0 if(!/[YH]/); if ($flag){/H/ ? $h++ : $y++}} @{$hStat{$_}};
    
14.     print join ("|", $_, $h + $y, $h, $y), "\n";
    
15. }
    

复制代码

王五|0
张三|0
李四|4|3|1

sunzhiguolu

回复 5# jason680
大神, 您这个太猛了!!!