分组求最小功能如何实现呢？

alunfirst

如下数据：
2016-09-02|a|91.56|89.72
2016-09-01|a|93.19|89.88
2016-08-31|a|88.03|81.28
2016-08-30|a|86.7|82.25
2016-08-29|a|79.53|77.8
2016-08-26|a|84.02|84.02
2016-08-25|a|76.38|76.38
2016-08-24|a|69.44|69.44
2016-08-23|a|63.13|63.13
2016-08-22|a|57.39|57.39
2016-08-19|a|52.17|52.17
2016-08-18|a|47.43|47.43
2016-08-17|a|43.12|43.12
2016-08-16|a|39.2|39.2
2016-08-15|a|35.64|35.64
2016-08-12|a|32.4|32.4
2016-08-11|a|29.45|29.45
2016-08-10|a|26.77|26.77
2016-08-09|a|24.34|24.34
2016-08-08|a|22.13|22.13
2016-08-05|a|20.12|20.12
2016-08-04|a|18.29|18.29
2016-08-03|a|16.63|16.63
2016-08-02|a|15.12|13.86
2016-09-02|b|66.03|64.82
2016-09-01|b|67.38|67.31
2016-08-31|b|74.8|67.33
2016-08-30|b|68|67.56
2016-08-29|b|68.98|67.29
2016-08-26|b|68.18|67.79
2016-08-25|b|70.77|68.68
2016-08-24|b|73.79|70.65
2016-08-23|b|75.12|69.37
2016-08-22|b|71.91|71.02
2016-08-19|b|71.78|71.2
2016-08-18|b|77.36|73.61
2016-08-17|b|78.12|73.06
2016-08-16|b|74.55|70.75
2016-08-15|b|67.77|65.75
2016-08-12|b|61.61|56.32
2016-08-09|b|56|53.16
2016-08-08|b|52.38|29.82
2016-08-05|b|47.62|46.09
2016-08-04|b|47.03|45.35
2016-08-03|b|44.78|41.37
2016-08-02|b|40.71|35.94
2016-08-01|b|37|34.57

想通过如下运算：取最大日期的第三列和所有日期中最小的第四列

得到：
a|91.56|13.86
b|66.03|29.82

请问如何实现呢？

moperyblue

1. awk 'BEGIN{FS=OFS="|"}{a[$2]=a[$2]?$1>a[$2]?$1:a[$2]:$1;b[$2]=b[$2]?$4<b[$2]?$4:b[$2]:$4;c[$2,$1]=$3}END{for(i in a)print i,c[i,a[i]],b[i]}' 1

复制代码

sunzhiguolu

1. perl -F'\|' -nle '{push(@{$h{$F[1]}},[@F])}END{foreach(sort keys %h){($M)=sort{$b->[0] cmp $a->[0]}@{$h{$_}};($m)=sort{$a->[-1] cmp $b->[-1]}@{$h{$_}};print join("|",@{$M}[1,2],$m->[-1])}}' f

复制代码

sunzhiguolu

1. #!/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. chomp (my @aData = split (/\|/, <>));
   
6. while (<>){
   
7.     chomp;
   
8.     my @aList = split /\|/;
   
9.     if ($aData[1] ne $aList[1]){
   
10.         print join ("|", @aData[1, 2, -1]), "\n";
    
11.         @aData = @aList;
    
12.         next;
    
13.     }
    
14.     $aData[2] = $aList[2] if ($aList[0] gt $aData[0]);
    
15.     $aData[-1] = $aList[-1] if ($aList[-1] < $aData[-1]);
    
16. }
    
17. 
    
18. print join ("|", @aData[1, 2, -1]), "\n";

复制代码

alunfirst

moperyblue 发表于 2016-11-06 19:33

谢谢~~~~~~~~~~~~~

moperyblue

回复 5# alunfirst

1. awk -F\| 'NR==FNR{a[$2]=a[$2]?$1>a[$2]?$1:a[$2]:$1;b[$2]=b[$2]?$4<b[$2]?$4:b[$2]:$4;next}$1==a[$2]{print $2,$3,b[$2]}' OFS=\| 1 1

复制代码