分组求和

alunfirst

以下数据：
2015-12-31|a|张三|Y
2015-12-30|a|张三|Y
2015-12-29|a|张三|Y
2015-12-28|a|张三|Y
2015-12-28|a|张三|10
2015-12-31|b|李四|H
2015-12-30|b|李四|H
2015-12-29|b|李四|Y
2015-12-28|b|李四|H
2015-12-28|b|李四|3
2015-12-28|b|李四|H
2015-12-28|b|李四|H
2015-12-31|c|王五|0
2015-12-30|c|王五|H
2015-12-29|c|王五|H
2015-12-28|c|王五|2
2015-12-28|c|王五|Y

想经过如下处理：
按第三列相同的求出现Y和H的次数。如果第一样不是Y或者H就判断，显示$3|0(列入王五)；如果下一行是Y或者N就+1，直到遇到不是Y或者N的行退出计算，显示$3|出现Y和H的次数和|出现H的次数和|出现Y的次数和(例如李四)；如果每行都是Y，也显示$3|0(例如张三)

得到如下结果：
张三|0
李四|4|3|1
王五|0

请问如何实现？

reyleon

看了N遍, 哥还是没抓住重点

alunfirst

reyleon 发表于 2016-06-07 14:28
看了N遍, 哥还是没抓住重点

想经过如下处理：
按第三列相同的求出现Y和H的次数。如果第一样不是Y或者H就判断，显示$3|0(列入王五)；如果下一行是Y或者N就+1，直到遇到不是Y或者N的行退出计算，显示$3|出现Y和H的次数和|出现H的次数和|出现Y的次数和(例如李四)；如果每行都是Y，也显示$3|0(例如张三)

Herowinter

回复 1# alunfirst

为了测试方便，第三列我改成A B  C了

1. 
   
2. awk -F'|' 'name!=$3{a[$3];name=$3;f=0;if($4=="Y"||$4=="H")f=1} f{if($4=="Y"||$4=="H")b[$3,$4]++;else f=0} END{for(i in a){if(b[i,"H"])print i"|"b[i,"Y"]+b[i,"H"]"|"b[i,"H"]"|"b[i,"Y"];else print i"|0"}}' i
   
3. A|0
   
4. B|4|3|1
   
5. C|0
   

复制代码

jason680

awk -F'|' 'BEGIN{_0000O0=FS;_000O00="+"+"+";_0O000O="-"-"-";_00O0O0=NR;_00O000="="=="=";_00O00O="=="=="==";_000O0O=NF;_00OO0O=_00O000+_0O000O+_00O00O-_000O00;_00OO00=_00O00O+_000O00+_00O000-_0O000O;_000OOO=_00OO0O*_00OO00-_000O00-_00O00O;_0O0000=-_00O000+_00OO00*_00OO0O-_000O00;_0O00OO=_0O000O;OFS=_0000O0;}{if(!_00000O[$_000OOO]++){_0000OO[++_0O00OO]=$_0O0000;if($(_00OO00*_00OO0O)!~/[YH]/)_0O0O0O[$_0O0000]=_00O000;}if($(_0O0000+_00O000)!~/[YH]/)_00OOO0[$_000OOO]=_00O00O;if(_00OOO0[$_0O0000])next;_0O00O0[$_000OOO,$(_0O0000+_00O000-_0O000O)]++;}END{for(_000OO0=_00O000+_000O00;_000OO0<=_0O00OO;_000OO0=_000OO0+_00O000+_0O000O){_0O0O00=_0000OO[_000OO0];_00O0OO=_0O00O0[_0O0O00,"Y"];_00OOOO=_0O00O0[_0O0O00,"H"];if(_0O0O0O[_0O0O00]||!_00O0OO||!_00OOOO)print _0O0O00,_000O00;else print _0O0O00,_00O0OO+_00OOOO,_00OOOO,_00O0OO}}' FILE
张三|0
李四|4|3|1
王五|0

alunfirst

Herowinter 发表于 2016-06-07 15:36
回复 1# alunfirst

为了测试方便，第三列我改成A B  C了

awk -F'|' 'name!=$3{a[$3];name=$3;f=0;if($4=="Y"||$4=="H")f=1} f{if($4=="Y"||$4=="H")b[$3,$4]++;else f=0} END{for(i in a){if(b[i,"H"])print i"|"b[i,"Y"]+b[i,"H"]"|"b[i,"H"]"|"b[i,"Y"];else print i"|0"}}' i
|0
王五|4|3|1
李四|4|2|2
张三|0

好像不行

alunfirst

jason680 发表于 2016-06-07 15:45
awk -F'|' 'BEGIN{_0000O0=FS;_000O00="+"+"+";_0O000O="-"-"-";_00O0O0=NR;_00O000="="=="=";_00O00O="==" ...

好复杂
awk -F'|' 'BEGIN{_0000O0=FS;_000O00="+"+"+";_0O000O="-"-"-";_00O0O0=NR;_00O000="="=="=";_00O00O="=="=="==";_000O0O=NF;_00OO0O=_00O000+_0O000O+_00O00O-_000O00;_00OO00=_00O00O+_000O00+_00O000-_0O000O;_000OOO=_00OO0O*_00OO00-_000O00-_00O00O;_0O0000=-_00O000+_00OO00*_00OO0O-_000O00;_0O00OO=_0O000O;OFS=_0000O0;}{if(!_00000O[$_000OOO]++){_0000OO[++_0O00OO]=$_0O0000;if($(_00OO00*_00OO0O)!~/[YH]/)_0O0O0O[$_0O0000]=_00O000;}if($(_0O0000+_00O000)!~/[YH]/)_00OOO0[$_000OOO]=_00O00O;if(_00OOO0[$_0O0000])next;_0O00O0[$_000OOO,$(_0O0000+_00O000-_0O000O)]++;}END{for(_000OO0=_00O000+_000O00;_000OO0<=_0O00OO;_000OO0=_000OO0+_00O000+_0O000O){_0O0O00=_0000OO[_000OO0];_00O0OO=_0O00O0[_0O0O00,"Y"];_00OOOO=_0O00O0[_0O0O00,"H"];if(_0O0O0O[_0O0O00]||!_00O0OO||!_00OOOO)print _0O0O00,_000O00;else print _0O0O00,_00O0OO+_00OOOO,_00OOOO,_00O0OO}}' i
张三|0
李四|4|2|2
王五|4|3|1
|0

Herowinter

回复 7# alunfirst

我的结果和jason一样的，你确定你的真实数据和一楼一模一样？
   

alunfirst

Herowinter 发表于 2016-06-07 17:33
回复 7# alunfirst

我的结果和jason一样的，你确定你的真实数据和一楼一模一样？

哦，可以。文件多了个空格

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my ($Name, $Print, $Continue) = ("", 0, 0);
   
6. my %hStat = map {$_, 0} ("Y", "H");
   
7. 
   
8. while (<>){
   
9.     my ($name, $flag) = /([^|]+)[|](\w+)\Z/g;
   
10.     if ($Name ne $name){
    
11.         if ($Print){
    
12.             my ($y, $h) = @hStat{"Y", "H"};
    
13.             print join ("|", $Name, $y + $h, $h, $y), "\n";
    
14.             ($Print, %hStat) = (0, ());
    
15.         }
    
16.         $Name = $name;
    
17.         if ($flag eq 'H'){
    
18.             $Print = $Continue = 1;
    
19.             $hStat{$flag}++;
    
20.             next;
    
21.         }
    
22.         $Print = $Continue = 0;
    
23.         print join ("|", $Name, 0), "\n";
    
24.         next;
    
25.     }
    
26.     if ($Continue){
    
27.         if (!exists $hStat{$flag}){
    
28.             $Continue = 0;
    
29.             next;
    
30.         }
    
31.         $hStat{$flag}++;
    
32.     }
    
33. }
    

复制代码

perl abc.pl abc
--------------------------------------------
张三|0
李四|4|3|1
王五|0