Shell Programming and Scripting

1  Bill     Portland          USA 
1  Robert Los Angeles   USA 
1  Mike   Amsterdam     Netherlands 
1  Rick   New York        USA 
2  Adam   Houston        USA 
3  Dave   Mexico City   Mexico 
3  Andy   Phoenix         USA

1  Bill, Robert, Mike, Rick     Portland,Los Angeles,Amsterdam, New York USA,USA, Netherlands, USA 
2  Adam                                  Houston                                                            USA 
3  Dave, Andy                        Mexico City, Phoenix                                       Mexico, USA

 awk '{for(i=1;i<=NF;i++){if($i~/[1-9]/){x=$i;continue}A[x]=(A[x]?A[x]","$i:$i)}}END{for(i in A)print i, A[i]}' infile

awk '
{
        for(i=3;i<NF;i++){x=x" "$i}
        A[$1]=(A[$1]?A[$1]","$2:$2)
        B[$1]=(B[$1]?B[$1]","x:x);x=""
        C[$1]=(C[$1]?C[$1]","$NF:$NF)
}
END{ for(i in A){print i, A[i], B[i], C[i]} } ' infile