Shell Programming and Scripting

3099753489 3
3099753489 5
3101954341 12
3101954341 14
3102153285 3
3102153285 5
3102153297 3
3102153297 5

3099753489 3 5
3101954341 12 14
3102153285 3 5
3102153297 3 5

awk '{
			D[$1]}{key[$1,$2]++}
			END{
			for (i in key) {
			split (i, T, SUBSEP)
			print T[1],key[i], T[2]}}' file

awk '{A[$1]=A[$1]?A[$1] OFS $2:$2} END{for(i in A){print i OFS A[i]}}'  Input_file

3099753489 3 5
3102153285 3 5
3101954341 12 14
3102153297 3 5

awk 'FNR==NR{A[$1]=A[$1]?A[$1] OFS $2:$2;next} ($1 in A){print $1 OFS A[$1];delete A[$1]}'  Input_file  Input_file

3099753489 3 5
3101954341 12 14
3102153285 3 5
3102153297 3 5

cat Input_file
3099753489 3
3099753489 5
3101954341 12 21 31  34 56 78
3101954341 14
3102153285 3
3102153285 5
3102153297 3
3102153297 5

awk 'FNR==NR{if(NF>2){for(i=3;i<=NF;i++){Q=Q?Q OFS $i:$i}} else {Q=$2};A[$1]=A[$1]?A[$1] OFS Q:Q;next} ($1 in A){print $1 OFS A[$1];delete A[$1]}'  Input_file  Input_file

3099753489 3 5
3101954341 5 21 31 34 56 78 14
3102153285 3 5
3102153297 3 5

awk 'NR == 1 || $1 != LAST {printf "%s%s", NR==1?"":RS, LAST = $1} {printf " %s", $2} END {print _} ' file
3099753489 3 5
3101954341 12 14 16 24
3102153285 3 5
3102153297 3 5

3099753489 3
3099753489 5
3099753489 7
3101954341 12
3101954341 14
3102153285 3
3102153285 5
3102153297 3
3102153297 5
3102153297 8

3099753489 3 5 7
3101954341 12 14
3102153285 3 5
3102153297 3 5 8