Shell Programming and Scripting

awk '
NR == 1         {KN = split (KEYCOL, KC, ",")
                 AN = split (AGGCOL, AC, ",")
                }
                {KEY = DX = ""
                 for (i=1; i<=KN; i++)  {KEY = KEY DX $KC[i]
                                         DX = OFS
                                         $KC[i] = ""
                                        }
                 for (i=1; i<=AN; i++)  {if (F[KEY,i] !~ "(^|,)" $AC[i] "(,|$)")        {F[KEY,i] = F[KEY,i] DL[KEY,i] $AC[i]
                                                                                         DL[KEY,i] = ","
                                                                                        }
                                         $AC[i] = "\001" i
                                        }
                 $0 = $0
                 LINE[KEY] = $0
                }
END             {for (l in LINE)        {for (i=1; i<=AN; i++)  sub ("\001" i, F[l,i], LINE[l])
                                         OP = sprintf ("%s%s", l, LINE[l])
                                         print OP
                                        }
                }
' KEYCOL="1" AGGCOL="2,4" FS="\|+" OFS="|" file