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

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";

复制代码