集計行と列

Question

を合計し、私は次の行を含むファイルを持っている：

01323874;291874;-;000000000000003030;2511011999;-;000000000000000000 
01323874;291874;-;000000000012920840;2511011999;+;000002910023874000 
01323872;291872;-;000000000000008750;2511011999;-;000000000000008750 
01323872;291872;+;000000000609396980;   ;+;000000000000000000 
01323778;  ;-;000000000468442930;   ;+;000000000000000000 
01323778;  ;+;000000005166500460;   ;+;000000000000000000 
01323778;  ;-;000000000469421100;2511021000;+;000000000469421100 
01323778;291778;-;000000000361156930;2511021000;-;000000000361156930 
01323778;  ;-;000000000186088530;2511021000;+;000000000186088530 
01323778;291778;-;000000000017602470;2511021000;-;000000000017602470 

私は最初の列に基づいて行を集計したいと思います：

サムアップ列の値列3の符号（+/-）を考慮して、列4の符号（+/-）を考慮して計算する。

列6の符号（+/-）を考慮して合計値を計算する。

01323874;291874;-;000000000012923871;2511011999;+;000002910023874000 
01323872;291872;+;000000000609388230;2511011999;-;000000000000008750 
01323778;291778;+;000000003663788500;2511021000;+;000000000276750230 

私はよくフォーマットされたラインを生成することに成功したが、非常に理解されるであろうthem.your助けを集約する方法を見つけることができませんでした。

Answer 1

kent$ cat f 
01323874;291874;-;000000000000003030;2511011999;-;000000000000000000 
01323874;291874;-;000000000012920840;2511011999;+;000002910023874000 
01323872;291872;-;000000000000008750;2511011999;-;000000000000008750 
01323872;291872;+;000000000609396980;   ;+;000000000000000000 
01323778;  ;-;000000000468442930;   ;+;000000000000000000 
01323778;  ;+;000000005166500460;   ;+;000000000000000000 
01323778;  ;-;000000000469421100;2511021000;+;000000000469421100 
01323778;291778;-;000000000361156930;2511021000;-;000000000361156930 
01323778;  ;-;000000000186088530;2511021000;+;000000000186088530 
01323778;291778;-;000000000017602470;2511021000;-;000000000017602470 

出力

kent$ awk -F';' '{a[$1]=(1*$2?$2:a[$1]); b[$1]+=$3=="-"?-$4:$4; 
        c[$1]=(1*$5?$5:c[$1]); d[$1]+=$6=="-"?-$7:$7} 
     END{for(x in a) 
       printf "%s;%s;%s;%018d;%s;%s;%018d\n", 
         x,a[x], 
         (b[x]>0?"+":"-"),(b[x]<0?-b[x]:b[x]),c[x], 
         (d[x]>0?"+":"-"),(d[x]<0?-d[x]:d[x])}' f 
01323872;291872;+;000000000609388230;2511011999;-;000000000000008750 
01323778;291778;+;000000003663788500;2511021000;+;000000000276750230 
01323874;291874;-;000000000012923870;2511011999;+;000002910023874000 

Answer 2

AWK溶液：

awk -F';' 'function get_sign(n){ 
       return (n<0)? "-":"+" 
      } 
      { 
       a[$1]+=int($3$4); b[$1]+=int($6$7); 
       if ($2*1) fld2[$1]=$2; if ($5*1) fld5[$1]=$5 
      } 
      END{ 
       for(i in a) print i, fld2[i], get_sign(a[i]), 
       sprintf("%018d",(a[i]>0)? a[i]:a[i]*-1), fld5[i], get_sign(b[i]), 
       sprintf("%018d",(b[i]>0)? b[i]:b[i]*-1) 
      }' OFS=';' file 

出力：

01323872;291872;+;000000000609388230;2511011999;-;000000000000008750 
01323778;291778;+;000000003663788500;2511021000;+;000000000276750230 
01323874;291874;-;000000000012923870;2511011999;+;000002910023874000 

---

• function get_sign(n) { ... } - 機能、数値引数nが正または負であると、それぞれの記号