netstat - an | awk ‘ /^tcp/{ A[$NF]++} END{ for (a in A) print a, A[a]} ‘ netstat - an | awk ‘ /LISTEN/{next};/^tcp/{s=split($5, N,”:”); \ A[N[s-1]]++} END{ for (a in A) print a, A[a]} ‘