Shell Programming and Scripting

awk -F@ 'END{for(i in A)print A[i],i}{A[$2]++}' infile

awk -F\@ '{print $2}' filename | sort | uniq -c

   2 email.com
   1 myemail.com
   1 youremail.com.

cut -d @ -f2 < infile |sort |uniq -c |sort -rn

awk -F@ 'END{for(i in A)print A[i],i |"sort -nr"}{A[$2]++}' infile

awk -F@ 'END{for(i in A)print A[i],i }{A[$2]++}' infile | sort -rn

perl -e 'while(<>){chomp;/^[^@]+@([^@]+)$/;$h{$1}++;}
foreach $k (sort { $h{$b} <=> $h{$a} } keys %h)  {print $h{$k}." ".$k."\n";} infile