Top ten occurrences with perl one-liner

Mar 30, 2010 1 min read

Very nice perl one-liner using map, sort and array range to show top ten occurrences

perl -ane '$c{$F[0]}++; END {print map {$_ . "\t->\t" . $c{$_} . "\n"} (sort {$c{$b} <=> $c{$a}} keys %c)[0..9]}' filename

Same thing can be achieved by:

sort filename | uniq -c | sort -nr | head

But the perl one-liner demonstrates the nice combination of sort and map.

one-liner perl

My research interests include genome grammar and NGS analysis.