Shell Programming and Scripting

IN,A,1
IN,B,3
IN,B,2
IN,C,7
BR,A,1
BR,A,5
BR,C,9
AR,C,9

CNTRY,A,B,C
IN,1,5,7
BR,6,0,9
AR,0,0,9

awk -F, '{a[$1","$2]+=$3} END {for (i in a) { print i "," a[i]}}' input.txt

awk -F, '{a[$1","$2]+=$3;}END{for(i in a)print i", "a[i];}' file > infile


awk     -F,  '{cntry[$1]; alpha[$2]; val[$1,$2]=$3}
         END    {               printf "%10s", ""; for (i in alpha) printf "%10s", i; print "";
                 for (j in cntry) {printf "%10s",j;   for (i in alpha) printf "%10s", val[j,i]; print ""}
                }
        '  infile

val[$1,$2]+=$3

val[j,i]+0

awk     -F,  '{c[$1]; a[$2]; v[$1,$2]+=$3}
         END    {               printf "XX%s", ","; for (i in a) printf "%s,", i; print "";
                 for (j in c) {printf "%s",j;   for (i in a) printf ",%s", v[j,i]+0; print ""}
                }
        '   infile>infile2

sed '1 s/.$//' infile2>output

IN,A,1
IN,C,7
BR,A,1
MX,C,9

XX,A,B,C
IN,1,0,7
BR,1,0,0
MX,0,0,9

awk     -F,  '{
            c[$1]
            if(!($2 in av)) {
               av[$2]
               a[++cols]=$2}
            v[$1,$2]+=$3
         }
         END {  
           printf "XX"
           for (i=1;i<=cols;i++) printf ",%s", a[i]
           printf "\n"
           for (j in c) {
               printf "%s",j;
               for (i=1;i<=cols;i++)
                  printf ",%s", v[j,a[i]]+0; print ""}
          }' infile>infile2

IN,A,5
IN,C,4
CA,A,4

XX,A,C
IN,5,4
CA,4,0

IN,A,5
IN,B,5
IN,C,4
CA,A,4

XX,A,B,C
IN,5,5,4
CA,4,0,0

awk     -F,  '
BEGIN { cols=split("A,B,C", a);}
{ c[$1];v[$1,$2]+=$3 } 
END {
   printf "XX"
   for (i=1;i<=cols;i++) printf ",%s", a[i]
   printf "\n"
   for (j in c) {
       printf "%s",j;
       for (i=1;i<=cols;i++)
       printf ",%s", v[j,a[i]]+0; print ""}
}' infile>infile2