關(guān)于文本內(nèi)容合并

dahaoshanhe

按照第二列范圍壓縮顯示

cat file:
111 1
111 2
333 7
222 6
222 9
111 3
222 10
333 3
333 4
333 5
333 6

result:
111 1-3
222 6-6
222 9-10
333 3-7

haooooaaa

已更改， 需要 awk 4.0

1. awk '{a[$1][$2]=$2}END{for(i in a){s=asort(a[i],b);f=e=b[1];for(j=2;j<=s;j++){if(b[j]-1==e)e=b[j];else{print i,f"-"e;f =e=b[j]}}print i,f"-"e}}'

復(fù)制代碼

sunzhiguolu

回復(fù) 1# dahaoshanhe
你試下,

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. sub Join{
   
6.     my $sID = shift;
   
7.     if (@_ > 1){
   
8.         printf ("%s %s\n",$sID,join ("-", @_[0, -1]));
   
9.     }else{
   
10.         printf ("%s %s\n",$sID, join ("-", $_[0], $_[0]));
    
11.     }
    
12. }
    
13. 
    
14. my @aData;
    
15. foreach (`sort -t" " -k1,1n -k2,2n f`){
    
16.     my @aList = split;
    
17.     if (!@aData){
    
18.         @aData = @aList;
    
19.         next;
    
20.     }
    
21.     if ($aData[0] == $aList[0]){
    
22.         if ($aData[-1] + 1 == $aList[-1]){
    
23.             push (@aData, $aList[-1]);
    
24.         }else{
    
25.             Join (@aData);
    
26.             $#aData = 0;
    
27.             push (@aData, $aList[-1]);
    
28.         }
    
29.         next;
    
30.     }
    
31.     Join (@aData);
    
32.     @aData = @aList;
    
33. }
    
34. Join (@aData);
    

復(fù)制代碼

111 1-3
222 6-6
222 9-10
333 3-7

   

sunzhiguolu

把 Join 函數(shù)精簡了下:

1. sub Join{
   
2.     printf ("%s %s\n",$_[0], join ("-", @_[1, -1]));
   
3. }
   

復(fù)制代碼

dahaoshanhe

回復(fù) 2# haooooaaa


    你這是在哪個(gè)版本的AWK上運(yùn)行的，我的版本不識別這樣的寫法

elu_ligao

1. awk '{a[$1]=a[$1] $2 FS}END{for(i in a){l=split(a[i],b);asort(b);printf i FS b[1]"-";for(k=2;k<=l;++k){if(b[k]!=b[k-1]+1)printf b[k-1]"\n"i FS b[k]"-"};printf b[k-1]"\n"}}'

復(fù)制代碼

jcdiy0601

sort -n -k2,2 file|awk '{a[$1]=a[$1]" "$2}END{for(i in a)print i,a[i]}'|awk '{print $1,$2"-"$NF}'
111 1-3
222 6-10
333 3-7

dahaoshanhe

回復(fù) 7# jcdiy0601


    我和你的思路一樣，只是SORT傷不起啊，有2億多行記錄，效率不高。

jason680

回復(fù) 5# dahaoshanhe

$ awk 'function xsort(v,s ,t,n,e){split(s,c," ");t=asort(c);e=c[1];printf ("%s %d-",v,e);for(n=2;n<=t;++n){if(c[n]-e-1)printf("%d\n%s %d-",e,v,c[n]);e=c[n]}print e}{a[$1]=a[$1]$2" "}END{t=asorti(a,b);for(n=1;n<=t;++n){xsort(b[n],a[b[n]])}}' file
111 1-3
222 6-6
222 9-10
333 3-7