Shell Programming and Scripting

awk '{ x[$1]=x[$1] " " $3;}
END {
   for (k in x) print k,x[k] >"OUTPUT1";
}' File

awk '{a[$2,$3]=a[$2,$3]?$1","a[$2,$3]";"$4:$0}END{for(i in a){print a[i]}}' file

BEGIN {
  c=","
  sc=";"
}
{
  idx=($2 OFS $3)
  o[idx]=(idx in o)?o[idx] c $1:$1
  f[idx]=(idx in f)?f[idx] sc $4:$4
}
END {
  for (i in o)
    print o[i], i, f[i]
}

 perl -alne '{$h{"$F[1] $F[2]"}[0].=",$F[0]";$h{"$F[1] $F[2]"}[1].="$F[3];";}
END { foreach $item (sort keys %h ) {
$Tget="$h{$item}[0] $item $h{$item}[1]";$Tget=~s/(^,|;$)//g;print "$Tget"; }}' input_file